if x=0 then
begin
writeln(a,b,c);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=1 then
begin
writeln(a,c,b);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=2 then
begin
writeln(b,a,c);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=3 then
begin
writeln(b,c,a);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=4 then
begin
writeln(c,a,b);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=5 then
begin
writeln(c,b,a);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
until keypressed;
end.
uses crt;
var
a,b,c:string;
x,i:integer;
klawisz:boolean;
z:char;
begin
a:='#####';
b:='*****';
c:=' ';
clrscr;
writeln(' ');
writeln(' ');
writeln(' ');
writeln(' ');
repeat
randomize;
x:=random(5);
if x=0 then
begin
writeln(a,b,c);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=1 then
begin
writeln(a,c,b);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=2 then
begin
writeln(b,a,c);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=3 then
begin
writeln(b,c,a);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=4 then
begin
writeln(c,a,b);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
if x=5 then
begin
writeln(c,b,a);
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
delay(500);
writeln(' ');
end;
Boję się Ciebie...
http://en.wikipedia.org/wiki/Don't_repeat_yourself