xác định bài toán:

chu vi hình chữ nhật:

input: chiều dài, chiều rộng hình chử nhật;

output: chu vi hình chữ nhật;

chu vi hình vuông:

input: nhập 1 cạnh của hình vuông;

output: chu vi hình vuông;

thuật toán:

chu vi hình chữ nhật:

B1: nhập a,b;

B2: cv<--(a+b)*2;

B3: xuất cv;

chu vi hình vuông:

B1: nhập a;

B2: cv<--a*4;

B3: xuất cv;

viết chương trình:

chu vi hình chữ nhật:

program bai_giai;

uses crt;

var a,b,cv:longint;

begin

clrscr;

write('nhap chieu dai, chieu rong:');readln(a,b);

cv:=(a+b)*2;

write('chu vi hinh chu nhat do la:',cv);

readln;

end.

chu vi hình vuông:

program bai_giai;

uses crt;

var a,cv:longint;

begin

clrscr;

write('nhap 1 canh cua hinh vuong:');readln(a);

cv:=a*4;

write('chu vi hinh vuong do la:',cv);

readln;

end.

Đây là bài toán tính chu vi hình chữ nhật nha, chúc bạn học tốt.

Program Chu_nhat;

uses crt;

Var a, b, S, CV: real;

Begin    

 Write('Nhap chieu dai:'); readln(a);      

Write('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:10:2);    

 readln;

end.