tìm lỗi và sửa
Var a: integer;
Begin
A:=S;
While a<6 do writeln (a);
End.
Tìm và sửa lỗi trong ct pascal sau:
var
i: integer;
diemToan, diemVan, diemAnh, diemTrungBinhToan, diemTrungBinhVan, diemTrungBinhAnh: real;
begin
diemTrungBinhToan := 0;
diemTrungBinhVan := 0;
diemTrungBinhAnh := 0;
for i := 1 to 100 do
begin
writeln('Nhap diem cua hoc sinh thu ', i, ' : ');
write('Diem Toan: ');
readln(diemToan);
diemTrungBinhToan := diemTrungBinhToan + diemToan;
write('Diem Van: ');
readln(diemVan);
diemTrungBinhVan := diemTrungBinhVan + diemVan;
write('Diem Anh: ');
readln(diemAnh);
diemTrungBinhAnh := diemTrungBinhAnh + diemAnh;
end;
diemTrungBinhToan := diemTrungBinhToan / 100;
diemTrungBinhVan := diemTrungBinhVan / 100;
diemTrungBinhAnh := diemTrungBinhAnh / 100;
writeln('Diem trung binh mon Toan la: ', diemTrungBinhToan:0:2);
writeln('Diem trung binh mon Van la ', diemTrungBinhVan:0:2);
writeln('Diem trung binh mon Anh la: ', diemTrungBinhAnh:0:2);
Readln;
End.
Đúng rồi bạn nha. Chương trình không có lỗi sai
Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end
program chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
Các khai báo biến sau đúng hay sai? Nếu sai hãy chỉ ra lỗi sai và sửa lại cho đúng
1. Var tb :=real;
2. Var 8a2 : integer;
3. Var A, B : integer;
4. Var T : Real;
5. Var X = 5.
1: Sai
2: Sai
3: Đúng
4: Đúng
5: Sai
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 !
c: Lỗi sai là chữ var
Sửa lại const a=8;
Tìm và sửa lỗi sai các câu sau, giải thích rõ lỗi sai đó
a, Var begin:real;
b, Const y:integer;
c, Var bk=3
d, Var AB:array[1...100] of integer;
e, Var Diem: array[3.8...4.5] of real;
Tin 8
help me
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.
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;
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;
const b: integer; -> sử dụng lệnh khai báo biến thì dùng var chứ không dùng const
var a=90; -> nếu khai báo biến hằng thì thay var thành const
Var Tinh_tong :array[1.. 50.5] of char; -> chỉ số đầu và cuối phải thuộc loại số nguyên
Var a=90: Sai vì var là từ khóa dùng để khai báo biến chứ không phải dùng để khai báo hằng
Const b:integer: Sai vì const là dùng để khai báo hằng chứ khai báo biến mà b:integer là khai báo biến