Hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng program Tinh dientich; var a:= integer dientich: integer Con h:= 3 begin a=10 h=4 dientich=axh/2
Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây và sửa lại cho đúng:
program dientich;
Const Pi:=3.1416;
var cv,dt : integer ;
r : real;
begin
r:=5.5;
cv:=2*pi;
dt :=pi*r*r ;
writeln ('chu vi la',cv)
writeln ('dien tich la',dt)
readln
end.
hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng:
Var a,b :=integer;
Const c :=3;
Begin
a :=200
b :=a/c;
write(b);
readln
end
Var a,b:integer;
Const c =3;
Begin
a :=200;
b :=a/c;
write(b);
readln; (ủa readln cái j)
end.
Var a,b :integer; (bỏ dấu =)
Const c =3; (bỏ dấu :)
Begin
a :=200; (thêm ;)
b :=a/c;
write(b);
readln; (thêm '' cơ mà read cái j)
end. (thêm '.')
Hãy liệt kê các lỗi có thể có trong chương trình dưới đâyy và sửa lại cho đúng Progtam Thi_HK1 Var a= integer b=real Const c = 5 Begin a=100 b=a/c Write(b) Readln End
a=integer
Sửa lại: a:integer;
b=real
Sửa lại: b:real;
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.
II. TU LUAN (64) Câu 9 (1.5 điểm). Chỉ ra lỗi sai trong các chương trình dưới đây và sửa lại cho đúng
(C) program tinh_a_mu_ng
var i,n: integer;
a, gia tri: real;
begin
write ('Cho so a: ');readln(a);
write ('Cho so mu n:');readin(n)
i :=1 giatri := 1 ;
while i < n do
begin
giatri :=giatri* a;
i:= i + 2
end;
writeln('a mu n bang : ", giatri);
end.
Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;
Lỗi: gia tri sửa lại: giatri
Lỗi: readin(n) sửa lại: readln(n);
Lỗi: i:=1 sửa lại: i:=1;
Lỗi: while i < n do sửa lại: while i <= n do
Lỗi: i:=i+2 sửa lại: i:=i+1;
Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);
Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng:
Var a, b := Integer;
Const c := 3;
Begin
a: = 200
b : = a / c ;
Write (b);
Readln;
End.
lỗi sai :
dòng 1: biến b phải là kiểu dữ liệu số thực
sai cú pháp khai báo
dòng 2: sai cú pháp khai báo hằng
dòng 4 : thiếu (;)
viết lại chương trình :
Var a : Integer;
b : real ;
Const c = 3;
Begin
a: = 200 ;
b : = a / c ;
Write (b);
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.
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses= crt;
const pi = 3.14;
var: dt, r: real;
clrscr;
write(‘nhap ban kinh r = ‘);
readln(r);
dt = pi*sqr(r);
writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);
readln
End.
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 Begin
d) dt:= pi*sqr(r);
Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng:
Program Tinhoc | Program Tinhoc; |
Var i,n,S:real | Var i,n,S:real |
Begin | Begin |
Write(nhap so); | Write("nhap so"); |
readln(n); | readln(n); |
i=1; | i:=1; |
while i<n | while i<n do |
begin | begin |
s:=s+i | s:=s+i; |
i:=i+1 | i:=i+1; |
end; | end; |
write('Ket qua la: ' S); | write('Ket qua la: ' ,S); |
readln; | readln; |
end | end. |