9.5. Naći razliku obima dva različita kruga (koristi isti potprogram FUNCTION 2 puta za obim kruga) razlika = 2 r1 Pi - 2 r2 Pi . Ispis vrijednosti u pp

Listing programa:

PROGRAM Obim05;
{Naci razliku obima dva razlicita kruga (koristi isti potprogram FUNCTION 2 puta za obim kruga)
razlika = 2 r1 Pi  - 2 r2 Pi 
ispis vrijednosti u pp}

Var 
  r1, r2, razlika : Real;

FUNCTION Obim (polurecnik: Real) :Real;  {funkcija}
Var
  O : Real;
BEGIN
  Writeln('Ulazak u funkciju ');
  O := 2 * polurecnik * pi;
  Writeln('r: ', polurecnik, '   Obim ', O);
  Obim :=  O
END;

BEGIN    {Glavni program} 
  Write('Poluprecnik 1 ');
  Readln(r1);
  Write('Poluprecnik 2 ');
  Readln(r2);
  razlika := Obim(r1) - Obim(r2); {pozovi pp da izracuna obim}
  Writeln (' poluprecnik1:', r1, ' poluprecnik2:', r2,'    Razlika obima: ', razlika);
  READLN;
END.

Ispis na ekranu:

Index