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ì

253

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 4)

Câu 114: 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ì

Lời giải:

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.

Đánh giá

0

0 đánh giá