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.
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 "."
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.
Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.
program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
Begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
end
else
begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
end;
readln;
end.
Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ
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.
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.
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
end.
