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.

15 tháng 5 2023

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.

15 tháng 5 2023

Phần kiểm tra em tự nhập bài vô máy rồi kiểm tra nhé

19 tháng 10 2021

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;

}

29 tháng 11 2021

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ốtok

1 tháng 1 2022

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;

}

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.

19 tháng 6 2023

Bài này sai POP ơi

Lỗi khai báo hằng

D
datcoder
CTVVIP
14 tháng 10 2023

loading...

STT

Bán kính r

Chu vi hình tròn

Diện tích hình tròn

1

1

6.28

3.14

2

5

31.4

78.5

3

6.5

40.82

132.665

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.

12 tháng 12 2020

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.

12 tháng 12 2020

sau var có cần có dòng này : Const pi=3.14; không ạ ?

 

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!

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)