7.2.. Napisati program za odredjivanje apsolutne vrijednosti broja.
Listing programa:
Za objašnjenje:
*** |
Listing programa |
Opis |
1 |
PROGRAM RAZ3_6; |
|
2 |
USES |
|
3 |
WinCrt; |
|
4 |
VAR |
|
5 |
a, apsa : REAL; |
|
6 |
BEGIN |
|
7 |
WRITE('Broj '); |
|
8 |
READLN( a ); |
|
9 |
IF a >= 0 THEN |
|
10 |
apsa := a |
|
11 |
ELSE |
|
12 |
apsa := -a; |
|
13 |
WRITELN('a ', a, ' apsolutno a ', apsa ); |
|
14 |
END. |
|
PROGRAM RAZ3_6;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
a, apsa : REAL; { realne promjenljive }
BEGIN
WRITE('Broj '); { ulazna promjenljiva }
READLN( a ); { ulaz - ucitavanje promjenljive }
IF a >= 0 THEN { ako je a vece ili jednako 0, tada }
apsa := a { a vece ili jednako 0, apsa = a }
ELSE { inace }
apsa := -a; { logicki izraz lazan - apsa := -a }
WRITELN('a ', a, ' apsolutno a ', apsa ); { izlaz - ispis }
END.
Ispis na ekranu:
 |
 |
 |
 |
 |
 |
