VPF::помогите решить задачку!! - Форум программистов

Анютка

Дата 29.11.2005, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 22.11.2005
Где: Моск.область

Репутация: нет
Всего: нет

Пожалуйста,помогите решить задачку!!
Для заданных a и b получить C=max(a,b),если a>0 или C=min(a,b), если a<=0 smile

Darhazer

Дата 29.11.2005, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 429
Регистрация: 28.9.2005
Где: HellCity (Sofia, Bulgaria)

Репутация: нет
Всего: 29

Код


program IfProg

var
a,b,c: integer;

begin;
writeln('a=');readln(a);
writeln('b=');readln(b);

if  a>0  then
   if a>=b then c:=a else c:=b;
else
  if a<=b then c:=a else c:=b;

end.

Компилятора/редактора у меня нет, так что возможно присуствие ошибок

--------------------

I'm a wheel, I'm a wheel, I can roll, I can feel
But you can't stop me turning
'Cause I'm the sun, I'm the sun, I can move, I can run
But you'll never stom me burning

Snowy

Дата 29.11.2005, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 4
Всего: 484

Модератор: Название темы должно отражать ее суть!
Модератор: Просьба не дублировать темы!

darkart

Дата 29.11.2005, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 379
Регистрация: 9.11.2005

Репутация: 26
Всего: 31

Darhazer в твоем коде не хватает begin...end

Код


program abc;
var
  a,b,c:integer;
begin
  writeln('Please enter a:');
  readln(a);
  writeln('Please enter b:');
  readln(b);
  if a>0 then
  begin
    if a>b then c:=a else c:=b;
  end
  else
    if a<b then c:=a else c:=b;
  writeln('c=',c);  
  readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »