Напечатать все слова в алфавитном порядке

@олесяяяяя · Регистрация: 25.12.2011

Author24 — интернет-сервис помощи студентам

Дан текст, состоящий из латинских букв. Между соседними словами – не менее одного пробела; за последним словом – точка. Напечатать все слова в алфавитном порядке.

@КонецСвета · 20.03.2012, 00:54

Pascal

uses crt;
var s,sl:string;
i,j,k,m,l:integer;
a:array [1..255] of string;
 
begin
write('Stroka: ');readln(s);
if s[length(s)]<>'.' then s:=s+'.'; sl:='';
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.') then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          inc(j);
          a[j]:=sl;
          sl:='';
          end;
k:=0;
while k<=j do
begin
for i:=1 to j-1 do
    begin
    l:=1; m:=0;
    repeat
    if a[i][l]<>a[i+1][l] then inc(m);
    if a[i][l]>a[i+1][l] then
       begin
       s:=a[i];
       a[i]:=a[i+1];
       a[i+1]:=s;
       end;
    inc(l);
    until (m=1) or (l>length(a[i]));
    end;
inc(k);
end;
for i:=1 to j do
    writeln(a[i],' ');
readln;
end.

@олесяяяяя 0 / 0 / 0 Регистрация: 25.12.2011 Сообщений: 58
		1
	Напечатать все слова в алфавитном порядке 20.03.2012, 00:42. Показов 1354. Ответов 1 Метки нет (Все метки) Дан текст, состоящий из латинских букв. Между соседними словами – не менее одного пробела; за последним словом – точка. Напечатать все слова в алфавитном порядке. 0

	20.03.2012, 00:54

Напечатать все слова в алфавитном порядке

Решение