Программы Pascal. Помогите составить программу которая находит минимальное из трех чисел!!!
если можно, то пишите полную программу
если можно, то пишите полную программу
function Min_3(a,b,c:integer):integer;
var
buf:integer;
begin
if a < b then buf:=a else buf:=b;
if buf>c then buf:=c;
result:=buf;
end;
D.E.N., в паскале нет оператора result для функций
Возвращаемый результат - записывается в одноимённую функции переменную.
Вот рабочая и отлаженная программа. Функцию написал свою, без лишних переменных.
До кучи расширил возможности программы до работы с дробями.
Исходник так же выложил сюда: pastebin . com / jQC62q3u (убарай пробелы из адреса)
program min3;
var
a,b,c:real; { переменные для ввода данных }
function min_3(a,b,c:real):real; { тип переменных "real" расширяет функциональность программы до дробных чисел }
begin
if b < a then a:=b; { сравниваем "а" и "b". Если "b" меньше, то она заменяет переменную "a" }
if c < a thenmin_3:=c { сравниваем результат предыдущего сравнения с переменной "c". Если "c" меньше, возвращаем её, }
else min_3:=a; { а если "c" не меньше, то возвращаем результат предыдущего сравнения }
end;
begin
writeln('Программа нахождения минимального числа из трёх');
writeln('-----------------------------------------------');
write('a: '); readln(a);
write('b: '); readln(b);
write('c: '); readln(c);
write('Минимальное число: '); writeln(min_3(a,b,c):5:3);
readln;
end.
function Min_3(a,b,c:integer):integer;
var
buf:integer;
begin
if a < b then buf:=a else buf:=b;
if buf>c then buf:=c;
result:=buf;
end;