смысл вот в чем:
вводится с клавиатуры массив строк заданного размера, размер каждой строки тоже задан
необходимо отсортировать строки так чтобы буквы располагались по алфавиту по диагонали от а до я к примеру
вот так выглядит:
вводим
bcfd
adeh
cbfh
edcc
а получить должны вот что
adeh
cbfh
edcc
bcfd
если кол-во слов больше чем длина слова, то лесенка должна пойти в другую сторону, например вот так
aaaa
bbbb
cccc
dddd
eeee
gggg
hhhh
kkkk
слова не попадающие сюда выписать отдельно
вот что у меня получилось пока, вывел только сортировку по буквам, а как теперь вывести новый массив не могу понять
Program sort;
Uses crt;
Const
bukvi=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
Var
n,m,i,s,j,k,l,b,c: integer;
A: array[0..100] of string;
simv,sg,str:string;
bg:char;
{________zadanie nachalnih dannih__________________}
{}Begin
{} clrscr;
{} write('vvedite razmer massiva: ');
{} readln(n);
{} write('vvedite dlinu slova: ');
{} readln(s);
{} for i:=1 to n do begin
{} write('vvedite ',i,' element: ');
{} readln(a[i]);
{} if length(a[i])<>s then
{} begin
{} writeln('nevernoe kol-vo simvolov');
{} i:=i-1;
{} end;
{} end;
{----------------------------------------------------------------------------------------------}
writeln;
{-------------vivod ishodnogo massiva---------------------}
{}writeln('poluchennii massiv strok: ');
{}for i:=1 to n do
{}writeln(a[i]);
writeln;
{----------------------------------------------------------------------------}
{---------sortirovka-----------}
for j:=1 to s do {proveryaem bukvi}
begin
sg:='';
for i:=j to n do {cikl na stroki}
begin
sg:=sg+a[i,j];
end;
writeln(sg);
for k:=2 to Length(SG) do
begin
for l:= Length(sG) downto k do
begin
if SG[l-1]>SG[l] then
begin
bG:=SG[l-1];
SG[l-1]:=SG[l];
SG[l]:=bG;
end;
end;
{ readln;}
end;
writeln(SG);
writeln;
readln;
end;
readln;
end.
| М | Теги!! Правила Форума, п.5, и правила раздела Задачи, п.2 |