Pagalbos, Programavimas FPS.

[Edvinas A]

Sveiki, iškilo maža bėdelė dėl free pascal uždavinuko.

 

Bankas už indėlius moka p procentų palūkanų per metus. Metų gale palūkanos pridedamos prie indėlio.

Jei indėlininkas pinigų nė kiek neišima, palūkanos skaičiuojamos nuo vis didesnės sumos. Parašykite

programą, kuri apskaičiuotų, per kiek metų t, pradinis indėlis ind pasieks sumą s. Pasitikrinkite: kai p

= 5, ind = 1000, s = 1200, rezultatas t = 4.

 

Mano sprendimas su klaida kuri neaišku dėl ko padėkit kas suprantate.

 

 

program Palukanos;

    var

    p : integer;

    t : integer;

    s : integer;

  ind : integer;

  

begin

    p := 5;

  ind := 1000;

    s := 1200;

    t := 4;

 

Write('Iveskite indelio suma: '); ReadLn(ind);

Write('Iveskite procentus palûkanu: '); ReadLn(p);

Write ('Galutinë suma: '); ReadLn(s);

 

while ind < s do

begin

ind := ind + (ind / 100 * p);

t := t + 1;

end;

Write( s,' suma pasieks po ',t,' metu.');

  Readln;

end.

Redaguota Balandžio 21, 2014, nario Edvinas A

[Gytis_Eclipse]

Pabandyčiau padaryt tik C++, išsiversi manau?

[Gytis_Eclipse]

#include <iostream>
using namespace std;

int main()
{
    int p,
        ind,
        s,
        t = 0;
    cout << "Iveskite indelio suma:"; cin >> ind;
    cout << "Iveskite procentus:"; cin >> p;
    cout << "Iveskite galutine suma:"; cin >> s;

    while(ind < s)
    {
        ind = ind + (ind * p / 100);
        t++;
    }
    cout << "Po " << t << " metu turesit visa suma." << endl;
    return 0;
}

[Edvinas A]

C++ padėtu tik tuo atveju jei nežinočiau esmės kaip pradeti išvis, o pas mane viskas padaryta tik kažkur yra klaida.

[Eddie]

Kokia klaida?

[bebras]

   t := 4;

Nesupratau kam tu "t" priskiri "4"..

[Edvinas A]

ai nu jo, t = 0, bet vistiek kažka dar netaip darau.

Redaguota Balandžio 22, 2014, nario Edvinas A

[bebras]

Tai tu sakyk, kas yra negerai? Nesikompiliuoja? Netinkamą rezultatą rodo?

Redaguota Balandžio 22, 2014, nario Justas Š.

[Edvinas A]

[Edvinas A]

Klaida rodo čia, bet nemanau kad būtent šitoi eilutei klaida.

[Eddie]

ind : real;

[Edvinas A]

Na taip, dekui tau, galit lock.