Решаем задачи Абрамян на Паскале. Proc 16

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

Решение:

program Proc16;

Function Sign(X:Real):Integer;
begin
if X<0 then Sign:=-1;
if X=0 then Sign:=0;
if X>0 then Sign:=1;
end;

var
  A,B:Real;

begin
  Write('A :');
  Readln(A);
  Write('B :');
  Readln(B);
  Writeln(Sign(A)+Sign(B));
end.

program Proc16;

Function Sign(X:Real):Integer;

begin

if X<0 then Sign:=-1;

if X=0 then Sign:=0;

if X>0 then Sign:=1;

end;

var

A,B:Real;

begin

Write('A :');

Readln(A);

Write('B :');

Readln(B);

Writeln(Sign(A)+Sign(B));

end.

Другие задачи из раздела Proc можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Proc 16

Комментарии:

Добавить комментарий Отменить ответ