Борисов
5 год назад
Описать функцию Sign(X) целого типа, возвращающую для вещественного числа Xследующие значения:6 — 1, если X < 0; 0, если X = 0; 1, если X > 0. С помощью этой функции найти значение выражения Sign(A) + Sign(B) дляданных вещественных чисел A и B.
ОТВЕТЫ
Elenka
Oct 24, 2020
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.
Пример:
a, b:
-8 0
Sign(A) + Sign(B) = -1
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
313
Смежные вопросы:
