Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / function / Program1
.pas uses crt;
var a,b,c,max: integer;
//функция на поиск максимального числа из трёх
function maximum:integer;
begin
max:=a;
if a<b then max:=b;
if a<c then max:=c;
if c>max then max:=c;
maximum:=max
end;
begin
writeln('Введите три числа для сравнения: ');
readln(a,b,c);
writeln('Наибольшее целое число = ',maximum);
readln;
end.
var a,b,c,max: integer;
//функция на поиск максимального числа из трёх
function maximum:integer;
begin
max:=a;
if a<b then max:=b;
if a<c then max:=c;
if c>max then max:=c;
maximum:=max
end;
begin
writeln('Введите три числа для сравнения: ');
readln(a,b,c);
writeln('Наибольшее целое число = ',maximum);
readln;
end.
Соседние файлы в папке function