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.
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.
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.
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
uses crt;
var i:integer; s:real;
begin
clrscr;
s:=1;
for i:=1 to 10 do s:=s*1/i;
writeln(s:4:2);
readln;
end.
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 "."