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.

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.

program TinhDienTichHinhTron;
var
  fIn, fOut: Text;
  r: Integer;
  dien_tich: Real;
begin
  Assign(fIn, 'dt_ht.inp');
  Reset(fIn);
  Readln(fIn, r);
  Close(fIn);

  Assign(fOut, 'dt_ht.out');
  Rewrite(fOut);

  dien_tich := Pi * r * r;

  Writeln(fOut, FormatFloat('0.00', dien_tich));

  Close(fOut);
end.

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.

Bạn kiểm tra lại đề á. Pi thì bằng 3.14 chứ nhỉ?

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

1:

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a+b;

return 0;

}

2:

#include <bits/stdc++.h>

using namespace std;

double s,r;

int main()

{

cin>>r;

s=r*r*pi;

cout<<fixed<<setprecision(2)<<s;

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)

B1:Biết chiều dài và chiều rộng của hình chữ nhật.

B2:Lấy chiều dài nhân rộng.

B3:Viết đáp số.

B4:Viết chương trình và kết thúc thuật toán.

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.