Procedure SortString ( var m:mas; n:integer );

⇐ ПредыдущаяСтр 4 из 4

var

st:mas;

i, n:integer;

Procedure SortString ( var m:mas; n:integer );

var

min, i_min, k, i:integer;

r:St80;

begin

for k:=1 to n -1 do

begin

min := length( m[ k ] );

i_min := k;

for i:= k to n do

if length( m[ i ] ) < min then

begin

min := length( m[ i ] );

i_min := i

end ;

r := m[ k ];

m[ k ] := m[ i_min ];

m [ i_min ] := r

end

end ;

begin

writeln ( 'Введите количество строк:' );

readln ( n );

writeln ( 'Введите строки:' );

for i:=1 to n do

readln ( st[ i ] );

Writeln ( 'Исходный массив строк:' );

for i:=1 to n do

writeln ( st[ i ] );

SortString ( st, n );

Writeln ( 'Отсортированный массив строк' );

for i:=1 to n do

writeln ( st[ i ] )

end.

6. Дан массив строк. Отсортировать его строки в алфавитном порядке.

program SortAlf;

type

St80 = string [ 80 ];

mas = array [ 1..80 ] of St80;

var

st:mas;

i, n:integer;

Procedure Sort ( var m:mas; n:integer );

var

Min, sss:St80;

i, j, Jmin:integer;

begin

for i:=1 to n -1 do

begin

Min := m[ i ];

Jmin := i;

for j:= i +1 to n do

if m[ j ] < Min then

begin

Min := m[ j ];

Jmin := j

end ;

sss := m[ i ];

m[ i ] := Min;

m[ Jmin ] := sss;

end

end ;

begin

writeln ( 'Введите количество строк' );

readln ( n );

writeln ( 'Введите строки' );

for i:=1 to n do

readln (st[ i ] );

Writeln ( 'Исходный массив строк:' );

for i:=1 to n do

writeln ( st[ i ] );

Sort (st,n );

Writeln ( 'Отсортированный массив строк' );

for i:=1 to n do

writeln ( st[ i ] );

end.

⇐ Предыдущая 1 2 34