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
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
By Jasmine
By Jasmine
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
$#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.
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.