Страница 1 из 1
Помогите с задачкой
Добавлено: 05 фев 2008, 09:49
bu4a
Нужно написать программу на языке Паскаль (или С++), реализующую сортировку целочисленного массива методом пузырька. Массив заполняется из файла unsort.txt, отсортированный массив сохраняется в файле sort.txt. Массив состоит из 20 чисел. Помогите кому нетрудно
Например, так
Добавлено: 05 фев 2008, 10:06
BBB
Код: Выделить всё
const ITEMS_QTY = 20;
var Arr : array [1 .. ITEMS_QTY] of integer;
var blChanged : boolean;
iLoop : integer;
iTmp : integer;
begin
{ ......... заполнение массива Arr ...............}
{ сортируем по возрастанию }
repeat
blChanged:=FALSE; { Перестановок пока не было }
for iLoop:=1 to (ITEMS_QTY-1) do begin
if (Arr [iLoop] > Arr [iLoop+ 1]) then begin
iTmp := Arr [iLoop];
Arr [iLoop] := Arr [iLoop + 1];
Arr [iLoop + 1] := iTmp;
blChanged:=TRUE;
end;
end;
until (NOT blChanged);
end.
Re: Помогите с задачкой
Добавлено: 05 фев 2008, 11:59
Хыиуду
Читай раздел "Алгоритмы"
Re: Помогите с задачкой
Добавлено: 05 фев 2008, 13:11
Dim...ON
суть BBB тебе изложил (это при условии, что ты сам немного умеешь писать на этих языках)
если совсем с языками туго... то пиши на 198-012-696, может найду лишнее время, помоч