Строки Опции

[-Rudolf-]

задача:"Напечатать в алфавитном порядке, все различные строчные русские буквы входящие в заданный текст". Я решил задачу, но только для английских букв, т.к. у меня Pascal не поддерживвает кириллицу. Подскажите будет ли этот алгоритм верен и для русских букв:

Код

Program A7;
var c:char;
    st1:string[5];
    m,i,j:Integer;
Begin
      readln(st1);
      for i:=5 downto 2 do
      begin
      m:=1;
       for j:=2 to i do
        if ord(st1[i])>=ord(st1[m]) then m:=j;
      c:=st1[i];st1[i]:=st1[m];st1[m]:=c;
      end;
      writeln(st1);
      readln;
end.

[volvo]

-Rudolf-,
нет... Более того, он неверен даже для латинских букв... Пример текста, с которым этот алгоритм НЕ сработал: "start"
Что должно вывести? А вывело "atrst"...

[Lapp]

А вообще, если нужно проверить такую вещь, а IDE не поддерживает русский - просто скомпилируй программу, выйди из паскалевской среды и запусти экзешник прямо в командной строке. Все должно работать (если прога правильная).

[-Rudolf-]

Иправил алгоритм, но не знаю как применить его для русских букв:

Код

Program A7;
var st:string[5];
    c: char;
    i,j:integer;
begin
     readln(st);
     for i:=1 to 4 do
        for j:=i+1 to 5 do
          if ord(st[j])<ord(st[i]) then begin
                                         c:=st[j];
                                         st[j]:=st[i];
                                         st[i]:=c;
                                          end;
    writeln(st);
    readln;
end.

[volvo]

Алгоритм по-прежнему не работает... Вот так правильно:

Program A7;
var
  st1: string;
  T: char;
  i, j: integer;
Begin
  readln(st1);
  for i := 1 to length(st1) do
    for j := length(st1) downto i + 1 do
      if st1[j - 1] > st1[j] then begin { < }
        T := st1[j - 1]; st1[j - 1] := st1[j]; st1[j] := T
      end;

  { Удаляем все дубликаты букв }
  i := 2;
  while i <= length(st1) do
    if st1[i] = st1[i - 1] then delete(st1, i, 1)
    else inc(i);

  writeln(st1);
  readln;
end.

А у тебя опять же при слове "start" буква "t" дублируется... Эта же программа должна работать и с кириллицей...