Генератор паролей (Paskal)

[Студент2009]

Здравствуйте... Задача состоит в том чтобы сделать генератор паролей... А именно вывод на экран сгенерированных 20 паролей длиной 6 символов каждая, содержащие Латинские прописные буквы(A-Z) и Русские строчные буквы(а-я). ASCII коды мне понятны: коды английских символов «A»=65,…,«Z»=90, коды русских символов «а» - 160,…, «п» - 175, «р» - 224,…, «я» - 239... Не могу сообразить как правильно реализовать цикл... У меня выводить только Латинские прописные буквы...

program IIOPOJIu;
var
   a,b,i,j:byte;
   L:array[1..6] of char;
begin
     a:=240;
     b:=240;
     writeln;
     for j:=1 to 20 do
     begin
          i:=1;
          while (i<7) do
          begin
               while (a=b) do
               begin
                     a:=random(240);
                     randomize;
               end;
               b:=a;
               if (((a>=65)and(a<=90))or(((a>=160)and(a<=175))and((a>=175)and(a<=224))and((a>=224)and(a<=239)))) then
               begin
                     L[i]:=chr(a);
                     i:=i+1;
               end;
          end;
          for i:=1 to 6 do
          write(L[i]);
          writeln;
     end;
     readln;
end.

[astecenko]

Напутали с условием, вместо кучи and-ов явно должно быть чуть-чуть or-ов. Таблицу кодов ASCII не помню, точнее не скажу

Upd
Если у Вас коды правильные то надо как-то

((a>=65) and (a<=90)) or ((a>=160) and (a<=175)) or ((a>=224) and (a<=239))

З.Ы. randomize достаточно вызываь 1 раз до входа в цикл, и не понятно зачем вы сравниваете предыдущее и следующее число (b=a) в условии задачи про неповторяемость рядом стоящих символов ничего нету, да и вероятность такой повторяемости не велика, к чему этот лишний код?

[Студент2009]

А. Точно. Спасибо.

Это выглядить так будет:

if (((a>=65)and(a<=90))or((a>=160)and(a<=175))or((a>=224)and(a<=239))) then

[Студент2009]

Исправил... Спасибо!!!

[Студент2009]

Сообщение от astecenko

З.Ы. randomize достаточно вызываь 1 раз до входа в цикл, и не понятно зачем вы сравниваете предыдущее и следующее число (b=a) в условии задачи про неповторяемость рядом стоящих символов ничего нету, да и вероятность такой повторяемости не велика, к чему этот лишний код?

Все таки возможны повторения символов...