паскаль

[knv2010]

програма в Паскале:
Присвоить переменным max и min соответственно наибольшее и наименьшее из значений a, b.

[Alex11223]

И в чем проблема? Используйте if и документацию\учебник.

[knv2010]

Да мне уже 45, учусь заочно на экономе, в программировании ни бум-бум. Дали по информатике задание, а объяснять никто не хочет, если не трудно, помогите пожалуйста. Контрольную уже сдавать надо. Заранее благодарю.

[Alex11223]

В сообщении выше ссылка на википедию, там вроде понятно.
Основная часть выглядит примерно так. Перед этим ввести а и б с помощью read\readln и в конце вывести с помощью write или writeln, ну и в начале объявить переменные (var).

if (a>b) then     //если а > b тогда
   begin
      min:=b;        //переменной min присвоить значение переменной b 
      max:=a;        // и соответственно тоже самое с переменными max и а
   end;
else             //иначе (если b > a (правда не рассматривается вариант а=b, но видимо подразумевается, что они не равны) )сделать все наоборот
   begin
      min:=a;
      max:=b;
   end;

Вообще если английский знаете, то не должно быть проблем.

[knv2010]

Огромное спасибо.

[just4smth]

Alex11223, перед else точку с запятой нужно убрать

Program new;
Uses crt;
Var a,b,min,max:real;

Begin
      clrscr;
      Writeln('Vvedite a i b');
      Readln(a,b);
      if (a>b) then
      begin
        min:=b;
        max:=a;
      end
      else
      begin
        min:=a;
        max:=b;
      end;
      Writeln('max=',max:9:5);
      Writeln('min=',min:9:5);
      Readln;
End.

[knv2010]

Огромное спасибо, вы меня очень выручили.