6.4.. Naći program za izračunavanje aritmetičku sredinu tri broja.

Opis rješenja:

Opis programa:

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM sredina;

 

2

USES WinCRT;

 

3

VAR

 

4

  a, b, c: Integer;

 

5

  as: Real;

 

6

BEGIN

 

7

  Write('a, b, c = ');

 

8

  Readln(a, b, c);

 

9

  as:=(a+b+c)/3;

sumu tri broja s= a+b+c podijeli sa 3

10

  Writeln('as=',as:4:2);

 

11

END.

 

Listing programa:

PROGRAM sredina;
VAR                    { deklarisanje promjenljivih }
  a, b, c:  Integer;   { cjelobrojne promjenljive }
  as : Real;           { realne promjenljive }
BEGIN
  WRITELN('Aritmeticka sredina tri broja');    { naslov }
  Write('a, b, c = ');                         { ulazne promjenljive }
  Readln(a, b, c);                             { ulaz - ucitavanje promjenljivih }
  
  as := (a + b + c) / 3;                       { obrada - proracun }
  
  Writeln('as=', as:4:2);                      { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index