Viết thủ tục tính thể tích hình hộp, chu vi hình chữ nhật

0 bình luận về “Viết thủ tục tính thể tích hình hộp, chu vi hình chữ nhật”

1. Hình hộp chữ nhật: 

   Program BTH;
   Uses Crt;
   var a,b,c,d:longint;
   procedure BTH;
   Begin
   d:=a*b*c;
   end;
   Begin
   clrscr;
   Write(‘Nhap chieu dai: ‘);readln(a);
   Write(‘Nhap chieu rong: ‘);readln(b);
   Write(‘Nhap chieu cao: ‘);readln(c);
   BTH;
   Write(‘The tich hinh hop chu nhat la: ‘,d);
   readln;
   End.

   Chu vi hình chữ nhật:

   program BTH;
   uses crt;
   var a,b,c:longint;
   procedure BTH;
   Begin
   c:=(a+b)*2;
   end;
   Begin
   clrscr;
   Write(‘Nhap chieu dai: ‘);readln(a);
   write(‘Nhap chieu rong: ‘);readln(b);
   BTH;
   writeln(‘Chu vi hinh chu nhat la: ‘,c);
   readln;
   End.

   Bình luận

2. Tính hình hộp

   program hinh;

   uses crt;

   var a,b,d,k: real;

   begin

   writeln(‘nhap cac canh a,b,c : ‘);    readln(a,b,c);

   k:=a*b*c;

   writeln(‘dien tich hinh hop la: ‘,k);

   readln;

   end.

   .

   .

   .

   chu vi hình chữ nhật

   program from_saymethesixman102;

   uses crt;

   var b,a,c : real;

   begin

   write(‘nhap chieu dai, chieu rong: ‘);             readln(a,b);

   c=2*a+2*b;

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

   readln;

   end.

   Bình luận