Помогите с паскалем пожалусто
Модератор: 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.
задание:если сумма 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.
- Дыбра
- Добрый Админ
- Сообщения: 5437
- Зарегистрирован: Чт мар 31, 2005 16:54
- Пол: мужской
- Откуда: Выкса
- Контактная информация:
Re: Помогите с паскалем пожалусто
Да тут много что не так. Во-первых скобок не хватает, в результате чего нарушен приоритет выполнения операция. А во-вторых, нет самого главного условия проверки суммы двух числе меньше 1.
Администратор сайта "Виртуальная Выкса"
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;
задание: даны числа от 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ыксунец
- Сообщения: 1920
- Зарегистрирован: Пн май 02, 2005 0:38
- Пол: мужской
- Откуда: Выкса
- Контактная информация:
Re: Помогите с паскалем пожалусто
Интересный подход:).
Используй массивы для таких целей.
Объявляешь из 20 элементов массив, записываешь туда все что введено, циклом складываешь по три. То что у тебя по тр элемента можно проверять через остаток от деления на 3, например.
Используй массивы для таких целей.
Объявляешь из 20 элементов массив, записываешь туда все что введено, циклом складываешь по три. То что у тебя по тр элемента можно проверять через остаток от деления на 3, например.
.
...В конечном счете будет прав тот, кто зажег огонь добра. (К. Никольский)
Разработка фирменных стилей. Дизайн сайтов.
...В конечном счете будет прав тот, кто зажег огонь добра. (К. Никольский)
Разработка фирменных стилей. Дизайн сайтов.
- Дыбра
- Добрый Админ
- Сообщения: 5437
- Зарегистрирован: Чт мар 31, 2005 16:54
- Пол: мужской
- Откуда: Выкса
- Контактная информация:
Re: Помогите с паскалем пожалусто
Можно и твоим способом, но шаг массива делать равным 3. Ну и массив в данной ситуации был бы удобнее.
Администратор сайта "Виртуальная Выкса"
Re: Помогите с паскалем пожалусто
привет всем.помогите пожалуйста написать программу
вот задание: надо чтоб процедура рисовала таблицу и запрашивала любую надпись и вставить её в таблицу, а функция запрашивает 2 числа и среднее значение этих чисел вводит в таблицу.
я сам этого сделать не могу для меня это просто
(вынос мозга)
вот задание: надо чтоб процедура рисовала таблицу и запрашивала любую надпись и вставить её в таблицу, а функция запрашивает 2 числа и среднее значение этих чисел вводит в таблицу.
я сам этого сделать не могу для меня это просто

- Дыбра
- Добрый Админ
- Сообщения: 5437
- Зарегистрирован: Чт мар 31, 2005 16:54
- Пол: мужской
- Откуда: Выкса
- Контактная информация:
Re: Помогите с паскалем пожалусто
А как рисовать таблицу? Через GUI или в псевдографике? Опять же какой размер таблицы и по какой схеме туда помещается надпись.
Администратор сайта "Виртуальная Выкса"