составьте программу определения небольшой
Автор Женя Хурс задал вопрос в разделе Другие языки и технологии
Программы Pascal. Помогите составить программу которая находит минимальное из трех чисел!!! и получил лучший ответ
Ответ от D.E.N.[гуру]
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;
Источник: голова
Ответ от Даниил Зеников[новичек]
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;
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.
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.
Ответ от Влад[гуру]
.
.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Программы Pascal. Помогите составить программу которая находит минимальное из трех чисел!!!