Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1 2 3 4 5 6 7 8 9 10 11 12 13 uses crt; var x,y:real; begin writeln('Введите координаты точки:'); read(x,y); if(x=0)and(y=0) then write('В начале координат') else if(x=0)and(y<>0) then write('На оси Y') else if(x<>0)and(y=0) then write('На оси X') else if(x>0)and(y>0)then write('I четверть') else if(x<0)and(y>0)then write('II четверть') else if(x<0)and(y<0)then write('III четверть') else write('IV четверть'); end.
Language: BASIC
Code:
uses crt;
var x,y:real;
begin
writeln('Введите координаты точки:');
read(x,y);
if(x=0)and(y=0) then write('В начале координат')
else if(x=0)and(y<>0) then write('На оси Y')
else if(x<>0)and(y=0) then write('На оси X')
else if(x>0)and(y>0)then write('I четверть')
else if(x<0)and(y>0)then write('II четверть')
else if(x<0)and(y<0)then write('III четверть')
else write('IV четверть');
end.
          
Comments: