Za kolko budete milionarom – Pascal – Fórum – Programujte.com

Napíšte program Milionár, ktorý z klávesnice načíta počiatočný vklad na účet v banke a úrok v percentách, ktorý banka poskytuje na ročné úročenie vkladov. Na obrazovku vypíše, koľko musí vkladateľ čakať, aby sa stal milionárom.

Vedel by mi niekto s týmto, PROSIM, pomoct? SOm zufaly...verim, že pre vás expertov to je max. 2min zalezistost...

dakujem:)

#1 Maro

Si robíš srandu?! 

S čím máš problém? Si analfabet?(Neuraz sa!)
Zapoj rozum! Myslíš si, že niekto za teba bude písať??
Posnaž sa a napíš sem zdroják, potom ti pomôžeme. 

Ak si začiatočník, tak to čo som vyššie napísal, neplatí pre teba.(možno...)  
Matematika zo základnej školy.
Hoci potrebuješ zákl. znalosti z Pascala(Cykly, premenné, dat. polia ...), nie je to také ťažké.

Ak si úplný začiatočník, tak sa nepúšťaj do hlbokej vody, dokým nevieš plávať.

#1 Maro
program Milionar;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n: Integer;
    pv,p: Extended;
begin
  WriteLn;
  WriteLn(' ----------------- Milionar ------------------');
  WriteLn;
  Write(' Zadej pociatocny vklad (pv v eurech): '); //zadani pocatecniho vkladu
  ReadLn(pv);
  Write(' Zadej percento urocenia (p v percentach-pouze cislo): '); //zadani uroku
  ReadLn(p);
  WriteLn;
  n := Round(ln(1000000/pv)/ln(1+p/100)+0.5); //vypocet poctu roku, 0.5 pricteno aby se zaokrouhlovalo vzdy nahoru
  WriteLn(' Milionarem budem za ',n,' rokov');
  ReadLn;
end.