- Bài tập 1 :

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

- Input : 2 hoặc n số bất kì 

- Output : tổng, hiệu, tích của 2 hoặc n số bất kì

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

- Bước 1 : dãy số a1, a2, ... , an

- Bước 2 : i ← 1; s ← 0; h ← 0; t ← 1;

- Bước 3 : nếu i > n thì xuất giá trị s, h và t rồi kết thúc

- Bước 4 : 

- Bước 4.1 : s ← s + a[i];

- Bước 4.2 : h ← h - a[i];

- Bước 4.3 : t ← t * a[i] ;

- Bước 4.4 : i ← i + 1 quay lại bước 3

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

uses crt;

var a : array[1..100] of integer;

i, n, s, h, t : integer;

begin

clrscr;

write('nhap so luong cac so :');readln(n);

s := 0; h := 0; t := 1;

for i := 1 to n do 

begin

write('nhap so thu ', i ,' : ');readln(a[i]);

s := s + a[i];

h := h - a[i];

t := t * a[i];

end;

writeln('tong cac so la :', s);

writeln('hieu cac so la :', h);

writeln('tich cac so la :', t);

readln

end.

Bài tập 2 :

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

- Input : bán kính hình tròn 

- Output : chu vi và diẹn tích hình tròn

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

- Bước 1 : nhập bán kính r

- Bước 2 : cv ← r * r * pi;

- Bước 3 : s ← r * r * pi;

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

const pi = 3.14;

begin

clrscr;

write('nhap ban kinh r :');readln(r);

cv := 2 * r * pi;

s := r * r * pi;

writeln('chu vi hinh tron : ', cv:3:2);

writeln('dien tich hinh tron : ', s:3:2);

readln

end.