Регистрация
ааааааа59
21.12.2022 23:09
Информатика
Есть ответ 👍

Составить приложение на языке pascal.определить в какую четверть координатной плоскости попала точка с координатами (x,y). переменной n присвоить номер четверти. если точка попала в начало координат, то n=0. если точка
попала на ось x или y, то напечатать сообщение об этом.

116
145
Посмотреть ответы 2

Ответы на вопрос:

Karina1155
Karina1155
4,6(94 оценок)

 

 

uses  crt;

var  x,y: real;

n: integer;

begin

clrscr;

writeln('введите координаты точки: ');

readln(x,y);

if(x=0)and(y< > 0) then write('точка попала на ось y')

else if (x< > 0)and(y=0) then write('точка попала на ось х')

else

begin

  else  if  (x> 0)and(y> 0)then  n: =1

  else  if  (x< 0)and(y> 0)  then  n: =2   

  else  if  (x< 0)and(y< 0)  then  n: =3     

  else  if(x> 0)and(y< 0)  then  n: =4

  write('n=',n);  

  end;  

  readln  end.

Zombie1466
Zombie1466
4,5(30 оценок)

ответ:

program s_2;

var a, b: real ;

begin  

writeln (' введите 1 и 2 число> > ') ;

readln ( a,b ) ;

if a> b ;

then a: = a-10 ;

else b: = b*2 ;

writeln ('ответ') ;

writeln ('первое число = ', a) ;

writeln ('второе число = ', b);

объяснение:

Популярно: Информатика