7.2.. Od dva učitana broja (a, b) sa tastature naći veći max(a2, b2).
Opis programa: Naredbom IF se izvodi provjera vrijednosti varijabli a2 i b2. Varijabla max prima vrijednosti veće.
Listing programa:
REM P07211042;
CLS
INPUT "Unesi dva broja a i b"; a, b
max = b ^ 2
IF a ^ 2 > b ^ 2 THEN
max = a ^ 2
END IF
PRINT ("Od brojeva"); a, b
PRINT ("Veci kvadrat je"); max
END
II Varijanta
REM P07211042;
CLS
INPUT "Unesi dva broja a i b"; a, b
IF a ^ 2 > b ^ 2 THEN
max = a ^ 2
ELSE
max = b ^ 2
END IF
PRINT ("Od brojeva"); a, b
PRINT ("Veci kvadrat je"); max
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211042.gif)
Index
|