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.

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

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é

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;

}

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;

}

20 tháng 12 2018

Câu 2) var s,cv,r:real;

begin

write(' Ban kinh: ');readln(r);

cv:=2*r*Pi;

s:=r*r*Pi;

writeln(' Dien tich hinh tron: ',s:0:0);

writeln(' Chu vi hinh tron: ',cv:0:0);

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 ạ ?

 

17 tháng 12 2019

Dòng 1 tên chương trình khai báo sai

sửa lại program hinh_tron;

Dòng 2 phần kahi báo k có dấu "=" trước integer

sửa lại vả cr,dt,t: integer;

Dòng 6 thiếu dấu"=" sau dấu ":"

sửa lại dt:=pi*r*r;

Dòng 7 lệnh in kq sai

sửa lại writeln(' chu vi la:',cv);

Dòng 8 lênh in kq sai

sửa lại writeln(' dien tich la:',dt);

Dòng 1,2,4,5,6,7,8,9 thiếu ;

và dòng 10 thiếu "."