Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ СРОЧНО!!))) Составить программу Паскаль Ввести координаты двух точек на плоскости ,на экран вывести номер четверти координатной плоскости.

Answer 1

program DotsAndKvadrants;

type

 dot = record

   x, y: real;

 end;

begin

 var n := 2;

 var a := new dot[n];//массив из точек

 for var i := 0 to n - 1 do

 begin

   (a[i].x, a[i].y) := ReadlnReal2($'Введите через пробел координаты {i+1} точки:');

   if a[i].x * a[i].y <> 0 then

   begin

     Write('Точка ', a[i], ' расположена в');

     if a[i].x * a[i].y > 0 then  

       if a[i].x > 0 then writeln(' 1-ом квадранте')

       else writeln(' 3-ем квадранте')

     else if a[i].x > 0 then writeln(' в 4-ом квадранте')

     else writeln('о 2-ом квадранте');

   end

   else if a[i].x = 0 then

     if a[i].y = 0 then

       Writeln('точка ', a[i], ' - начало координат')

     else Writeln('точка ', a[i], ' лежит на оси OX')

   else Writeln('точка ', a[i], ' лежит на оси OY')

 end;

end.

Answer 2

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

pascalCopy code
program CoordinatesQuadrant;

var
  x1, y1, x2, y2: real;

begin
  writeln('Введите координаты первой точки:');
  write('x1 = ');
  readln(x1);
  write('y1 = ');
  readln(y1);
  
  writeln('Введите координаты второй точки:');
  write('x2 = ');
  readln(x2);
  write('y2 = ');
  readln(y2);
  
  if (x1 > 0) and (y1 > 0) then
    writeln('Первая точка находится в первой четверти.');
  if (x1 < 0) and (y1 > 0) then
    writeln('Первая точка находится во второй четверти.');
  if (x1 < 0) and (y1 < 0) then
    writeln('Первая точка находится в третьей четверти.');
  if (x1 > 0) and (y1 < 0) then
    writeln('Первая точка находится в четвертой четверти.');
  
  if (x2 > 0) and (y2 > 0) then
    writeln('Вторая точка находится в первой четверти.');
  if (x2 < 0) and (y2 > 0) then
    writeln('Вторая точка находится во второй четверти.');
  if (x2 < 0) and (y2 < 0) then
    writeln('Вторая точка находится в третьей четверти.');
  if (x2 > 0) and (y2 < 0) then
    writeln('Вторая точка находится в четвертой четверти.');
end.

В этой программе сначала запрашиваются координаты первой точки, затем координаты второй точки. Затем программа проверяет, в какой четверти находятся обе точки, и выводит соответствующее сообщение.