[_M_]

Здравствуйте, помогите пожалуйста с паскалем..
Изучал в основном пыху, но для сдачи экзаменов (егэ);
Требуется паскаль.
При составлении программы у меня возникли некоторые сложности..
Задача:
Нужно вывести максимальное и минимальное значение 4 переменных...

Вот то что я уже додумал:

Код:

Program spaBnenie;

var a,b,c,d,e,f:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
write('d=');
readln(d);

if a<b then e:=b else e:=a;
if c>d then e:=c else e:=d;
if a<b then f:=a else f:=b;
if c<f then f:=c;

writeln ('max=',d);
writeln (' u min=',f);
readln
end.

Может я это уже и часть сделал, но меня что то замкнуло, и я не могу скомпоновать свои дальнейшие действия =(

[contactreserve]

_M_,

Не тот ты форум выбрал...

Определи функцию

function min(a: integer; b: integer): integer;
begin
if a < b then
result := a else
result := b;
end;

В коде программы

var
minimum: integer;

begin
minimum := min(a,b);
minimum := min(minumum,c);
minimum := min(minumum,d);

Аналогично можно сделать максимум.

А вообще надо массив было определять для такой задачи, где больше 2 переменных. А то я тебя научил
'индусскому' коду...

[Crasher69]

Паскаль - говно :) После пхп так сложно в нем работать, особенно бесят :=
Но всеже накорябал в дельфях в консольном приложении, думаю в паскале тоже скомпилится.
Таким образом можно сверить хоть 100500 переменных, а главное код остается относительно небольшим.

PHP код:

var A : Array [1..4] Of Integer; 
var min, max,i:integer;
begin


For i:=1 To 4 Do
 Readln(A[i]);

 max:=A[1];
 min:=A[1];

 for i:=1 to 4 do
  begin
     if (A[i]>max) then max:=A[i];
     if (A[i]<min) then min:=A[i];
  end;
        writeln ('max=',max);
        writeln ('min=',min);
        readln;

end. 


[ArhStrAngeR]

Crasher69,4 заменить на переменную и тогда сколько угодно)

[Warprobot]

_M_, вы изучаете "пыху" и не можете сделать базовый алгоритм? Используйте код Crasher69.
Только почему max=0?

А если все 4 числа отрицательные?

[Crasher69]

Warprobot, насчет отрицательности не подумал. Ну тогда просто его можно так-же прировнять первому элементу массива.

[ArhStrAngeR]

Warprobot, лучше тоже поставить как и мин

PHP код:

 max:=A[1]; 


[Warprobot]

Да, именно это и имел ввиду. :)

[contactreserve]

Мм, я тут новичок и думал, что форум SEO - сборище копипастных сеонистов, а тут ещё и сборище копипастных кодерастов.

Ошибся. Просьба не обижаться