Нет индексного свойства по умолчанию для типа 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.
Объяснение кода листинга программы
- В начале кода объявляются переменные:
- xs: массив целых чисел для хранения значений x;
- ys: массив целых чисел для хранения значений y;
- i, n, maxx, maxy, minx, miny: целочисленные переменные для цикла и хранения минимальных и максимальных значений.
- Пользователю предлагается ввести количество точек (n).
- Проверка на корректность введенного значения n: от 2 до 100.
- Цикл for для считывания значений x и y для каждой точки.
- Инициализация переменных minx, maxx, miny, maxy первыми введенными значениями.
- Цикл for для поиска минимальных и максимальных значений x и y среди всех точек.
- Вывод на экран найденных минимальных и максимальных значений.
- Если n не соответствует заданному диапазону, выводится сообщение
N/A
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д