5
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var r,a,b:longint;
P,S:real;
const pi=3.141592654;
begin
clrscr;
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CAU 1 ^^^^^^^^^^^^^^^^^^);
writeln(' **** ****');
writeln(' **** *** *** *****');
writeln(' *** ** ***');
textcolor(pink);
writeln(' ** **');
writeln(' ** **');
writeln(' ** ** ');
writeln(' ** ** ');
writeln(' ** ** ');
writeln(' ** **');
writeln(' ** **');
writeln(' ** ');
textcolor(yellow);
writeln('==> Nhan enter de qua cau 2');readln;
writeln('>>>>>>>>>>>>>>>>>>>> CAU 2 >>>>>>>>>>>>>>>>');
writeln('Ban muon tinh dien tich, chu vi hinh nao ak?');
textcolor(white);
write(' Theo thu tu : hinh tron, hinh vuong, hinh chu nhat ( 1, 2, 3 ) : ');readln(a);
textcolor(blue);
if a=1 then
begin
write(' Hay nhap ban kinh hinh tron : ');readln(r);
S:=r*r*pi;
P:=r*2*pi;
writeln('==> Dien tinh hinh tron la : ',S);
writeln('==> Chu vi hinh tron la : ',P);
end;
if a=2 then
begin
write(' Hay nhap canh hinh vuong : ');readln(a);
S:=a*a;
P:=a*4;
writeln('==> Dien tich hinh vuong la : ',S);
writeln('==> Chu vi hinh vuong la : ',P);
end;
if a=3 then
begin
write(' Hay nhap chieu dai : ');readln(a);
write(' Hay nhap chieu rong : ');readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('==> Dien tich hinh chu nhat la : ',S:1:2);
writeln('==> Chu vi hinh chu nhat la : ',P:1:2);
end;
writeln('^^^^^^^^^^^^^^^^ Nhan ENTER de ket thuc ^^^^^^^^^^^^^^^^');
readln;
end.
5 sao nha
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
919
13567
687
cuối tháng lọc tv cày đi nhé