Помогите составить программу на языке Турбо Паскале

помогите составить программу на паскале. 

Даны три числа a, b, c. Вычислить p=min(a, b, c). Нужно чтобы числа вводились с клавиатуры(естественно). Заранее огромное спасибо.

Лучший ответ по мнению автора

Var
p:integer;
a,b,c:integer;
function min(a:integer;b:integer;c:integer):integer;
begin
  if((a<b)AND(a<c)) then min:=a;
  if((b<a)AND(b<c)) then min:=b;
  if((c<a)AND(c<b)) then min:=c;
end;

begin
write('Введите число a = ');
readln(a);

write('Введите число b = ');
readln(b);

write('Введите число c = ');
readln©;

p:=min(a,b,c);

writeln('Минимальный элемент p = ',p);
readln;
end.

11.12.11
Лучший ответ по мнению автора

Другие ответы

function min(a:integer;b:integer;c:integer):integer;
begin
  if(a<b) then

begin

if (a<c) then min:=a

else min:=c;

end

else 

if (b<c) then min:=b

else min:=c;

end; 

 

в три раза меньше вычислений.

12.12.11

Елена Васильевна

Читать ответы

Софья Терехова

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
0 ответов
24.10.12
Вопрос задан анонимно
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store