Bài tập 1 :

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

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

- 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 hình vuông (a)

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

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

- 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, cv, s : integer;

begin

clrscr;

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

cv := a * 4;

s : = a * a;

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

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

readln

end.

Bài tập 2 :

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

- Input : chiều dài (a) và chiều rộng (b) của hình chữ nhật

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

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

- Bước 1 : nhập chiều dài (a) và chiều rộng (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 chieu dai hinh chu nhat :');readln(a);

write('nhap chieu rong hinh chu nhat :');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 tập 1 :

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

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

- 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 hình vuông (a)

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

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

- 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: integer;

      P,S: real;

begin

clrscr;

write('Do dai canh hinh vuong:');readln(a);

P:=a*4;

S:=a*a;

writeln('Chu vi hinh vuong:', P);

writeln('Dien tich hinh vuong:', S);

readln

end.

Bài tập 2 :

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

- Input : chiều dài (a) và chiều rộng (b) của hình chữ nhật

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

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

- Bước 1 : nhập chiều dài (a) và chiều rộng (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: integer;

      P, S

begin

clrscr;

writeln(Chieu dai hinh chu nhat:');readln(a);

writeln('Chieu rong hinh chu nhat:');readln(b);

P:= (a + b)*2;

S:= a*b;

writeln('Chu vi hinh chu nhat :',P);

writeln('Dien tich hinh chu nhat:',S);

readln

end.