7.2.. Naći najveću razliku između 4 učitana broja. Poredi se razlika susjednih bojeva.
Opis rješenja: Prvo se izračuna apsolutna vrijednosti razlika susjednih brojeva (). Zatim se porede dobivena tri broja i traži najveći tj. na ovaj način dobija se najveća razlika.
Listing programa:
REM 07211021
CLS
INPUT "Unesi cetiri broja sa tastature:"; a, b, c, d
z = ABS(a - b)
y = ABS(b - c)
v = ABS(c - d)
max = z
IF y > z THEN max = y
IF v > z THEN max = v
PRINT "Razlike su:"; z, y, v
PRINT "Najveca razlika je :"; max
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211021.gif)
Index
|