Bài 1: Viết chương trình pascal nhập vào bán kính hình tròn. Tính chu vi , diện tích hình tròn Bài 2 Viết chương trình pascal nhập vào cạnh hình vuôn

0 bình luận về “Bài 1: Viết chương trình pascal nhập vào bán kính hình tròn. Tính chu vi , diện tích hình tròn Bài 2 Viết chương trình pascal nhập vào cạnh hình vuôn”

1. Bài 1:

   Program BTT;
   Uses crt;
   Var r,s,p: real;
   Const Pi=3.14;
   Begin
           Clrscr;
           Write(‘Nhap r: ‘); Readln(r);
           p:=2*r*pi;
           s:=sqr(r)*pi;
           Write(‘Dien tich la ‘,s:0:2,’ va chu vi la ‘,p:0:2);
           Readln
   End.

   Bài 2:

   Program BTT;
   Uses crt;
   Var a,s,p: real;
   Begin
           Clrscr;
           Write(‘Nhap a: ‘); Readln(a);
           p:=a*4;
           s:=sqr(a);
           Write(‘Dien tich la ‘,s:0:2,’ va chu vi la ‘,p:0:2);
           Readln
   End.

   Bài 3: Sau khi nhập xong chương trình, bấm Ctrl + F9 để ra màn hình đen

   Bình luận

2. Bài 1:

   Program hinh_tron;
   Uses crt;
   Var r:real;
   Begin
   clrscr;
   Write(‘Nhap ban kinh:’); readln(r);

   Writeln(‘Chu vi hinh tron la:’,2*pi*r:10:2);
   Writeln(‘Dien tich hinh tron la:’,pi*r*r:10:2);
   Readln
   End.

   Bình luận