Question

РЕБЯТААА!!!!!ПОМОГИТЕ ПОЖАЛУЙСТАААААА!!!!!!! СОСТАВИТЬ ПРОГРАММУ ПАСКАЛЬ. ВВЕСТИ КООРДИНАТЫ ДВУХ ТОЧЕК НА ПЛОСКОСТИ ,НА ЭКРАН ВЫВЕСТИ НОМЕР ЧЕТВЕРТИ КООРДИНАТНОЙ ПЛОСКОСТИ. ЗАРАНЕЕ СПАСИБО!!!!!!!!

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

procedure LocationPrint(x, y: real);

begin

 if x = 0 then

   if y = 0 then Writeln('Начало координат')

   else Writeln('Ось Y')

 else

 if y = 0 then Writeln('Ось X')

   else

 if x > 0 then

   if y < 0 then Writeln('Четвертая четверть')

   else Writeln('Первая четверть')

     else

 if y < 0 then Writeln('Третья четверть')

 else Writeln('Вторая четверть')

end;

begin

 loop 2 do

 begin

   var (x, y) := ReadReal2('Введите координаты x и y:');

   LocationPrint(x, y)

 end

end.

Answer 2

Вот так например:

program find_quarter;

var x, y: real;

begin

read(x);

read(y);

if (x > 0) and (y > 0) then writeln('1')

else if (x < 0) and (y > 0) then writeln('2')

else if (x < 0) and (y < 0) then writeln('3')

else writeln('4');

end.

Answer 3

Конечно, я помогу вам составить программу на языке Pascal для определения номера четверти координатной плоскости. Вот пример программы:

pascalCopy code
program QuarterNumber;

var
  x, y: real;
  quarter: integer;

begin
  writeln('Введите координаты двух точек на плоскости:');
  
  // Ввод координат первой точки
  write('Введите координату x первой точки: ');
  readln(x);
  write('Введите координату y первой точки: ');
  readln(y);
  
  // Определение четверти для первой точки
  if (x > 0) and (y > 0) then
    quarter := 1
  else if (x < 0) and (y > 0) then
    quarter := 2
  else if (x < 0) and (y < 0) then
    quarter := 3
  else if (x > 0) and (y < 0) then
    quarter := 4
  else
    quarter := 0; // Точка лежит на оси или в начале координат

  writeln('Номер четверти для первой точки: ', quarter);
  
  // Ввод координат второй точки
  write('Введите координату x второй точки: ');
  readln(x);
  write('Введите координату y второй точки: ');
  readln(y);
  
  // Определение четверти для второй точки
  if (x > 0) and (y > 0) then
    quarter := 1
  else if (x < 0) and (y > 0) then
    quarter := 2
  else if (x < 0) and (y < 0) then
    quarter := 3
  else if (x > 0) and (y < 0) then
    quarter := 4
  else
    quarter := 0; // Точка лежит на оси или в начале координат

  writeln('Номер четверти для второй точки: ', quarter);
end.

Программа позволяет пользователю ввести координаты двух точек на плоскости и выводит номер четверти координатной плоскости для каждой из них. Обратите внимание, что программа не обрабатывает случай, когда точка лежит на оси или в начале координат, и в таком случае будет выводиться 0.