Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 477 03/08/2023

Trang trước

Trang sau

Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình

Đề bài: 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.

Xem thêm các câu hỏi Tin học có đáp án khác:

So sánh sự giống và khác nhau giữa rom va ram

Firmware đề cập đến điều gì?

Tiền đề quyết định cho sự phát triển nền kinh tế tri thức là?

Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là

Khi tạo ra 1 biểu mẫu để nhập dữ liệu thì ta bắt buộc phải

Hãy chọn biểu diễn tên đúng trong những biểu diễn sau

Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:

Trong thiết bị sau, thiết bị nào có tốc độ truy xuất chậm nhất

Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n

Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím

Viết chương trình xét một tam giác có là tam giác vuông hay không

Viết chương trình Python cho phép nhập vào 3 số nguyên a,b, c

Viết chương trình in ra thông báo một số nguyên nhập vào từ bàn phím

Cho đoạn chương trình sau: x:=8,y:=10; If x>y then

Để chạy chương trình ta dùng tổ hợp phím:

Cho đoạn chương trình sau

Viết chương trình dịch các ngày trong tuần ra tiếng anh

1 477 03/08/2023

Trang trước

Trang sau

Xem thêm các chương trình khác: