xác định 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;

mô tả bài toán:

input: a,b,c,d;

output: max của 1 trong 4 số a,b,c,d;

viết chương trình:

program bai_giai;

uses crt;

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

begin

clrscr;

write('nhap 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('so lon nhat trong 4 so la:',max);

readln;

end.

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

- Input : 4 số nguyên a, b, c, d

- Output : giá trị lớn nhất trong 4 số

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

- Bước 1 : nhập 4 số nguyên a, b, c, d

- Bước 2 : max ← a;

- Bước 2.1 : nếu b > max thì max ← b

- Bước 2.2 : nếu c > max thì max ← c

- Bước 2.3 : nếu d > max thì max ← d

- Bước 3 : xuất giá trị max

- Bước 4 : kết thúc

* Viết chương trình :

uses crt;

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

begin

clrscr;

write('nhap gia tri a, b, c, d :');readln(a, b, c, d);

max := a;

if b > max then max := b;

if c > max then max := c;

if d > max then max := d;

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

readln

end.