Nhập bán kính hình tròn là số thực với Pi=3.14
a.In ra màn hình số vừa nhập?
b.Tính chu vi và diện tích hình tròn?
K
Khách
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.
Những câu hỏi liên quan
17 tháng 6 2023
program TinhChuViVaDienTichHinhTron;
const
pi: real = 34.4;
var r, chuVi, dienTich: real;
begin
write('Nhap ban kinh cua hinh tron: ');
readln(r);
chuvi := 2 * pi * r;
dientich := pi * sqr(r);
writeln('Chu vi cua hinh tron la: ', chuvi:0:1);
writeln('Dien tich cua hinh tron la: ', dientich:0:1);
end.
VD
5 tháng 11 2021
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.
19 tháng 12 2021
3:
#include <bits/stdc++.h>
using namespace std;
double x,y,z;
int main()
{
cin>>x>>y>>z;
cout<<x+y+z<<endl;
cout<<x*y*z;
return 0;
}
21 tháng 10 2021
#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;
}
PT
11 tháng 12 2016
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!
PT
11 tháng 12 2016
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)
KV
27 tháng 12 2021
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.
b.
Program Hoc24;
Uses crt;
Var r,S,C:real;
Begin
Write ('Ban kinh la');
Readln (r);
S:=r*r*3.14;
C:=r*2*3.14;
Writeln ('Chu vi la',C);
Writeln ('Dien tich la',S);
Readln;
End.