viết chương trình tính diện tích và chu vi hình chữ nhật và hình tròn với độ dài các cạnh được nhập từ bàn phím

0 bình luận về “viết chương trình tính diện tích và chu vi hình chữ nhật và hình tròn với độ dài các cạnh được nhập từ bàn phím”

1. program chuvi_dientich;

   uses crt;

   var bk,cv,dt:real;

   begin

   clrscr;

   write(‘Nhap ban kinh: ‘);   readln(bk);

   cv:=bk*2*3.14;

   dt:=bk*bk*3.14;

   writeln(‘Chu vi hinh tron la: ‘,cv:2:2);

   write(‘Dien tich hin tron la: ‘,dt:2:2);

   readln

   end.

   Trả lời

2. Program Chuvihinhchunhat_chuvihinhtron;

   Uses crt;

   var  a,b,R,c,s : integer;

             C,S: Real;

   Const   pi=3,14;

   Begin

    clrser;

   Writeln(‘a’);   Readln(a);

   Writeln(‘b’);   Readln(b);

   c:=(a+b)*2;

   s:=a*b;

   Writeln(‘c=’,c);

   Writeln(‘s=’,s);

   Writeln(‘R’);  readln(R);

   C:=pi*2*R;

   S:=pi*R*R;

   Writeln(‘C=’,C);

   Writeln(‘S=’,S);

   Readln

   End.

   Trả lời