1) var a,b,s:longint; 

begin

write('Nhap CD: '); readln(a);

write('Nhap CR: '); readln(b);

write('Dien tich la: ',a*b);

readln;

end.

2)var a,b,c:longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

if (a>b) and (a>c) then write('So lon nhat la: ',a);

if (b>a) and (b>c) then write('So lon nhat la: ',b);

if (c>b) and (c>a) then write('So lon nhat la: ',c);

readln;

end.

3) var i,n,s:longint;

begin

write('Nhap n: ); readln(n);

for i:=1 to n do

s:=s+i;

write('Tong la: ',s);

readln;

end.

5)

var i,n,s:longint;

begin

write('Nhap n: ); readln(n);

for i:=1 to n do

s:=s+(2*i-1);

write('Tong la: ',s);

readln;

end.

1.Xác định bài toán

- Input: Số nguyên dương N và dãy N số nguyên a1,..., aN. - Output: Giá trị lớn nhất Max của dãy số.

2. Ý tưởng:

– Khởi tạo giá trị Max = a1.
– Lần lượt với i từ 2 đến N, so sánh giá trị số hạng ai với giá trị Max, nếu ai > Max thì Max nhận giá trị mới là ai.
3. Thuật toán.

Thuật toán giải bài toán này có thể được mô tả theo cách liệt kê như sau:
Bước 1. Nhập N và dãy a1,…, aN;
Bước 2. Max := a1, i := 2;
Bước 3. Nếu i > N thì đưa ra giá trị Max rồi kết thúc;
Bước 4.
Bước 4.1. Nếu ai > Max thì Max := ai;
Bước 4.2. i := i + 1 rồi quay lại bước 3;

4. Lưu đồ

cho 5 sao