Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помщь в решении массива необходима....
помщь в решении массива необходима....
Дан массив, содержащий n строк. Отсортировать первые р элементов массива по возрастанию текущих длин строк.
1 | Автор: Omsk-champion | 2009-04-08, 22:09   |  Репутация: [ + 0 ]
1 | Автор: Omsk-champion | 2009-04-08, 22:09   |  Репутация: [ + 0 ]
Сделал сортировку выбором:

program sort;
uses crt;
CONST
n=10;
var mas:array [1..n] of string;
i,p,k:integer;
j:string;

begin
clrscr;
WriteLn ('Vvedite elementu masiva:');
for i:=1 to n do
ReadLn (mas[i]);
writeLn ('--------------------------------');
Write ('Vvedite P:');
Readln (p);
for i:=1 to p do
begin
for k:=i to (p-1) do
begin
j:=mas[i];
if (ord(j[0]))>(ord(mas[k+1][0])) then
begin
mas[i]:=mas[k+1];
mas[k+1]:=j;
end;
end;
Writeln (mas[i]);
end;
readkey;
end.


Удваивается не в четыре, а в три раза!
2 | Автор: RedWoLF | 2009-06-04, 11:44   |  Репутация: [ + 3 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помщь в решении массива необходима....
Страница 1 из 11
Поиск: