Cho vis duj sau trong Pascal:
Uses crt ;
var i: Interger
Begin
clrscr ;
i:=1
while : i < 14 do begin Writeln('0');
i:=i+1;
End ;
Readln;
End.
-Khi chạy chương trình ví dụ bên sẽ in ra bao nhiêu số 0?
A.12
B.13
C.14
D.15
Câu 41. Trong chương trình Pascal nếu dùng lệnh xóa màn hình ta có khai báo nào sau đây?
A. Use Crt; B. Var x,y : integer;
C. Uses Crt; D. Không cần khai báo
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses : crt;
const pi = 3.14;
var dt, r = real;
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.
Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.
Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.
Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.
Dưới đây là một chương trình viết trong Pascal:
program CT_Dau_tien ;
Uses crt ;
begin
writeln ( ‘Toi la Turbo Pascal’ )
end.
Tên chương trình là:
A begin. B. end C. writeln D. crt
1 là bn sửa hình nền
2 là mk gọi admin hoặc giáo viên khác khoá nick bn
Trong Pascal, khai báo nào sau đây là sai:
A. program BaiTap 3;
B. uses crt;
C. var x1: byte;
D. const pi=3.14;
A sai bởi vì có kí tự trống giữa "Baitap" và "3"
Trong Pascal, khai báo nào sau đây là sai:
A. program BaiTap 3;
B. uses crt;
C. var x1: byte;
D. const pi=3.14;
Em hãy viết(gõ vào) phần trả lời từ khóa đúng để bổ sung vào chỗ (viết chữ thường) còn thiếu, chỗ dấu … trong đoạn lệnh sau: Program baitap ; Uses crt ; …… Clrscr ; Writeln(‘Pascal’); End. *
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0; | sửa: i:=1; t:=0;
while i <= n do
begin
t := t + i;
i := i + l; | Sửa: i:=i+1;
-> Thiếu. Thêm: End;
write('Tong = ', t);
Readln;
end.
Cho chương trình Pascal sau:
Program chuvi_duongtron :
uses crt;
const pi := 3.14;
var cv, r: real;
Begin
clrscr;
write(‘nhap ban kinh r = ‘);
writeln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
Cho chương trình Pascal sau:
Program chuvi_duongtron:
uses crt;
const pi = 3,14;
var cv, r: real;
Begin
clrscr;
write(nhap ban kinh r = );
readln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.