|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.02.2016, 12:46 | #1 |
Пользователь
Регистрация: 07.02.2015
Сообщений: 22
|
Не получается сортировка методом пузырька
1.Описать массив записей, содержащий следующие поля:
номер планеты по удалению от Солнца; название планеты; диаметр; сортировка по диаметру методом пузырька. Код:
Последний раз редактировалось Аватар; 07.02.2016 в 13:28. |
07.02.2016, 13:32 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
07.02.2016, 13:53 | #3 |
Пользователь
Регистрация: 07.02.2015
Сообщений: 22
|
uses crt;
type mas=record nazv:string[30]; nom,dim:integer; end; mass=array [1..20] of mas; var a:mass; i,n,j:integer; procedure puz(a:mass;n:integer); var flag:boolean; tmp:mas; begin for i:=1 to n-1 do begin flag:=false; for j:=i+1 to n do begin if a[i].dim>a[j].dim then begin tmp:=a[i]; a[i]:=a[j]; A[j]:=tmp; flag:=true; end; if flag=false then; break; end; i:=i+1; end; end; procedure vivod(a:mass;n:integer); begin for i:=1 to n do writeln(a[i].dim); end; begin clrscr; writeln('Заполните данные о планетах'); write('Введите кол-во планет: '); read(n); for i:=1 to n do begin writeln(i,'-я планета'); write('-номер планеты:'); readln(a[i].nom); write('-название планеты:'); readln(a[i].nazv); write('-диаметр:'); readln(a[i].dim); end; writeln; puz(a,n); vivod(a,n); readln; end. не работает |
07.02.2016, 13:57 | #4 |
Пользователь
Регистрация: 07.02.2015
Сообщений: 22
|
uses crt;
type mas=record nazv:string[30]; nom,dim:integer; end; mass=array [1..20] of mas; var a:mass; i,n,j:integer; procedure puz(a:mass;n:integer); var flag:boolean; tmp:mas; begin for i:=1 to n-1 do begin flag:=false; for j:=i+1 to n do if A[i].dim>a[j].dim then begin tmp:=a[i]; a[i]:=a[j]; A[j]:=tmp; flag:=true; end; if flag=false then break; end; end; procedure vivod(a:mass;n:integer); begin for i:=1 to n do writeln(a[i].dim); end; begin clrscr; writeln('Заполните данные о планетах'); write('Введите кол-во планет: '); read(n); for i:=1 to n do begin writeln(i,'-я планета'); write('-номер планеты:'); readln(a[i].nom); write('-название планеты:'); readln(a[i].nazv); write('-диаметр:'); readln(a[i].dim); end; writeln; puz(a,n); vivod(a,n); readln; end. не работает программа Последний раз редактировалось dvpvitas; 07.02.2016 в 14:04. |
07.02.2016, 15:11 | #5 | |
Форумчанин
Регистрация: 25.01.2015
Сообщений: 472
|
Цитата:
|
|
07.02.2016, 16:55 | #6 |
Пользователь
Регистрация: 07.02.2015
Сообщений: 22
|
я знаю что там ошибка нужно её исправить
|
07.02.2016, 20:38 | #7 |
Форумчанин
Регистрация: 25.01.2015
Сообщений: 472
|
Это правильно. И ещё правильнее - ограничиться фразой "не работает программа".
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка массива методом пузырька | ХардХэви | Общие вопросы C/C++ | 9 | 03.06.2013 18:24 |
Сортировка методом пузырька | marina12 | Помощь студентам | 1 | 13.04.2013 16:04 |
сортировка методом пузырька в делфи7 | dragodar | Помощь студентам | 2 | 05.11.2012 19:25 |
Сортировка методом пузырька | fygas1991 | Общие вопросы C/C++ | 5 | 15.11.2009 21:39 |
сортировка методом двухпроходного пузырька. | Net* | Общие вопросы C/C++ | 3 | 26.05.2008 07:17 |