Question

среди трех точек с координатами (x1,y1) (x2,y2),(x3y3), определить количетво точек, лежащих во второй четверти и вывести на экран их координаты, плз помогите, инфа, Паскаль

Answer 1

count := 0; if x1<0 and y1>0 then begin Inc(Count); Write(x1,' ',y1,' '); end; if x2<0 and y2>0 then begin Inc(Count); Write(x2,' ',y2,' '); end; if x3<0 and y3>0 then begin Inc(Count); Write(x3,' ',y3,' '); end; WriteLn; WriteLn(Count);

Answer 2

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

pascalCopy code
program PointsInSecondQuadrant;

type
  Point = record
    x, y: Real;
  end;

var
  points: array [1..3] of Point;
  i, count: Integer;

begin
  // Ввод координат трех точек
  for i := 1 to 3 do
  begin
    WriteLn('Введите координаты точки ', i, ':');
    Write('x: ');
    ReadLn(points[i].x);
    Write('y: ');
    ReadLn(points[i].y);
  end;

  // Подсчет точек во второй четверти и вывод их координат
  count := 0;
  WriteLn('Точки во второй четверти:');
  for i := 1 to 3 do
  begin
    if (points[i].x < 0) and (points[i].y > 0) then
    begin
      count := count + 1;
      WriteLn('Точка ', i, ': (', points[i].x:0:2, ', ', points[i].y:0:2, ')');
    end;
  end;

  WriteLn('Количество точек во второй четверти: ', count);
end.

Эта программа позволяет вам ввести координаты трех точек и затем определит, сколько из них находятся во второй четверти (x < 0 и y > 0). Также она выведет координаты этих точек и количество точек в этой четверти.