1. Viết chương trình tính chu vi,diện tích của hình chữ nhật biết độ dài cạnh a,b nhập từ bàn phím?2. Viết chương trình tính chu vi,diện tích của hình vuông biết độ dài cạnh a,b nhập từ bàn phím?
1. Viết chương trình tính chu vi,diện tích của hình chữ nhật biết độ dài cạnh a,b nhập từ bàn phím?2. Viết chương trình tính chu vi,diện tích của hình vuông biết độ dài cạnh a,b nhập từ bàn phím?
1. program Hinh_chu_nhat;
var S, a, b, cv:real;
begin
writeln (‘Nhap chieu dai=’);
readln (a);
writeln (‘Nhap chieu rong=’);
readln (b);
S:=a*b;
cv:=(a+b)*2;
writeln (‘Dien tich hinh chu nhat la ‘ , S);
writeln (‘Chu vi hinh chu nhat la ‘ , cv:0:2);
readln;
end.
2. program Hinh_vuong;
var S, a, cv:real;
begin
writeln (‘Nhap canh cua hinh vuong=’);
readln (a);
S:= a*a;
cv:= a*4;
writeln (‘Dien tich hinh vuong la ‘ , S);
writeln (‘Chu vi hinh vuong la ‘ , cv);
readln;
end.
@ngocc_vanw
– Xin 5 sao và ‘ Câu trả lời hay nhất ‘ ạ!
Bài 1:
program cvdt;
uses crt;
var a,b,cv,dt:integer;
begin
clrscr;
writeln(‘Hay nhap hai canh hinh chu nhat’);readln(a,b);
cv:=(a+b)*2;
dt:=a*b;
writeln(‘Chu vi hinh chu nhat la ‘,cv);
writeln(‘Dien tich hinh chu nhat la ‘,t);
eadln;
end;
Bài 2:
program cvdt;
uses crt;
var a,dt:integer;
begin
clrscr;
writeln(‘Hai nhap canh hinh vuong’)readln;
dt:=a*a;
writeln(‘Dien tich hinh vuong la ‘,dt);
readln;
end.
Chúc bạn học tốt!!!!!