Помогите с паскалем пожалусто
Модератор: Cerberus
Re: Помогите с паскалем пожалуста
задание:если сумма 2х разных чисел <1 то наименьшее заменить полусуммой, в противном случае меньшее заменить суммой.
var
a,b:integer;
c:real;
begin
readln(a,b);
if a mod 2<1 then begin
c:=a+b/2;
writeln (c);
end
else begin
c:=a+b;
writeln(c);
end;
readln;
end.
-
- Добрый Админ
- Сообщения: 5434
- Зарегистрирован: Чт мар 31, 2005 16:54
- Пол: мужской
- Откуда: Выкса
- Благодарил (а): 1 раз
- Поблагодарили: 6 раз
- Контактная информация:
Re: Помогите с паскалем пожалусто
Re: Помогите с паскалем пожалусто
задание: даны числа от 1 до 20 надо каждые 3 числа сложить.
я сделал начало у меня первые 3 числа складывает мой вопрос: а как дальше мне остальные прописать?с помощью какой процедуры?
var
a,b,c,d,e,f,g,v,n,m,r,t,y,w,k,l,s,z,j,i:integer;
x:real;
begin
writeln('vvedite 1-20');
readln(a,b,c,d,e,f,g,v,n,m,r,t,y,w,k,l,s,z,j);
for i:=1 to 20 do begin x:=a+b+c;
end;
writeln('x:=',x:4:2);
readln;
- RED_SPY
- Истинный Wыксунец
- Сообщения: 1894
- Зарегистрирован: Пн май 02, 2005 0:38
- Пол: мужской
- Откуда: Выкса
- Контактная информация:
Re: Помогите с паскалем пожалусто
Используй массивы для таких целей.
Объявляешь из 20 элементов массив, записываешь туда все что введено, циклом складываешь по три. То что у тебя по тр элемента можно проверять через остаток от деления на 3, например.
...В конечном счете будет прав тот, кто зажег огонь добра. (К. Никольский)
Разработка фирменных стилей. Дизайн сайтов.
-
- Добрый Админ
- Сообщения: 5434
- Зарегистрирован: Чт мар 31, 2005 16:54
- Пол: мужской
- Откуда: Выкса
- Благодарил (а): 1 раз
- Поблагодарили: 6 раз
- Контактная информация:
Re: Помогите с паскалем пожалусто
Re: Помогите с паскалем пожалусто
вот задание: надо чтоб процедура рисовала таблицу и запрашивала любую надпись и вставить её в таблицу, а функция запрашивает 2 числа и среднее значение этих чисел вводит в таблицу.
я сам этого сделать не могу для меня это просто (вынос мозга)
-
- Добрый Админ
- Сообщения: 5434
- Зарегистрирован: Чт мар 31, 2005 16:54
- Пол: мужской
- Откуда: Выкса
- Благодарил (а): 1 раз
- Поблагодарили: 6 раз
- Контактная информация: