6.4.. U banci imate određenu sumu novca. Godišnja kamata je 17%. Pod predpostavkom da ništa ne podižete u banci, koliko ćete novaca imati nakon tri godine.

Opis rješenja:

Opis programa:

Za objašnjenje:

***

Listing programa

Opis

1

PROGRAM kamate;

 

2

USES
   WinCRT;

 

3

VAR

 

4

  g:real;

 

5

BEGIN

 

6

  Write('Vasa glavnica iznosi g=');

 

7

  Readln(G);

Ulaz

8

  g:=g+0.17*g;

I godina 17%

9

  g:=g+0.17*g;

II godina 17% na novi iznos

10

  g:=g+0.17*g;

III godina 17% na iznos poslije II godine

11

  Writeln('Kolicina novca je:', g);

Izlaz

12

END.

 

Listing programa:

PROGRAM kamate;
VAR
  g:real;
BEGIN
  Write('Vasa glavnica iznosi g=');
  Readln(G);
  g:=g+0.17*g;
  g:=g+0.17*g;
  g:=g+0.17*g;
  Writeln('Kolicina novca je:',g);
  READLN;
END.

Ispis na ekranu:

Index