Cho chương trình sau, em hãy tìm lỗi sai và sửa lại cho đúng? using namespace std; #include ; defint c=3 a, b: int; float c; { a:=20 b:=a/c; cout
Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp cho đúng?
Tính giá trị biểu thức: 12.x – 30 + 12
Uses CRT:
Clrscr.
Begin
Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3)
Program Tinh _gia_tri_bieu_thuc;
Var x: Real;
Write(‘Nhap gia tri x: ’); readln(x);
Readln;
End.
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.
Giúp mình tìm ra các lỗi sai và sữa lại cho đúng nha và giải luôn câu 5 giúp mình,mình cảm ơ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.
Câu 5: 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:=50,y:=500;
c, var a=8;
d, var xep_loai;diem:interger;real;
Kíu!!!! Mai thi mất r!!!!
10. Hãy tìm lỗi sai và sửa lại cho đúng.
Uses crt;
Program cau1;
Var toan ; van; tbc ; anh , interger ;
Clrscr ;
begin
writeln(‘nhap vao diem toan:’) ; readln(toan)
writeln(‘nhap vao so diem van: ‘) ; readln(van)
writeln(‘nhap vao so diem anh: ‘) ; readln(anh)
tbc:=(van+toan+anh)/3;
writeln(‘diem trung binh la: ‘, tbc);
readln
end.
Tìm lỗi sai trong các câu lệnh sau và chữa lại cho đúng ( viết lại chương trình đúng )
Var cv, dt : integer
r : real;
Const pi = 3.14;
Begin
r = 5.5;
dt := pi*r*r;
writeln(‘Dien tich hinh tron la:,dt:8:2’);
readln
End.
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
Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ
Tìm và sửa lỗi trong chương trình pascal sau:
var T, So, D: longint;
begin
T:= 0;
D:= 0;
repeat
write('Nhap so: ');
readln(So);
if T + So <= 15000 then
begin
T:= T + So;
D:= Dem + 1;
end;
until T >= 15000;
writeln('Tong cac so la: ', Tong);
writeln('Tong so da nhap: ', Dem);
readln;
end.