Ввожу массив и надо, чтобы он отсортировался аналогично методу пузырька, когда большие значения спускаются вниз, а маленькие поднимаются вверх. Прошу на лишние действия и переменные не заострять внимание. Я их буду использоваться дальше.
Данные для тестирования(работа на турбо паскале):
4
4
4
3
3
2
2
1
1
---
Выводит(с плавающей точкой):
2 2
1 1
3 3
4 4
Стоит вставить сортировку повторно и тогда уже результат выдает правильный и во Фри паскале выдает ошибку. Ему что-то не нравится в переменной i, а на Турбо норм работает, но сортирует неправильно(см. выше). Извиняюсь за повторения.
---
program perimetr;
var a:array [1..10,1..3] of real;
n,i,j:integer; p,k:real;
begin
p:=0;
writeln('Vvedite kol-vo verchin(do 10)');
read(n);
for i:=1 to n do
begin
writeln('Vvedite koordinaty vershiny pod Nomerom ',i);
read(a[i,1]);
read(a[i,2]);
end;
for i:=2 to n do {сортировка_начало}
for j:=1 to 2 do
if (a[i,1]<a[i-1,1]) and (a[i,2]<a[i-1,2]) then begin
k:=a[i,1]; a[i,1]:=a[i-1,1];a[i-1,1]:=k;
k:=a[i,2]; a[i,2]:=a[i-1,2];a[i-1,2]:=k;i:=i-1;
end; {сортировка_конец}
for i:=1 to n do begin
for j:=1 to 2 do write(a[i,j]); writeln;
end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.