Паскаль: найти наименьшее из трех чисел

Jan · 06.02.2011, 17:37

Помогите мне пожалуйста с задачкой!
Дано три числа надо найти меньшее с них!
Заранее спосибо!!!)))

Vladimir_S · 06.02.2011, 20:37

Цитата:

Сообщение от Jan

Помогите мне пожалуйста с задачкой!

А нет желания самостоятельно попытаться решить эту глупейшую задачку ясельного уровня?

Mr.Програмист · 08.02.2011, 15:22

Лови листинг и учи Паскаль

Код:

Var a:array[1..3] of integer;
i,b:integer;
begin
Writeln('введите 3 числа');
for i:=1 to 3 do
Readln(a[i]);
b:=a[1];
for i:=2 to 3 do
begin
if a[i]<b
then b:=a[i];
end;
writeln(b);
readln;
end.

AlexZir · 09.02.2011, 13:54

Не вижу никакого смысла распределять память под целочисленный массив и использовать циклические структуры. Достаточно определить 4 переменных, причем, так как в условии не задан тип чисел, то определить их нужно как действительные. Отсюда листинг:

Код:

var a,b,c,min:real;
begin
writeln('Enter 3 numbers separated by spaces');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('minimum of 3 numbers is',min:4:6);
readln;
end.

Эта версия программы занимает на порядок меньше оперативной памяти и работает гораздо быстрее предложенной выше.

06.02.2011, 17:37	#1 (permalink)
Jan Новичок Регистрация: 06.02.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль: найти наименьшее из трех чисел Помогите мне пожалуйста с задачкой! Дано три числа надо найти меньшее с них! Заранее спосибо!!!)))

08.02.2011, 15:22	#3 (permalink)
Mr.Програмист Banned Регистрация: 25.01.2011 Сообщений: 27 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Лови листинг и учи Паскаль Код: Var a:array[1..3] of integer; i,b:integer; begin Writeln('введите 3 числа'); for i:=1 to 3 do Readln(a[i]); b:=a[1]; for i:=2 to 3 do begin if a[i]<b then b:=a[i]; end; writeln(b); readln; end.

09.02.2011, 13:54	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Не вижу никакого смысла распределять память под целочисленный массив и использовать циклические структуры. Достаточно определить 4 переменных, причем, так как в условии не задан тип чисел, то определить их нужно как действительные. Отсюда листинг: Код: var a,b,c,min:real; begin writeln('Enter 3 numbers separated by spaces'); readln(a,b,c); min:=a; if b<min then min:=b; if c<min then min:=c; writeln('minimum of 3 numbers is',min:4:6); readln; end. Эта версия программы занимает на порядок меньше оперативной памяти и работает гораздо быстрее предложенной выше. __________________ Убить всех человеков!

06.02.2011, 17:37
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Это схожие темы, в них вы можете поискать информативные ответы Не могу найти ошибку в программе. Паскаль Выбор из трех моделей БП Что можно сделать из трех компьютеров? Паскаль. Пожалуйста, помогите найти ошибку!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070