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.

7 tháng 3 2023

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.

6 tháng 8 2023

C:=3.14*2*R;

S:=3.14*R*R;

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.

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.

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 3 2023

câu 1 

program hieu_thuong;

uses crt;

var a,b,h,t:real;

begin

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

if a>=b then h:=a-b else h:=b-a;

t:=a/b;

writeln('hieu cua hai so ',a,'',b,' la ',h);

writeln('thuong cua hai so ',a,'',b,' la ',t);

readln;

end.

câu 2

program chuvi_dientich;

uses crt;

var cv,dt,d,r:real;

begin

write('nhap chieu dai d:');readln(d);

write('nhap chieu rong r:');readln(r);

cv:=( d + r ) * 2 ;

dt:= d * r ;

writeln('chu vi thua ruong la : ',cv);

writeln('dien tich thua ruong la : ',dt);

readln;

end.

2 tháng 3 2023

h,t là sao vậy ạ ?

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)

 

D
datcoder
Giáo viên
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