xác định bài toán:

input: bốn số a,b,c,d;

output: số lớn nhất trong 4 số a,b,c,d;

mô tả thuật toán:

B1: nhập a,b,c,d;

B2: max<--a;

B3: nếu(max<b)thì max<--b;

B4: nếu(max<c)thì max<--c;

B5: nếu(max<d)thì max<--d;

B6: xuất max;

chương trình;

program bai_giai;

uses crt;

var a,b,c,d,max:longint;

begin

clrscr;

write('nhập a,b,c,d');readln(a,b,c,d);

max:=a;

if(max<b)then max:=b;

if(max<c)then max:=c;

if(max<d)then max:=d;

write('max=',max);

readln;

end.

Code:

var max,a,b,c,d:integer;
begin
        write('nhap a,b,c,d: ');read(a,b,c,d);
        max:=a;
        if max < b then max:=b;

        if max < c then max := c;
        if max < d then max:=d;
        writeln('so lon nhat la ',max);
end.

Mô tả: gán max cho phần tử a từ đó so sánh lần lượt cho b c d nếu max < b thì max là b max < c max là c max < d max là d thì sau đó khi ta lần lượt so sánh max với tất cả các biến thì chắc chắn trong max đã giữ giá trị số lớn nhất. In ra max.

@Hômnaytôibịrob