Viết chương trình pascal tính chu vi, diện tích của hình vuôn; hình chữ nhật; hình tròn.

0 bình luận về “Viết chương trình pascal tính chu vi, diện tích của hình vuôn; hình chữ nhật; hình tròn.”

1. 1: Hình vuông:

   Uses crt;

   Var a,s1,c1: real;

   Begin

   Write(‘Nhap a = ‘);

   readln(a);

   c1:=a*4;

   s1:=a*a;

   Writeln(‘Dien tich cua hinh vuong la: ‘,s1);

   Writeln(‘Chu vi cua hinh vuong la: ‘,c1);

   Readln

   End.

   2: Hình chữ nhật:

   Uses crt;

   Var a,b,s1,c1: real;

   Begin

   Write(‘Nhap a = ‘); readln(a);

   Write(‘Nhap b = ‘); readln(b);

   c1:=(a+b)*2;

   s1:=a*b;

   Writeln(‘Dien tich cua hinh chu nhat la: ‘,s1);

   Writeln(‘Chu vi cua hinh chu nhat la: ‘,c1);

   Readln

   End.

   3: Hình tròn:

   Uses crt;

   Var r,s1,c1: real;

   Begin

   Write(‘Nhap r = ‘);

   readln(r);

   c1:=pi*r*2;

   s1:=pi*r*r;

   Writeln(‘Dien tich cua hinh tron la: ‘,s1);

   Writeln(‘Chu vi cua hinh tron la: ‘,c1);

   Readln

   End.

   *Lưu ý: 3 CT khác nhau nhé!

   Bình luận

2. program tinhdienticha;

   uses crt;

   var a,b,s1,s2,s:real;

   begin

   write(‘Nhap vao so a: ‘); readln(a);

   write(‘Nhap vao so b: ‘); readln(b);

   s1:=2*a*b;

   s2:=(3.14*a*a)/2;

   s:=s1+s2;

   writeln(‘Dien tich tong la: ‘, s:10:6);

   readln end.

   >>>Chúc bạn học tốt<<<

   Bình luận