7.2.. Napisati program za izračunavanje vrijednosti z prema izrazu:

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROGRAM P0721106;
USES
  WinCrt;
VAR                  { deklarisanje promjenljivih }
  a, b, z : REAL;    { realne promjenljive }
BEGIN
  Write('Dva broja ');  { ulazne promjenljive }
  Readln(a, b);         { ulaz - ucitavanje promjenljivih }
   
  IF a > 1 THEN                      { ako je a vece od 1 tada }
    z := b / a                       { izraz1 - kolicinik }
  ELSE
    IF (a > -6) AND (a <= 1) THEN    { ako je a iz opsega tada }
      z := a + 3                     { izraz2 - dodaj 3 }
    ELSE                             { inace }
      z := a + b;                    { izraz3 - suma brojeva }
       
  Writeln('a=', a, ' b=', b,' z=', z);  { izlaz - ispis }
END.

Ispis na ekranu:

Index