PDA

View Full Version : Quick Modification



sm321
05-26-2012, 01:49 PM
Hello :) Could someone please edit this script so that instead of 2 random letters, it chooses 1 random letter and 1 random number between 0-9 please. It can also have letternumber or numberletter. Thankyou.

program new;
begin
repeat
writeln(chr(97+random(26))+chr(97+random(26)));
until false;
end.

Justin
05-26-2012, 01:54 PM
program new;
begin
repeat
writeln(chr(97+random(26)) + IntToStr(random(10)));
until false;
end.


LetterNumber

sm321
05-26-2012, 01:56 PM
ustin;1031004']
program new;
begin
repeat
writeln(chr(97+random(26)) + IntToStr(random(10)));
until false;
end.


LetterNumber

Thankyou :)

Justin
05-26-2012, 01:57 PM
Thankyou :)

No worries

sm321
05-27-2012, 09:33 AM
Infact, can anyone make it do what [J]ustin's script does, but can do letternumber or numberletter. Thankyou.

Justin
05-27-2012, 09:57 AM
program new;
var i: Integer;
begin
repeat
i := Random(2);
case (i) of
0: writeln(chr(97+random(26)) + IntToStr(random(10)));
1: writeln(IntToStr(random(10)) + chr(97+random(26)));
end;
until false;
end.


Result:


p6
5l
s1
9a
b8
8w
a2
p2
1v
6y
h0
q9
2l
l5
7p
6l
m4
6a
2o
8c
g0
u2
i5
2k
5f
q1
2u
8t
Successfully executed.

sm321
05-27-2012, 11:36 AM
ustin;1031761']
program new;
var i: Integer;
begin
repeat
i := Random(2);
case (i) of
0: writeln(chr(97+random(26)) + IntToStr(random(10)));
1: writeln(IntToStr(random(10)) + chr(97+random(26)));
end;
until false;
end.


Result:


p6
5l
s1
9a
b8
8w
a2
p2
1v
6y
h0
q9
2l
l5
7p
6l
m4
6a
2o
8c
g0
u2
i5
2k
5f
q1
2u
8t
Successfully executed.


Thankyou :) Is there any way to make it do upper or lowercase at random too? Sorry to keep asking.