câu 1: Cho hình chữ nhật có độ dài 2 cạnh là a và b. Tính chu vi của hcn đó viết thuật toán để giải bài toán bằng cách liệt kê câu 2: Hãy mô phỏng thuật toán đê tìm giá trị lớn nhất của dãy số gồm các số:10,8,15,-5,20,6,9,1

$\text{Câu 1 :}$

$\text{- Thuật toán :}$

$\text{+ Bước 1 : Nhập a và b}$

$\text{+ Bước 2 : Cv ← (a + b) * 2}$

$\text{+ Bước 3 : Đưa ra giá trị Cv}$

$\text{+ Bước 4 : Kết thúc}$

$\text{Câu 2 :}$

$\text{- Mô phỏng :}$

$\text{+ Max = A[1] = 10}$

$\text{+ i = 2 ⇒ A[2] < Max ⇒   8 < 10}$

$\text{+ i = 3 ⇒ A[3] > Max ⇒ 15 > 10 ⇒ Max = A[3]}$

$\text{+ i = 4 ⇒ A[4] < Max ⇒  -5 < 15}$

$\text{+ i = 5 ⇒ A[5] > Max ⇒ 20 > 15 ⇒ Max = A[5]}$

$\text{+ i = 6 ⇒ A[6] < Max ⇒   6 < 20}$

$\text{+ i = 7 ⇒ A[7] < Max ⇒   9 < 20}$

$\text{+ i = 8 ⇒ A[8] < Max ⇒   1 < 20}$

$\text{- Giá trị lớn nhất Max = A[5] = 20}$

Câu 1: (mình viết thuật toán)

uses crt;

var a, b: integer;

begin

clrscr;

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

                  writeln('chu vi hcn la: ',(a+b)*2);

readln;

end.

Câu 2: (mình cũng viết thuật toán)

uses crt;

var n, i, max: integer;

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

begin

clrscr;

         write('nhap so ptu cua day so: '); readln(n);

                  for i:=1 to n do begin

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

                                                      end;

                         max:=a[1];  

                         for i:=1 to n do 

                                   if (a[i]>max) then max:=a[i];

         writeln('gia tri lon nhat cua day so: ',max);

readln;

end.