Turbo Pascal для начинающих

http://www.cashdeveloper.ru/



Задача 178


{ Возвращает результат сравнения чисел
в виде символа отношения } function Compare(a,b: real): char; begin
if a > b then Compare:='>' else
if a < b then Compare:='<•
else Compare:='='; end;
xl,x2: real; { сравниваемые числа }
res: char; { результат сравнения } begin
writeln('Введите два числа и нажмите <Enter>');
write('->');
readln(xl,x2);
res:=Compare(xl,x2); ( вызов функции программиста }
writeln(xl:6:2,res,x2:6:2);
readln; end.









Начало    Назад    Вперед




Книжный магазин