viết chương trình free pascal
tính chu vi ,diện tích hình tron
điều kiện R=0
R<0
R>0
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 chuvi_dientich_hinhtron;
uses crt;
const pi = 3.14;
var R: integer;
cv, dt: real;
begin
clrscr;
writeln; { xuong dong }
readln ( R );
cv:= 2*R*pi;
writeln ( ' chu vi = ' , cv : 8:2 );
dt:=R*R*pi;
writeln ( 'dien tich = ', dt :8:2 );
readln;
end.
Chúc bạn học tốt
Var r,s,c:real;
Begin
Write('Ban kinh = ');readln(r);
s:=3.14*r*r;
c:=2*3.14*r;
Writeln('Dien tich la ',s:10:2);
Write('Chu vi la ',c:10:2);
Readln
End.
Chương trình chuvihinhtron_dientichhinhtron;
Sử dụng crt;
Trong đó R: số nguyên;
S, C: thực;
Chòm sao Pi = 3,14;
Bắt đầu
nhân viên văn thư;
Writeln ('R ='); Readln (R);
C: = Pi * 2 * R;
S: = Pi * R * R;
Writeln(‘Chu vi la C= ‘,C);
Writeln(‘Dien tich la S= ‘,S);
Readln
Chấm dứt.
#include <bits/stdc++.h>
using namespace std;
double r,cv,dt;
int main()
{
cin>>r;
cv=r*2*pi;
dt=r*r*pi;
cout<<fixed<<setprecsion(2)<<cv<<endl;
cout<<fixed<<setprecsion(2)<<dt;
return 0;
}
quá dễ
uses crt;
var r:integer;
cv,dt:real;
begin
clrscr;
repeat
write('nhap ban kinh:'); readln(r);
if r<0 then writeln('nhap lai');
until r>0;
cv:=2*r*pi;
writeln('chu vi hinh tron la: ',cv:4:2);
dt:=sqr(r)*pi;
writeln('dien tich hinh tron la: ',dt:4:2);
readln;
end.
Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Const pi=3.14;
Begin
Clrscr;
Writeln('TINH DIEN TICH HINH TRON:');
Write ('Nhap ban kinh R=');readln(r);
dt:=pi*r*r;
Writeln('Dien tich hinh tron la:',dt:6:2);
Readln;
Câu 2:
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)*2;
dt=a*b;
cout<<"Chu vi la:"<<fixed<<setprecision(2)<<cv<<endl;
cout<<"Dien tich la:"<<fixed<<setprecision(2)<<dt;
return 0;
}
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.