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 dung;
uses crt;
var d,s: real;
begin
clrscr;
write('Nhap ban kinh: '); readln(d);
s:=(d/2)*(d/2)*pi;
write('Dien tich la: ',s:1:2);
readln;
end.
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;
}
const pi = 3.14;
var s,r:real;
begin
write('Nhap vao ban kinh R = ');readln(r);
s:=pi*r*r;
write('Dien tich hinh tron la ',s:10:2);
readln;
end.
uses crt;
var r,cd,cr,s,p: real;
begin
clrscr;
write('Nhap ban kinh: '); readln(r);
cd:=r*2*3.14;
cr:=1/3*cd;
s:=cd*cr;
p:=(cd+cr)*2;
writeln('Dien tich la: ',s);
writeln('Chu vi la: ',p);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
cout<<"Chu vi la:"<<fixed<<setprecision(2)<<a*2*pi<<endl;
cout<<"Dien tich la:"<<fixed<<setprecsion(2)<<a*a*pi;
return 0;
}
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;
}
CÂU 1:
program hinhchunhat;
var a,b,S,C: real;
begin
Write('Nhapdodaicanhthuchata=');readln(a);
Write('Nhapdodaicanhthuhaib=');readln(b);
S:= a*b;
C:=(a+b)*2;
Writeln('Dientichhinhchunhatla:',S);
Writeln('Chuvihinhchunhatla:',C);
readln
end.
CHÚC BẠN HỌC TỐT!
CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Chuvihinhtronla:',2*pi*r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
CHÚC BẠN HỌC TỐT (x2)
Đây nha:
Program dientich;
Uses crt;
Var d,s:real;
Begin
Clrscr;
Write('Nhap do dai ban kinh: '); Readln(d);
s:=d*d*3.14;
Writeln('Ban kinh hinh tron la: ',s:2:2);
Readln;
End.