VAL - Pretvara string u cio broj.
Sintaksa: PROCEDURE VAL(s; VAR v; VAR code: INTEGER);

Tabela d.30. VAL - procedura

Listing programa

Ekran

Opis

PROGRAM Pretvaranje;

 

Zaglavlje

var

 

 

  i, kod: INTEGER;

 

 

  paramStr: STRING;

 

String

BEGIN

 

 

  paramStr := '1234';

 

String

  Val(paramStr, i, kod);

9.99     9

Pretvaranje

  { Greska pri pretvaranju u INTEGER? }

 

 

  IF Kod <> 0 THEN

-9.99   -9

? greška

    WRITELN('Greska na poziciji: ', kod)

 

 

  ELSE

0.99     0

Nije

    WRITELN('Vrijednost ',paramStr:10,  i:10);

Vrijednost 1234 1234

Ispis

READLN; END.

 

Kraj programa

Listing programa:


PROGRAM pVAL;
VAR 
  i, kod: INTEGER;
  paramStr: STRING;
BEGIN
  paramStr := '1234';
  Val(paramStr, i, kod);
  { Greska pri pretvaranju u INTEGER? }
  IF Kod <> 0 THEN
    WRITELN('Greska na poziciji: ', kod)
  ELSE
    WRITELN('Vrijednost ',paramStr:10,  i:10);
  READLN;
END.

Index