hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình chữ nhật

0 bình luận về “hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình chữ nhật”

1. $#BenokM1155A$

   Trả lời:

   Program Chu_Nhat_Program;
   Uses Crt;
   Var a,b,s,c: real;
   Begin
   Clrscr;
   Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
   Write(‘Nhap chieu dai=’); readln(a);
   Write(‘Nhap chieu r />s:=a*b;
   c:=(a+b)*2;
   Writeln(‘Dien tich hinh chu nhat la:’,s:6:2); Writeln(‘Chu vi hinh chu nhat:’,c:6:2); Readln;

   End.

   Bình luận

2. program dien_tich;

   uses crt;

   var x,y,S: integer;

   Begin

            clrscr;

            write(‘Nhap chieu dai: ‘); readln(x);

            write(‘Nhap chieu rong: ‘); readln(y);

            S:=x*y;

            write(‘Dien tich hinh chu nhat = ‘,S);

            readln

   End.

   Bình luận