BÀI 7. CÂU LỆNH LẶPCÂU HỎI VÀ BÀI TẬP

9. Thuật toán:Bớc 1. Nhập số n. Bớc 2. A 32768 (gán số nhỏ nhất có thể trong các số kiểu nguyên choA), i1. Bớc 3. Nhập số thứ i và gán giá trị đó vào biến A.Bớc 4. Nếu Max < A, Max  A. Bớc 5. ii + 1.Bớc 6. Nếu i ≤ n, quay lại bớc 3.Bớc 7. Thông báo kết quả Max là số lớn nhất và kết thúc thuật toán.Chơng trình Pascal có thể nh sau:

uses crt;

var n,i,Max,A: integer;

begin

clrscr;

write('Nhap N='); readln(n);

Max:=-32768;

for i:=1 to n do

begin write('Nhap so thu ',i,':'); readln(A);

if Max<A then Max:=A end;

writeln('So lon nhat: ',Max);

end.

Lu ý. Trong chơng trình trên chúng ta chỉ sử dụng hai biến

A

và

Max

để giảibài toán. Một cách tự nhiên, để nhập n số chúng ta cần tới n biến. Tuynhiên, ở đây việc xử lí các giá trị trong dãy số có thể thực hiện bằng cáchchỉ cần so sánh các giá trị đã đợc nhập vào, do đó chúng ta chỉ cần mộtbiến để lu lần lợt các giá trị nhập vào là đủ. Một cách giải quyết khác là sửdụng biến mảng (xem Bài tập 6, Bài 9).