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
|
|