Viết ct tính S ,P của HCN có chiều dài và chiều rộng nhập từ bàn phím

0 bình luận về “Viết ct tính S ,P của HCN có chiều dài và chiều rộng nhập từ bàn phím”

1. Program dientichchuvi;

   Uses crt;

   Var s,p,a,b : real;

   Begin

   Clrscr;

   Write(‘ nhap chieu dai a’,a);

   Readln(a);

   Write(‘nhap chieu rong b’,b);

   Readln(b);

   P: = (a+b)*2 ;

   S:=a*b;

   Writeln(‘ dien tich cua hinh chu nhat do la’,S);

   Writeln(‘chu vi cua hinh chu nhat do la’,P);

   Readln

   End.

   Bình luận

2. program SPHCN;

   var a,b,S,P: real; {a, b lan luot la chieu dai, chieu rong}

   begin

   writeln(‘Chieu dai hinh chu nhat: ‘); readln(a);

   writeln(‘Chieu rong hinh chu nhat: ‘); readln(b);

   S:=a*b; P:=(a+b)*2;

   writeln(‘S la: ‘,S,’P la: ‘,P);

   readln

   end.

   Bình luận