С клавиатуры вводят два слова, каждое из которых распологается на одной строке. Составте программу, которая выводит эти слова в алфавитном порядке

26 мая 2012

С клавиатуры вводят два слова,каждое из которых распологается на одной строке.Составте программу,которая выводит эти слова в алфавитном порядке.

  • Пример на паскале держи:
    Var s,sl:string;
       
    A:array[1..30] of string;//массив строк, который будет хранить слова
    n,i,j:byte;

    Begin
       
    write(‘Введите строку: ‘);
    readln(s);
       
    s:=s+’ ‘;n:=0;
       
    While Pos(‘ ‘,s)>0 do
       
    Begin
         
    if Copy(s,1,Pos(‘ ‘,s)-1)<>» then
         
    Begin
           
    inc(n);
           
    A[n]:=Copy(s,1,Pos(‘ ‘,s)-1);
         
    End;
         
    Delete(s,1,Pos(‘ ‘,s));
       
    End;
       
    For i:=n downto 2 do
       
    For j:=2 to i do
         
    if A[j]<A[j-1] then
         
    Begin
           
    sl:=A[j];
           
    A[j]:=A[j-1];
           
    A[j-1]:=sl;
         
    End;
       
    For i:=1 to n do
        
    s:=s+A[i]+’ ‘;
       
    writeln(‘В алфовитном порядке = ‘,s);
       
    readln;

    End.

Комментарии

Добавить комментарий

Ваш e-mail не будет опубликован.