Kód:
program vajco;
uses CRT;
var x,y:integer;
begin
clrscr;
randomize;
x:=random(81);
y:=random(26);
gotoxy(x,y);
write('O');
for Y:=Y to 25 do begin
delay(100);
gotoxy(x,y);
write('.');
gotoxy(x,y+1);
if y=25 then write('_') else write('O');
end;
repeat until keypressed;
end.
je to vygenerovanie na náhodnej pozícii, ak to musí byť v strede tak uprav tieto dva riadky:
Citácia:
x:=random(81);
y:=random(26);
ale nevedel som určite stred z 80
Choď na stránku: