1) Viết chương trình tính diện tích và chu vi hình chữ nhật . Biết chiều dài và chiều rộng là do người sử dụng nhập giá trị.

input  3 cạnh và đường cao

output diện tích và chu vi tam giác

b1 nhập a,b,c,h

b2 tính 

S← `1/2` `xx` a `xx` h

CV←a+b+c

b3 xuất S và CV rồi kết thúc

uses crt;

var a,b,c,h:real;

begin

clrscr;

readln(a,b,c);

writeln('s',(a*h)/2);

writeln('cv',a+b+c);

readln

end.

2) Viết chương trình tính diện tích và chu vi hình vuông. Biết cạnh hình vuôn a là do người sử dụng nhập giá trị.  

input cạnh hình vuông

output chu vi, diện tích hình vuông

b1 nhập a

b2 tính

Cv←a `xx` 4

S←`a^2`

b3 xuất S và Cv rồi kế thúc

uses crt;

var a:real

begin

clrscr;

readln(a);

writeln('Cv',a*4);

writeln('S',sqr(a);

reasln

end.

Bài 1 :

* Xác định bài toán :

- Input : chiều dài (a), chiều rộng (b)

- Output : chu vi và diện tích hình chữ nhật

* Mô tả thuật toán :

- Bước 1 : nhập a và b

- Bước 2 : cv ← (a + b) * 2

- Bước 3 : s ← a * b

- Bước 4 : xuất giá trị cv và s

- Bước 5 : kết thúc

* Viết chương trình :

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

write('nhap do dai canh b :');readln(b);

cv := (a + b) * 2;

s := a * b;

writeln('chu vi hinh chu nhat :', cv);

writeln('dien tich hinh chu nhat :', s);

readln

end.

Bài 2 :

* Xác định bài toán :

- Input : độ dài cạnh hình vuông (a)

- Output : chu vi và diện tích hình vuông

* Mô tả thuật toán :

- Bước 1 : nhập độ dài cạnh a 

- Bước 2 : cv ← a * 4

- Bước 3 : s ← a * a

- Bước 4 : xuất giá trị s và cv

- Bước 5 : kết thúc

* Viết chương trình :

uses crt;

var a, cv, s : integer;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

cv := a * 4;

s := a * a;

writeln('chu vi hinh vuong :', cv);

writeln('dien tich hinh vuong :', s);

readln

end.