8.3.. Napisati program za ispis aritmetičke sredine prirodnih brojeva do n.

Opis rješenja: Početna vrijednost varijable s (suma) je 0 i brojača BR je = (BR=0). Suma se formira po izrazu s=s+i, brojač br = br + 1. Računar pri izvođenju prvo izvodi desni dio, sabira vrijednost s i vrijednost i. Izračunata vrijednost se pridružuje varijabli s. Zatim se vrijednost varijable i uvećava za jedan (i=i+1). Postupak uvećanja sume i vrijednosti varijable i se ponavlja sve dok je vrijednost varijable i manja ili jednaka n. Aritmetička sredina je suma elemenata podjeljena sa brojem elemenata u ovom slučaju to je: as = s/br;.

Opis programa: Početne vrijednosti varijable s (s=0) i varijable i (i=1). Logički izraz i<=n obezbjeđuje ponavljanje DO petlje. Izrazom s=s+i se izvodi formiranje sume. Po izvedenom sabiranju (s+i) izračunata vrijednost se pridružuje sumi s. Na sličan način se formaira vrijednost brojača (br=br+1). Zatim se uvećava vrijednost varijable i (i=i+1). Izračunata vrijednost sume s se dijeli sa vrijednošću brojača i izračunata aritmetička sredina se ispisuje na kraju programa.

Listing programa:

REM p08313010
CLS
PRINT "Do broja: ";
INPUT N
S = 0
BR = 0
I=1
DO
  S = S + I
  BR = BR + 1
  I = I+1 
LOOP UNTIL I > N
AS = S / BR
PRINT "ARITMETICKA SREDINA PRIRODNIH BROJEVA OD 1 DO "; N; " je "; AS
END

Ispis na ekranu:

Index