Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Массив по возрастанию
Автор: Guest 31.10.2004 1:39
Есть массив чисел (любой, заполните его любыми извест. способами). Распечатать этот массив по возрастанию - т.е. сначала минимальный элемент, и т.д. по возрастанию.
Вот наброски.А как дальше?могу тока найти минимальное число:
Код
program l;
var
m:array[1..4]of integer;
i:byte;
min:integer;
begin
writeln('‚ўҐ¤ЁвҐ 4 зЁб« :');
for i:=1 to 4 do
begin
write('‚ўҐ¤Ё зЁб«®#',i,' ');
readln(m[i]);
end;
min:=m[1];
for i:=1 to 4 do
if min >m[i] then min:=m[i];
write(min);
readln;
end.
var
m:array[1..4]of integer;
i:byte;
min:integer;
begin
writeln('‚ўҐ¤ЁвҐ 4 зЁб« :');
for i:=1 to 4 do
begin
write('‚ўҐ¤Ё зЁб«®#',i,' ');
readln(m[i]);
end;
min:=m[1];
for i:=1 to 4 do
if min >m[i] then min:=m[i];
write(min);
readln;
end.
Если не сложно подскажите!
Автор: Amro 31.10.2004 1:58
Можно использовать любой метод сортировки, например пузырьковая
Код
Program BubbleSort;
uses crt;
Const N=20;
Var mas : array[1..100] of integer;
i,j,p : integer;
Begin
clrscr; randomize;
for i:=1 to N do begin
mas[i]:=random(99); write(mas[i]:3); end;
{сортировка данных}
for i:=1 to N do
for j:=1 to N-i do
if mas[j]>mas[j+1] then
begin {Обмен элементов}
p:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=p;
end;
{Вывод отсортированного массива}
writeln;
for i:=1 to N do
write(mas[i]:3);
End.
uses crt;
Const N=20;
Var mas : array[1..100] of integer;
i,j,p : integer;
Begin
clrscr; randomize;
for i:=1 to N do begin
mas[i]:=random(99); write(mas[i]:3); end;
{сортировка данных}
for i:=1 to N do
for j:=1 to N-i do
if mas[j]>mas[j+1] then
begin {Обмен элементов}
p:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=p;
end;
{Вывод отсортированного массива}
writeln;
for i:=1 to N do
write(mas[i]:3);
End.
Автор: Флогримм 31.10.2004 9:55
Guest, скачай книгу http://www.programmerz.narod.ru/books/tp4_prof.zip, там есть описание нескольких алгоритмов сортировки
написана доступно