Những câu hỏi liên quan
LH
Xem chi tiết
KL
15 tháng 5 2023 lúc 7:38

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.

Bình luận (3)
GK
Xem chi tiết
LN
29 tháng 11 2021 lúc 15:39

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

Bình luận (0)
PT
Xem chi tiết
NT
16 tháng 11 2021 lúc 23:45

uses crt;

var a,b:real;

begin

clrscr;

readln(a,b);

writeln(2*(a+b):4:2);

writeln(a*b:4:2);

readln;

end.

Bình luận (0)
PT
Xem chi tiết
NV
16 tháng 11 2021 lúc 16:47

Program Chu_nhat; uses crt;

Var a, b, S, CV: real;

Begin    

 Write('Nhap chieu dai:'); readln(a);      

Write('Nhap chieu rong:'); readln(b);  

   S := a*b;      

CV := (a+b)*2;    

 Writeln('Dien tich hinh chu nhat la:',S:3:2);  

   Writeln('Chu vi hinh chu nhat la:',CV:3:2);    

 readln;

end.

 

 

Bình luận (0)
H24
23 tháng 5 2022 lúc 11:58

Program chunhat;

uses crt;

var a,b,p,s:real;

begin

clrscr;

writeln('Nhap chieu dai va rong cua hinh chu nhat: ');

readln(a,b);

s:=a*b;
p:=(a+b)*2;

write('Chu vi hinh chu nhat la: ', p:1:2);

writeln;

write('Dien tich hinh chu nhat la: ', s:1:2);

readln;

end.
 

Kết quả: 

Bình luận (0)
HH
Xem chi tiết
NT
7 tháng 11 2021 lúc 14:43

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

writeln(a+b+c:4:2);

readln;

end.

Bình luận (0)
NL
Xem chi tiết
NK
28 tháng 3 2021 lúc 23:21

Program Hinh_Tamgiac_Program;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘HINH TAM GIAC:’);
Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘Chu vi tam giac:’,2*p:4:2) ; Writeln(‘Dien tich tam giac:’,s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’) ;
Readln;
End.

Bình luận (0)
TH
Xem chi tiết
NT
11 tháng 1 2023 lúc 14:01

1: ;

2: write('Khong duoc dot Phao!');

3: write(c);

Bình luận (0)
HY
Xem chi tiết
NT
1 tháng 1 2022 lúc 23:05

uses crt;

var d,r,cv,dt:real;

begin

clrscr;

readln(d);

r:=d/2;

cv:=d*pi;

dt:=r*r*pi;

writeln(cv:4:2);

writeln(dt:4:2);

readln;

end.

Bình luận (0)
TY
Xem chi tiết
TT
Xem chi tiết
NT
27 tháng 12 2021 lúc 13:58

uses crt;

var a:integer;

begin

clrscr;

readln(a);

writeln(a*4);

writeln(a*a);

readln;

end.

Bình luận (0)