Pascal help

[OvErRiD3]

Значи нуждая се от малко помощ относно една програма за извеждане на пароли с паскал

аз стигнах до тук :

Program PassGenerator;

uses Crt;



Procedure PassGen(n : integer);

var

i : integer;

s : string;

begin

randomize;



if (n = 1) then

for i:= 1 to 15 do

write(random(10))



else if (n = 2) then

for i := 1 to 15 do

write(chr(random(25) + 97))



else if (n = 3) then

for i := 1 to 15 do

begin

if (random(100) mod 2 = 1) then

write(chr(random(10) + 48))

else

write(chr(random(25) + 97));

end;



writeln;

end;



procedure PrintTxt;

begin

writeln('1.Parola ot cifri');

writeln('2.Parola ot bukvi');

writeln('3.Parola ot cifri i bukvi');

writeln('4.Izhod');

writeln;

end;



var

i,n : integer;

begin

repeat

PrintTxt;

write('Izbor:'); readln(n);

if (n <> 4) then

begin

PassGen(n);

writeln('Press any key to continue...');

readln;

clrscr;

end;

until (n = 4);

end.





самоче трябва да се направи така че когато се избере 3 да изкарва пас от малки и голями букви + цифри

проблема е че незнам как []

[SAGE]

<pre id='pre'><font size=2>

var c:Char;

......

for i := 1 to 15 do begin

repeat

c:=chr(random(255));

until (c in ['0'..'9','A'..'z','А'..'я']);

end;

....

</font></pre id='pre'>



Това ще работи на Delphi, за паскал не съм сигурен.[]

[the_unique]

Правиш 1 функция за добавяне за малки, 2ра за големи, 3та за цифри... 4 та функция за смесено, тя може да бъде



var n, i: integer;

st : string;

begin

randomize;

st:='';

for i:=1 to 15 do

begin

n:=random(2);

case n of

0: st:=st + (функция за прибавяне на цифри);

1: st:=st + (функция за прибавяне на малки букви);

2: st:=st + (функция за прибавяне на големи букви);

end;

end;

end;



Това е малко по бързо от варианта на Sage, но пък е по дълго за писане