Câu 1:

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

+Xác định Input

+Xác định Output

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

- Tìm cách giải bài toán và diễn tả bằng các lệnh cần phải thực hiện Viết chương trình.

- Dựa vào mô tả thuật toán, ta viết chương trình bằng một ngôn ngữ lập trình

Câu 2:

uses crt;

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

i,n,max:integer;

begin

clrscr;

read(n);

for i:=1 to n do read(A[i]);

max:=A[1];

for i:=1 to n do if max<A[i] then max:=A[i];

write(max);

readln

end.

Câu 3:

Thuật toán:

+B1: Nhập 5 số a,b,c,d,e.

+B2: Gán lần lượt các giá trị a,b,c,d,e vào mảng.

+B3: Sử dụng vòng lặp kép để sắp xếp mảng tăng dần.

+B4: Đưa ra màn hình các số được sắp xếp.

+B5: Kết thúc thuật toán:

Code:

var X:array[1..5] of integer;

a,b,c,d,e,i,j,t:integer;

begin

read(a,b,c,d,e);

X[1]:=a; X[2]:=b; X[3]:=c; X[4]:=d; X[5]:=e;

for i:=1 to 5 do

for j:=i+1 to 5 do

if X[i]>X[j] then

begin

t:=X[i];

X[i]:=X[j];

X[j]:=t;

end;

for i:=1 to 5 do write(X[i],' ');

readln

end.

Câu 4:

var a,b:integer;

begin

write('Nhap chieu cao ban thu nhat: '); readln(a);

write('Nhap chieu cao ban thu hai: '); readln(b);

end.