9.3.. Napisati program sa funkcijom za izračunavanje dvostruke vrijednosti učitanog cijelog broja.

Listing programa:

PROGRAM P09311022;
VAR
 x,y: Real;

FUNCTION dvax(b:real):real;
BEGIN
  dvax := b*b;
END;

BEGIN
  writeln ('Dvostruka vrijednost ucitanog broja');
  write('Broj: ');
  readln(x);
  y := dvax(x);
  writeln('x= ',x, '  y=', y);
  READLN;
END.

Ispis na ekranu:

Index