Ветвление

[cerega87]

Ветвление. Как написать программу на паскале)) типа даны вещественные координатные точки,не лежащей на координатных осях Ох и Оу. Вывести номер координатной четверти,в которой находится точка.

[ROMA2PVT]

А взять координатный круг и посмотреть как это будет не пробовали?

[ROMA2PVT]

          if (x>0) and (y>0) then  writeln('Точка лежит в I четверти');
          if (x<0) and (y>0) then  writeln('Точка лежит в II четверти');
          if (x<0) and (y<0) then  writeln('Точка лежит в III четверти');
          if (x>0) and (y<0) then  writeln('Точка лежит в IV четверти');
          if (x=0) and (y=0) then  writeln('Точка лежит в начале координат');
          if (x=0) and (y<>0)then  writeln('Точка лежит на оси X');
          if (y=0) and (x<>0)then  writeln('Точка лежит на оси Y');

[cerega87]

а как начало и конец писать программы? А то мы ток начали проходить) Скажите пожалуйста)

[ROMA2PVT]

Uses
   CRT;
var
  x,y:real;
begin
clrscr;
 write('Введите первую координату X: ');
   readln(x);
    write('Введите вторую координату Y: ');
     readln(y);
          if (x>0) and (y>0) then  writeln('Точка лежит в I четверти');
          if (x<0) and (y>0) then  writeln('Точка лежит в II четверти');
          if (x<0) and (y<0) then  writeln('Точка лежит в III четверти');
          if (x>0) and (y<0) then  writeln('Точка лежит в IV четверти');
          if (x=0) and (y=0) then  writeln('Точка лежит в начале координат');
          if (x=0) and (y<>0)then  writeln('Точка лежит на оси X');
          if (y=0) and (x<>0)then  writeln('Точка лежит на оси Y');
     readkey;
end.

[cerega87]

спасибо огромное)