Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình , hiện lần lượt ở chỗ bất kì , giữa trái tim ghi gửi crush ( Dành cho mấy ông giỏi tin cx đc ) :)))
Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình , hiện lần lượt ở chỗ bất kì , giữa trái tim ghi gửi crush ( Dành cho mấy ông giỏi tin cx đc ) :)))
uses crt;
var x,y: byte;
begin
clrscr;
textcolor(lightred);
randomize;
repeat
x:=random (100);
y:=random (22);
if (x<>0) and (y<>0) then
begin
gotoxy (x,y);
writeln (chr(3));
delay (40);
end;
until keypressed;
readln;
end.
đây nha
bạn tôi !!