Napisati program sa funkcijom za izračunavanje kvadrata broja.

Listing programa:

PROGRAM kvadratna_funkcija;
VAR
 x,y: Real;

FUNCTION kv(b:real):real;
VAR
  a :real;
BEGIN
  a:=b*b;
  kv:=a;
END;

BEGIN
  writeln ('kvadrat broja');
  write('x= ');
  readln(x);
  y := kv(x);
  writeln('x= ',x, '  y=', y);
  READLN;
END.

Index