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

Proc23. Описать функцию Quarter($$x$$, $$y$$) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами ($$x$$, $$y$$). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.

Решение:

program Proc23;

Function Quarter(X,Y:Real):Integer;

begin

if (X>0) and (Y>0) then Quarter:=1;

if (X<0) and (Y>0) then Quarter:=2;

if (X<0) and (Y<0) then Quarter:=3;

if (X>0) and (Y<0) then Quarter:=4;

end;

var

X,Y:Real;

i:Integer;

begin

for i:=1 to 3 do

begin

Write('X :');

Readln(X);

Write('Y :');

Readln(Y);

Writeln(Quarter(X,Y));

end;

end.

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

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

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

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