Viết chương trình tính tổng tổng hiệu u tính thương của hai số (a,b được nhập từ bàn phím) Tính chu vi và diện tích hình chữ nhật hình tròn hình vuông

0 bình luận về “Viết chương trình tính tổng tổng hiệu u tính thương của hai số (a,b được nhập từ bàn phím) Tính chu vi và diện tích hình chữ nhật hình tròn hình vuông”

1. *Tổng hiệu thương của 2 số a và b:

   program tht;

   uses crt;

       var tong, hieu, thuong: real;

   begin

       clrscr;

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

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

       tong:=a+b;

       hieu:=a-b;

       thuong:=a/b;

       writeln(‘Tong 2 so: ‘, tong);

       writeln(‘Hieu 2 so: ‘, hieu);

       writeln(‘Thuong 2 so: ‘, thuong);

       readln

   end.

   *Chu vi và diện tích hình chữ nhật, hình tròn, hình vuông:

   >> Chu vi hình chữ nhật: 

   program CV_hcn;

   uses crt;

         var cv, a, b: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai cua canh a: ‘); readln(a);

         writeln(‘Nhap chieu rong cua canh b: ‘); readln(b);

         cv:=(a+b)*2;

         writeln(‘Chu vi hinh chu nhat la: ‘, cv);

         readln

   end.

   >> Diện tích hình chữ nhật:

   program DT_hcn;

   uses crt;

         var s, a, b: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai canh a: ‘); readln(a);

         writeln(‘Nhap chieu rong canh b: ‘); readln(b);

         s:=a*b;

         writeln(‘Dien tich hinh chu nhat la: ‘, s);

         readln

   end.

   >> Chu vi hình tròn:

   program CV_hinh_tron;

   uses crt;

         var  cv, r: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai cua ban kinh r: ‘); readln(r);

         cv:=2*r*pi;

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

         readln

   end.

   >> Diện tích hình tròn:

   program dt_htron;

   uses crt;

        var s, r: real;

   begin

        clrscr;

        writeln(‘Nhap chieu dai ban kinh r: ‘); readln(r);

        s:=r*r*pi;

        writeln(‘Dien tich hinh tron la: ‘, s);

        readln

   end.

   >> Chu vi hình vuông:

   program cv_hv;

   uses crt;

         var cv, a: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai canh cua hinh vuong: ‘); readln(a);

         cv:=4*a;

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

         readln

   end.

   >> Diện tích hình vuông:

   program DT_hv;

   uses crt;

         var s, a: real;

   begin

         clrscr;

         writeln(‘Nhap chieu dai canh cua hinh vuong: ‘); readln(a);

         s:=a*a;

         writeln(‘Dien tich hinh vuong la: ‘, s);

         readln

   end.

   Bình luận

2. uses crt;

   var a,b,s,h:integer;t:real;

   begin

   readln(a);

   readln(b);

   s:=a+b;

   if a>b then h:=a-b else h:=b-a;

   t:=a/b;

   writeln(‘tong:’,t);

   writeln(‘hieu:’,h);

   write(‘thuong:’t);

   readln 

   end.

   mk lam truoc bai nay,toi mk gui cau duoi cho

   Bình luận