Предмет: Информатика,
автор: covtunvictoria
Напишите функцию function min (a,b,c,d: integer):integer (Pascal), находящую наименьшее из четырех данных чисел.
Ответы
Автор ответа:
1
function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;
covtunvictoria:
Встречено '.', а ожидалось ';' высвечивает эту ошибку.
А в какую программу ты её вставляешь? У меня тут точек вообще нет.
Pascal.
Ты мне текст программы целиком со вставленной в неё функцией напиши. И в какой строке ошибка.
Я поняла. Тебе нужна не функция, а программа с функцией.
var a,b,c,d: integer;
function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;
begin
write('Введите числа: ');
readln(a,b,c,d);
writeln(min(a,b,c,d))
end.
function min(a,b,c,d: integer): integer;
begin
if a>b then a:=b;
if a>c then a:=c;
if a>d then a:=d;
min:=a
end;
begin
write('Введите числа: ');
readln(a,b,c,d);
writeln(min(a,b,c,d))
end.
Спасибо. Теперь всё работает.))
Конечно работает. Но ты просил функцию, а не программу с ней. Не предполагала, что использовать не сможешь.
Интересные вопросы
Предмет: Алгебра,
автор: annafilinuk0
Предмет: Информатика,
автор: ivan5576
Предмет: Литература,
автор: Аноним
Предмет: История,
автор: ЧеLOVEчекТата
Предмет: Математика,
автор: 123шаман123