Var a, b, c, d, max: integer;
Procedure timMax;
Begin
Max:=a;
If b>max then max:=b;
If c>max then max:=c;
If d>max then max:=d;
End;
Begin
Write['nhap 4 so: ']; readln[a, b, c, d];
timMax;
Write['so lon nhat la: ', max];
Readln
End.
Gợi ý:
– Cách 1: Đầu tiên cho số lớn nhất là 1 trong 4 số, lần lượt so sánh 3 số còn lại với giá trị lớn nhất hiện tại nếu lớn hơn thì giá trị lớn nhất sẽ là số vừa so sánh. Tương tự với trường hợp tình số nhỏ nhất. Có thể sửa dụng cấu trúc rẻ nhánh dạng thiếu.
– Cách 2: So sánh lần lượt 1 số với tất cả các số còn lại nếu nó lớn hơn tất cả thì nó là số lớn nhất trong 4 số. Sử dụng cấu trúc rẻ nhánh dạng đầy đủ hoặc dạng thiếu để lần lượt loại bỏ các trường hợp so sánh không cần thiết. Biểu diễn thuật toán theo PP liệt kê:
– Bước 1: Nhập 4 số a, b, c, d; – Bước 2: Max