viết chương trình tính:tổng tích hiệu thương của 2 số a b nhập từ bàn phím. ct tính diện tích chu vi hình tron và hình chữ nhật

0 bình luận về “viết chương trình tính:tổng tích hiệu thương của 2 số a b nhập từ bàn phím. ct tính diện tích chu vi hình tron và hình chữ nhật”

1. Program ;
   Uses crt;
   Var a, b: integer;
         n, s, t, c: real;
   Begin
   Clrscr;
   Write(‘Nhap 2 so a va b: `); readln(a, b);
   n:=a + b;
   s:=a*b;
   t:=a-b;
   c:=a/b;Writeln(‘Tong cua 2 so do la: ‘,n);
   Writeln(‘Tich cua 2 so do la: ‘,s);
   Writeln(‘Hieu cua 2 so do la: ‘,t);
   Writeln(‘Thuong cua 2 so do la: ‘,c);
   Readln
   End.

   ===========

   Program ;
   Var r, a, b; integer;
         s, s1, p, p1: real;
   Const pi = 3.14;
   Begin
   Clrscr;
   Write(‘Nhap a va b: ‘); readln(a, b);
   Write(‘Nhap r: ‘); readln(r);
   s:=sqr(r)*pi;
   p:=2*r*pi;
   s1:=a*b;
   p1:=(a+b)*2;
   Writeln(‘Chu vi hinh tron la: ‘,p);
   Writeln(‘Dien tich hinh tron la: ‘,s);
   Writeln(‘Chu vi hinh chu nhat la: ‘,p1);
   Writeln(‘Dien tich hinh chu nhat la: ‘,s1);
   Readln
   End.

   …

   Bình luận

2. Program qtruong;
   Uses crt;
   Var a, b: integer;
         n, s, t, c: real;
   Begin
   Clrscr;
   Write(‘Nhap 2 so a va b: `); readln(a, b);
   n:=a + b;
   s:=a*b;
   t:=a-b;
   c:=a/b;
   Writeln(‘Tong cua 2 so do la: ‘,n);
   Writeln(‘Tich cua 2 so do la: ‘,s);
   Writeln(‘Hieu cua 2 so do la: ‘,t);
   Writeln(‘Thuong cua 2 so do la: ‘,c);
   Readln
   End.

   ===========

   Program qtruong;
   Var r, a, b; integer;
         s, s1, p, p1: real;
   Const pi = 3.14;
   Begin
   Clrscr;
   Write(‘Nhap a va b: ‘); readln(a, b);
   Write(‘Nhap r: ‘); readln(r);
   s:=sqr(r)*pi;
   p:=2*r*pi;
   s1:=a*b;
   p1:=(a+b)*2;
   Writeln(‘Chu vi hinh tron la: ‘,p);
   Writeln(‘Dien tich hinh tron la: ‘,s);
   Writeln(‘Chu vi hinh chu nhat la: ‘,p1);
   Writeln(‘Dien tich hinh chu nhat la: ‘,s1);
   Readln
   End.

   Bình luận