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ì
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ì
Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
Quảng cáo
Trả lời:
Giải bởi Vietjack
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.
Hot: 1000+ Đề thi cuối kì 2 file word cấu trúc mới 2026 Toán, Văn, Anh... lớp 1-12 (chỉ từ 60k). Tải ngay
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Lời giải
* Tính diện tích hình chữ nhật
program dthcn;
var
a, b, c : integer;
begin
Write ('Nhap chieu dai:'); read (a);
Write ('Nhap chieu rong:'); read (b);
s := a * b;
Write ('Dien tich hinh chu nhat la:',s);
Readln
End.
* Tính diện tích hình thang
program dtht;
var
a, b, h:Integer;
s:real;
begin
Write('Nhap day lon:');readln(a);
Write('Nhap day nho:');readln(b);
Write('Nhap chieu cao:');readln(h);
s:=((a+b)*h)/2;
WriteLn ('Dien tich hinh thang la:',s);
readln
end.
* Tính diện tích tam giác
program dttg;
var
a, h : integer;
s : real;
begin
Write ('Nhap chieu cao:'); read (h);
Write ('Nhap day:'); read (a);
s := 1/2 * a * h;
Write ('Dien tich tam giac la:',s);
Readln
End.
* Tính diện tích hình bình hành
program dthbh;
var
a, h : integer;
s : real;
begin
Write ('Nhap chieu cao:'); read (h);
Write ('Nhap day:'); read (a);
s := a * h;
Write ('Dien tich hinh binh hanh la:',s);
Readln
End.
* Tính diện tích hình tròn
program dthtr;
const
pi=3.14;
var
r:Real;
s:Real;
begin
Write('Nhap ban kinh:'); readln(r);
s:=r*r*pi;
write('Dien tich hinh tron:',s);
readln
end.
Câu 2
A. một hàng của bảng gồm dữ liệu về các thuộc tính của chủ thể cần quản lý.
B. một cột của bảng thể hiện một thuộc tính của chủ thể cần quản lý
C. một dãy giá trị được lưu trong một cột của bảng trong CSDL
Lời giải
Đáp án đúng: B
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Câu 5
A.thông tin
B.vật mang tin
C.dữ liệu
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Câu 6
A. Một bảng điểm của học sinh
B. Một văn bản
C. Một bản vẽ
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Nhắn tin Zalo
Hỏi bài tập