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.
Chỉ ra các lỗi trong chương trình sau gạch chân và chỗ sai giải thích const pi=3.1416; clrscr; begin a:=500 b:=a*a*pi; c=a+b write(c) readln end
Câu 5: Tìm lỗi sai trong các câu lệnh khai bao sau và sửa lại cho đúng.
a) var Start, begin: real;
b) const x:= 50, y:= 500;
c) var a=8;
d) var xep_loai, diem : integer, real;
Giúp mình với !
Tìm lỗi sai trong các lệnh khai báo sau và sửa lại cho đúng :
a, var start , begin : real ;
b, const x : = 3 . 14 , y : 1000 ;
c, var a : 5 ;
d, const ten lop = ' 8a2 ' ;
e, var xep _ loại , diem : integer , real ;
f, var nguyen 1 , nguyen 2 , : integer , thuc 1 , thuc 2 , : real ;
g, const 3 ban = ' Phan ' , ' Tuan ' , ' Thanh ' ;
h, const tên _ nhom = Tin hoc ;
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
Cho chương trình sau :
( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )
Uses crt;
Var a,b,c,h,chuvi,dientich : integer;
Begin
clrscr;
Writeln('Nhap canh a= '); Readln(a);
Writeln('Nhap canh b= '); Readln(b);
Writeln('Nhap canh c= '); Readln(c);
chuvi := a+b+c;
dientich := a*h/2
Writeln('Chu vi hinh tam giac la = ', chuvi);
Write('Dien tich hinh tam giac la = ', dientich);
Readln;
End.
Giải thích lý do vì sao chương trình không chạy được.
Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)
Program kiemtra:
Use crt
Var a, b: interger;
c: integerl;
Begin
Clrscr;
a: = 10;
b = 3;
c: = a/b
Writeln(‘Gia tri cua c = ‘,c);
Readln;
End
tìm lỗi sai trong chương trình và sửa lại
Cho chương trình viết trong Pascal:
Program Tinh_tien;
Var soluong: integer;
Dongia, thanhtien: real;
Const phi = 10000;
Begin
Writeln (‘Don gia: ’);
readln (Dongia);
Writeln (‘So luong : ’);
readln (soluong);
thanhtien:= soluong*Dongia + phi;
Writeln (‘So tien khach hang phai tra la: ’, thanhtien);
End.
Hãy phân biệt hằng, biến trong chương trình trên và đánh dấu X vào bảng sau:
Hằng Biến Không phải hằng hoặc biến
soluong
Dongia
thanhtien
phi
10000
Tinh_tien
Giả thích lỗi các câu lệnh sau: -Const b: integer; -Var a= 90; -Var Tinh_tong :array[1.. 50.5] of char;
