Все слова в тексте отсортировать в алфавитном порядке. Считать, что слова отделены друг от друга одним пробелом — Pascal(Паскаль)

uses wincrt;
 Var
    t,t1:String[35];v,S,Min:String[15];
    w:array[1..10] of String[15];
    n,m,k,k1,i,j,MinN:Integer;
Begin
  t:='мама мыла раму с мылом';
  t1:=t;
  k:=0;  i:=0;
  WriteLn('Неупорядоченные слова');
  Repeat
    i:=i+1;
    k:=1;
    m:=Length(t1);
    k1:=Pos(' ',t1);
    if k1<>0
       Then
         Begin
          v:=Copy(t1,k,k1-1);
          Delete(t1,k,k1);
         End
       Else
          v:=Copy(t1,k,m);
    w[i]:=v;
    WriteLn (w[i]);
  Until k1=0;
  n:=i;
  For i:=1 to n-1 Do
    Begin
     Min:=w[i];MinN:=i;
   For j:=i+1 to n Do
       If w[j]<Min
          Then Begin Min:=w[j];MinN:=j;End;
     S:=w[i];w[i]:=Min;w[MinN]:=S;
    End;
  WriteLn('Упорядоченные по алфавиту слова ');
  For i:=1 to n Do
    WriteLn(w[i]);
End.

Leave a Comment

36 − 29 =