Описать функцию sign(x) целого типа, возвращающую для вещественного числа x следующие значения: 6 — 1, если x < 0; 0, если x = 0; 1, если x > 0. с этой функции найти значение выражения sign(a) + sign(b) для данных вещественных чисел a и b.
Function Sign(x:real):integer; begin if x<0 then Sign:=-1 else if x=0 then Sign:=0 else Sign:=1; end; var a,b:real; begin writeln('a, b:'); readln(a,b); writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b)); end.
begin
if x<0 then Sign:=-1
else if x=0 then Sign:=0
else Sign:=1;
end;
var a,b:real;
begin
writeln('a, b:');
readln(a,b);
writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b));
end.
Пример:
a, b:
-8 0
Sign(A) + Sign(B) = -1