Регистрация
балуева2007
19.09.2022 10:31
Информатика
Есть ответ 👍

(Работа с подпрограммами Pascal)
Что не так с программой? В чем ошибка?
program primer1;
Procedure f (u:real; var c:real);
begin
if u<0 then c:=-1 else if u>0 then c:=1 else c:=0;
end;
Var a,b,z,f1,f2:real;
begin
writeln ('a=');readln (a);
writeln ('b=');readln (b);
f(sqr(a)*sign(a+b)+sqr(b)*sign(a-b),f1);
f(sign(a*b),f2);
z:=f1*f2;
writeln ('z=',z:6:3);
readln
end.

211
334
Посмотреть ответы 1

Ответы на вопрос:

Remus1
Remus1
4,8(72 оценок)
A=3, b=2, c=1   if (a > b) m = a; else   if (с > b) m = с; else   m = b;  

Популярно: Информатика