объяснение задачи

[Екатерина Воробей]

Объясните пожалуйста, как работает эта задача.

Program kati_mn;
Uses Crt;
Var i:integer;
    a:array[1..80] of char;
    j:integer;
    s:array[1..80] of char;
    g:integer;
    b:char;
Begin
     Clrscr;
     Writeln('vvedi posledovtelnost simvolov');
     i:=1;
     While b<>'.' do
     Begin
          Readln(b);
          s[i]:=b;
          i:=i+1;
     End;
     j:=0;
     For i:=1 to Length(s) do
         If (s[i]>'Ђ') and (s[i]<'с') Then
         Begin
              j:=j+1;
              a[j]:=s[i];
         End;


     If j<>0 Then
     Begin
     For i:=1 to j do
         For g:=i+1 to j do
             If a[i]>a[g] Then
             Begin
                  b:=a[i];
                  a[i]:=a[g];
                  a[g]:=b;
             End;
     For i:=1 to j do Write(' ',a[i]);
     End;
     Readkey;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[rubius2008]

вводится строка, которая заканчивается точкой, потом создается какая-то последовательность символов (строка) из введенной строки (тут не совсем понятное условие, видимо при копирование текста символы поменялись в условии), которая упорядочивается по возрастанию.

[puporev]

Программа написана несколько неточно, вот исправленный вариант.

Program kati_mn;
Uses Crt;
const rb=['А'..'п','р'..'ё'];{Множество русских букв в Турбо Паскале, таблица ASCII}
Var n,m,i,j,g:integer;
    a:array[1..80] of char;{Массив символов}
    s:array[1..80] of char;
    b:char;
Begin
Clrscr;
Writeln('vvedi posledovtelnost simvolov');
n:=0;{размер исходного масива}
repeat
  b:=readkey;{читаем символ}
  write(b);{выводим}
  n:=n+1;{считаем}
  s[n]:=b;{пишем в исходный массив}
  if (b='.') or (n=80) then writeln;{если точка или 80 символов, на новую строку}
until (b='.') or (n=80);{заканчиваем ввод}
m:=0;{размер массива русских букв}
For i:=1 to n do
If s[i] in rb Then{если русская буква}
 Begin
  m:=m+1;{считаем}
  a[m]:=s[i];{пишем в новый массив}
 End;
if m=0 then write('Русских букв нет')
else
 begin
  For i:=1 to m-1 do{сортируем по возрастанию кодов символов}
  For g:=i+1 to m do
  If a[i]>a[g] Then
   Begin
    b:=a[i];
    a[i]:=a[g];
    a[g]:=b;
   End;
  For i:=1 to m do Write(' ',a[i]);{выводим отсортированный массив русских букв}
 End;
Readkey;
End.

[Alex11223]

http://programmersforum.ru/showthread.php?t=168245 а в чем отличие от этой темы?

[Serge_Bliznykov]

тема отличается от предыдущей только тем, что вместо строки используется s:array[1..80] of char
ну и readln(s) заменён на цикл чтения и заполнения массива...

Считаю эту тему КРОССПОСТОМ!

ЗАКРЫТО!