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.
Program bai4;
Const pi:= 3.1416;
Var cv,dt,r:real;
Begin
R:=5.5;
cv:=2*Pi*r;
dt:=pi*r*r;
Writeln('chu vi hinh tron la:',cv);
Writeln('Dien tich hinh tron la:',dt);
readln
End.
Hàm const làm gì có : bạn.
Đáng nhẽ R thành r chứ.
Sai kiến thức là bay đầu đó bạn." Bút xa gà chết" đấy.
Dòng 1 tên chương trình khai báo sai
sửa lại program hinh_tron;
Dòng 2 phần kahi báo k có dấu "=" trước integer
sửa lại vả cr,dt,t: integer;
Dòng 6 thiếu dấu"=" sau dấu ":"
sửa lại dt:=pi*r*r;
Dòng 7 lệnh in kq sai
sửa lại writeln(' chu vi la:',cv);
Dòng 8 lênh in kq sai
sửa lại writeln(' dien tich la:',dt);
Dòng 1,2,4,5,6,7,8,9 thiếu ;
và dòng 10 thiếu "."
Const pi:= 3.14;
Var cv:integer -> Thiếu dấu ; khi kết thúc 1 câu lệnh nào đó. (Var cv:integer; )
R:real;
Begin
R:=5.5;
Cv=2*pi*r;
Writeln('chu vi la:=cv'); -> Câu lệnh không lỗi nhưng để in ra kết quả thì biến cv cần nằm ở ngoài dấu nháy. ( Writeln('chu vi la= ',cv); )
Readln
End.
Câu 1: D
Câu 2: B
Câu 3: C
Câu 4: B
Câu 5: Từ khóa: Program, begin. Tên: Ct_dau_tien, Lop8A
Câu 6:
- Con người ra lệnh cho máy tính bằng cách nhập các câu lệnh lên máy tính.
- Chương trình máy tính là một tập hợp các câu lệnh để thực hiện các công việc trên máy tính.
Câu 7:
a)15*(4+30)
b) a*x+b+2
c) sqr(a+b)+ sqr(c+d)
d) x-y/2*x
Câu 8:
Dòng 1: Không có lỗi sai.
Dòng 2: Không có lỗi sai.
Dòng 3: Sai. Sửa thành: var a,b:integer; ( var thì chỉ dùng ':' )
Dòng 4: Không có lỗi sai.
Dòng 5: Sai. Sửa thành: const phi=100; ( const thì chỉ dùng '=' )
Dòng 6: Không có lỗi sai.
Dòng 7: Sai. Sửa thành: readln(a,b); (viết sai chính tả từ 'readln')
Dòng 8: Sai. Sửa thành: c:=a+b+phi; (c được gán bằng a+b+phi thì phải dùng dấu':=')
Dòng 9: Không có lỗi sai.
Dòng 10: Sai. Sửa thành: end. (sau end cuối cùng phải có dấu '.')
Câu 9:
program dientich;
uses crt;
var a,b,S:integer;
Begin
clrscr;
write('nhap a,b: '); readln(a,b);
S:=a*b;
writeln('dien tich hinh chu nhat la: ',S);
readln;
end.
c1: 5+6
c2: a là 1 số nguyên
b là 1 kí tự
c3: a là 1 số nguyên
b là 1 xâu kí tự
c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a
c5,6: tương tự câu 4
c7: kết quả là:a/b
c8: 1
c9: c
c10:
sai lệnh ' clscrs ' đúng là 'clrscr;
sau lệnh readln(canh) thiếu dấu ";"
chưa khai báo biến "dientich"
dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.
c11:
phần khai báo sai chỗ "a.b" đúng là "a,b"
sai lệnh clrscr;
thiếu ";" sau lệnh readln(b)
chưa khai báo biến tổng
câu lệnh in kết quả sai ( thiếu " ' ")
c12:
if a>b then { a lớn hơn b } else
if a<b then { a nhỏ hơn b } else
{ a bằng b }
c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc
c14: bạn viết tương tự như c13 bổ sung thêm điều kiện
nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân
c15:
max:=a;
if (max>b) and(max >c) then max:=a else
if b>c then max:=b else max:=c;
write(max)
c16: làm tương tự c4,5,6
c17: bx+x+0 ???
c18: làm tương tự c16
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.