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.
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.