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

*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.

Trả lời