Lỗi: program Tinh dientich; Sửa: program Tinhdientich;
Lỗi: var a:=integer dientich: integer;
Sửa: var a:integer;
dientich:integer;
Lỗi: con h:= 3
Sửa: const h=3;
Lỗi: a=10 h=4 dientich=a×h/2
Sửa: a:=10; h:=4;
dientich:=a*h/2;
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.
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.
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 khai báo biến trong chương trình:
Var m, n: integer;
x , y : real; Lệnh nào gán sai?
A. m:= -4; B. x:= 6; C. n:= 3.5; D. y:= 10.5;
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
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;
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;
Cho đoạn chương trình sau :
Var a,b : integer;
Begin
a :=5;
if a>8 then b :=3
else b :=5;
end.
Em hãy cho biết giá trị khi a nhận giá trị là 5 thì b nhận giá trị là mấy
