Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 17: C
Câu 18: A
Câu 19: C
Câu 2: A
Câu 4: C
Câu 6: C
usescrt phải cách ra giữa uses và crt
Trước else ko có chấm phẩy
Tham khảo:
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln('Nhap do dai hai day: '); readln(a,b);
writel('Nhap chieu cao: '); readln(h);
S:=h*((a+b)/2);
writeln('Dien tich hinh thang do la: ',S);
readln;
end.
uses crt;
var s,a,b,h:real;
begin
clrscr;
readln(a,b,h);
s:=(a+b)/2*h;
writeln(s:4:2);
readln;
end.
Trong ngôn ngữ lập trình Pascal, câu lệnh nào sau đây là sai :
A. x:= 2.5;
B. b:= (a=4) or (c=7); <= B
C. c:= pi*12;
D. a:=3,12;
a.for i:=1 to 10;do x:=x+1;
-> lệnh sai vì sau "to 10" không có dấu ';'
For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Sửa lại:for i:=1 to 10 do x:=x+1;
b.for i:=10 to 1 do x:=x+1;
-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên không lặp được.
Sửa for i:=1 to 10 do x:=x+1;
c.while i:=1 do t=10;
-> lệnh sai phép gán giá trị cho biến VD: x:=1
t=10(sai) thiếu dấu ':'
Sửa lại:
while i:=1 do t:=10;
d.while a<=b;do write('b lon hon a');
-> lệnh sai vì Sau While a<=b không có ';'(While <điều kiện> do <câu lệnh>)
Sửa lại:
while a<=b do write('b lon hon a');
Dòng 7 : Sửa lại thành : write('Nhap si so lop :');
Dòng 13 : Sửa lại thành : end;
Dòng 14: Sửa lại thành : writeln('bang diem vua nhap : ');
Dòng 16: Sửa lại thành : writeln('thu ',i,': ',a[i]:1:2,' diem');