Нет индексного свойства по умолчанию для типа integer (поиск крайних точек) - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Всю плешь выела чёртова задача. День думал над тем как реализовать, день писал и переписывал с нуля. В общем, помогите, ребятки. Итак, требуется найти крайние точки(самые большие и самые малые (x;y)).

Решение задачи: «Нет индексного свойства по умолчанию для типа integer (поиск крайних точек)»

textual
Листинг программы
var
xs:array of integer;
ys:array of integer;
i,n,maxx,maxy,minx,miny:integer;
begin
readln(n);
SetLength(xs,n);
SetLength(ys,n);
if (n>=2) and (n<=100) then 
 begin
  for i:=0 to n-1 do 
   begin
     writeln ('Bведите x: ');
     readln(xs[i]);
     writeln ('Bведите y: ');
     readln(ys[i]); 
   end;
 minx:=xs[0]; maxx:=xs[0];
 miny:=ys[0]; maxy:=ys[0];
 for i:=1 to n-1 do
  begin
   if minx>xs[i] then minx:=xs[i];
   if miny>ys[i] then miny:=ys[i];
   if maxx<xs[i] then maxx:=xs[i];
   if maxy<ys[i] then maxy:=ys[i];
  end; 
  writeln('(', maxx, ';', maxy, ')'); 
  writeln('(',minx, ';', miny, ')'); 
 end 
else writeln('N/A');
 
end.

Объяснение кода листинга программы

  1. В начале кода объявляются переменные:
    • xs: массив целых чисел для хранения значений x;
    • ys: массив целых чисел для хранения значений y;
    • i, n, maxx, maxy, minx, miny: целочисленные переменные для цикла и хранения минимальных и максимальных значений.
  2. Пользователю предлагается ввести количество точек (n).
  3. Проверка на корректность введенного значения n: от 2 до 100.
  4. Цикл for для считывания значений x и y для каждой точки.
  5. Инициализация переменных minx, maxx, miny, maxy первыми введенными значениями.
  6. Цикл for для поиска минимальных и максимальных значений x и y среди всех точек.
  7. Вывод на экран найденных минимальных и максимальных значений.
  8. Если n не соответствует заданному диапазону, выводится сообщение N/A.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы