7.2.. Napisati program za odredjivanje apsolutne vrijednosti broja.

Listing programa:

PROGRAM RAZ3_6;
USES
  WinCrt;
VAR
  a, apsa : REAL;
BEGIN
  WRITE('Broj  ');
  READLN( a );
  IF a >= 0 THEN
    apsa := a
  ELSE
    apsa := -a;
  WRITELN('a ', a, ' apsolutno a   ', apsa );
END.

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.

 

Ispis na ekranu:

Index