KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
PROGRAM HINH VUONG; {Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay} VAR a:real; BEGIN Write(‘Nhap canh a: ‘);readln(a); Writeln; If a>0 then
Hình chữ nhật:
Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,s,c: real;
Begin
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
Writeln(‘————————————————————–‘);
Write(‘Nhap chieu dai=’); readln(a);
Write(‘Nhap chieu rong=’);readln(b);
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;
Hình vuông :
PROGRAM HINH VUONG;
{Nhap canh a cua hinh vuong. Tinh chu vi, dien tich cua hinh vuong ay}
VAR a:real;
BEGIN
Write(‘Nhap canh a: ‘);readln(a);
Writeln;
If a>0 then
>> Diện tích hình vuông:
program DT_hinh_vuong;
ues crt;
var s, a: real;
begin
clrscr;
writeln(‘Nhap chieu dai canh cua hinh vuong: ‘); readln(a);
s:=a*a;
clrscr;
writeln(‘Dien tich hinh vuong la: ‘, a*a);
writeln(‘Dap so: ‘, a*a);
readln
end.
>> Diện tích hình chữ nhật:
program DT_hinh_chu_nhat;
ues crt;
var s, a, b: real;
begin
clrscr;
writeln(‘Nhap chieu dai canh a: ‘); readln(a);
writeln(‘Nhap chieu rong canh b: ‘); readln(b);
s:=a*b;
clrscr;
writeln(‘Dien tich hinh chu nhat la: ‘, a*b);
writeln(‘Dap so: ‘, a*b);
readln
end.