Keskustelu: Koodit: Pascal: Yksinkertainen korkolasku

program Yksinketainenkorko;



var
 kuukausitalletus: Single;
 vuosikorko: Single;
 aika: Single;
 tuotto: Single;

begin

 kuukausitalletus := 0.0;
 vuosikorko := 0.0;
 tuotto := 0.0;
 {Annetaan kelvolliset lähtötiedot}

 while (kuukausitalletus <= 0.0) do
 begin
  WriteLn('Anna kuukausi talletus');
  readln(kuukausitalletus);
 end;

 while (vuosikorko <= 0.0) do
 begin
  WriteLn('Anna vuosikorko');
  read(vuosikorko);
 end;


 {Lasketaan yksinkertainen koron korot puolen vuoden ajalle}

 tuotto := 0.0;

 aika := 6/12.0;

 while (aika > 0) do

 begin
  tuotto := tuotto+kuukausitalletus*(vuosikorko/100)*aika;

  aika := aika-1/12.0;
 end;
 WriteLn('Tuotto:');
 WriteLn((tuotto):7:2);
 WriteLn('Yhteensä');
 WriteLn((tuotto+12*kuukausitalletus):7:2);

 tuotto := 0;
 aika := 12/12.0;
  while (aika > 0) do

 begin
  tuotto := tuotto+kuukausitalletus*(vuosikorko/100)*aika;

  aika := aika-1/12.0;
 end;
 WriteLn('Tuotto:');
 WriteLn((tuotto):7:2);
 WriteLn('Yhteensä');
 WriteLn((tuotto+12*kuukausitalletus):7:2);

end.