Обрисовать функцию Sign(X) целого типа, отдающую для вещественного числа X последующие

Обрисовать функцию Sign(X) целого типа, отдающую для вещественного числа X последующие значения:6 1, если X lt; 0; 0, если X = 0; 1, если X gt; 0. С поддержкою этой функции отыскать значение выражения Sign(A) + Sign(B) для данных вещественных чисел A и B.

Задать свой вопрос
1 ответ
Function Sign(x:real):integer;
begin
if xlt;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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт