-Thứ nhất thiếu tên chương trình
- Thứ 2 sai ở var a,b:=byte sửa lại thành a,b: byte;
- Thứ 3 sai ở const c:3; sửa lại thành const c=3;
-Trong pascal thiếu tên ct(vd: program baihoc;) thì ct vẫn chạy ok.
- var thì phải dùng ":" và thiếu ";". Sửa lại: var a,b:byte;
- const thì phải dùng "=". Sửa lại: const c=3;
-trong ct thiếu clrscr; thì ko sai nhưng sẽ rất khó nhìn.
-Sau readln thiếu ";". Sửa lại: readln;
Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:
a) Begin
Program vd
Uses crt;
Clrscr;
Writeln('Chao cac ban!')
End.
Readln
b) Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
Writeln(b)
Readln
End.
Sửa lỗi cho chương trình sau :
( Chương trình tìm chu vi và diện tích của hình tam giác có 3 cạnh a , b , c và đường cao h ứng với cạnh a; nhập từ bàn phím )
Use crt;
Var a,b,c,h : integer ;
Begin
clrscr;
Readln(a,b,c);
Writeln( a + b + c= '; 'met');
Write ( a*h/2= ','met vuong');
Readln;
End.
Viết CT kiểm tra xem 1 số nguyên được nhập từ bàn phím có tính chất đối xứng hay ko.
Sửa lỗi cho ct viết theo đề bài trên:
uses crt;
var a,n,i:integer;
begin
write('nhap so: ');readln(a);
n:=length(a);
for i:=1 to n do
if a[i] = a[n-i+1] then write('co') else write('khong');
readln
end.
Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
Bài 1: hãy chỉ ra lỗi sai và sửa lại?
Program thu-nghiem
uses crt;
write (`Xin chao cac ban`);
write (`Hay hoc hanh cham chi`);
readln
end
Bài 2 Hãy cho biết giá trị của y bằng bao nhiêu? giải thích?
var x: integer;
y: real;
begin
x:=225 div 9;
y:=(4+8*(9-5))/2-((4-5)^2+6)*15/5;
y:=y-x;
y:=x/y;
readln
end.
Bài 3 Hãy cho biết giá trị của x bằng bao nhiêu? Giải thích?
var y:integer;
x:=real;
begin
x:=(8*4+(5-3))*(9+6)/(3*2-4)
y:=18 mod 5;
x:=x*y;
x:=x-y:
readln
end.
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Cho đoạn mã chương trình sau:
Const c=15;
Var a,b:integer;
Begin
a:=10;
a:=a+c
a:=a+1
readln;
End
Hãy cho biết biến a có kết quả rằng bao nhiêu khi chạy chương trình
A.24 B.25 C.26 D.27
Tìm chỗ sai trong các lệnh khai báo sau và sửa lại cho đúng:
a,var uses,begin : real;
b,const a:=3.14; b:=500;
c,var d:=10;
d,const ten lop = ' 9A 3'
e,var xep_loai, diem : integer, real;