составьте программу определения наименьшего числа из трех



составьте программу определения небольшой

Автор Женя Хурс задал вопрос в разделе Другие языки и технологии

Программы 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;

Ответ от Единственный[гуру]
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. Помогите составить программу которая находит минимальное из трех чисел!!!
спросили в Другое Алгоритм
Понятие об алгоритме (формы, свойства, виды алгоритмов)
Алгоритм – это полное и точное описание на некотором языке конечной последовательности правил,
подробнее...
спросили в Интернет
Что это за бесплатный домен .tk? Ему можно доверять?
Бесплатный домен TK от островов Токелау
Токелау — это то же самое, что Крым у Украины —
подробнее...
спросили в Другое
что означает термин "ток холодной прокрутки"
Стартовый ток необходим для обеспечения самой возможности запуска двигателя с помощью стартера, так
подробнее...
спросили в Другое Ошибки
что за ошибка HTTP
Это ошибка сервера

Код состояния HTTP (англ. HTTP status code) является частью первой
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Интернет
Рассекала просторы интернета,Что значит ошибка 505*?
505
HTTP Version Not Supported (русск. Версия HTTP не поддерживается)
Появился в
подробнее...
спросили в Числа
Как перевести число из десятичной системы в двоичную? желательно с примером, заранее спасибо))
В обыденной жизни мы используем привычную всем десятичную систему счисления. В данной системе все
подробнее...

Нужна программа для создания видео из фотографий и нарезок из видео.
ProShow Producer – программа для профессионального создания презентаций от Photodex. Утилита
подробнее...
спросили в Деление
правило деление суммы на число,правило вычитание числа из суммы,правило вычитание суммы из числа!!!
деление суммы на число
(а+в) /с = а/с + в/с
вычитание числа из суммы
(а+в) - с = (а-с)
подробнее...

C++ считать float числа из файла
Прочтет все числа из файла и выведет их на стандартный вывод (ограничение: чисел в файле должно
подробнее...
спросили в Другое
какая программа для проектирования домов из срубов и брусов лучшая? Программа
...
HouseCreator – программа для проектирования домов из бруса и бревен (деревянное
подробнее...
спросили в Другое
Многоугольник с наименьшим числом сторон
Многоугольник, в котором углов больше двух, с наименьшим числом сторон, равно трём сторонам,
подробнее...

Здравствуйте какой из трех лимонов лучше для выращивания дома? Лимон "Павловский" Лимон "Мейера" Лимон "Пандероза"
смотря где Вы живете! Если частный дом с печным отоплением, или утепленная лоджия (т. е. зимовка
подробнее...

как переводить ДРОБНЫЕ числа из десятичной системы счисления в двоичную?
Перевод дробного числа из десятичной системы счисления в двоичную осуществляется по следующему
подробнее...
спросили в Загадка Загадки
Напомните загадку про тюрьму и три слова из трех букв, если называешь которые, заключенного выпускали?
Одного мужика осудили на 15 лет. Но судья захотел ему помочь и предложил:
- Я загадаю тебе
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*