Skocz do zawartości


Zdjęcie

[delphi]Program obliczajacy wartosc kredytu


  • Zamknięty Temat jest zamknięty
2 odpowiedzi w tym temacie

#1 damiannx

damiannx

    Nowy

  • 2 postów

Napisano 01 01 2008 - 15:24

Na zakonczenie polrocza dostalem program zaliczeniowy lecz jestem strasznie lewy z delphi i moglby to ktos wytlumaczyc?

Napisz program ktory wyliczy wartosc kredytu.Uzytkownik podaje:
-roczna stope procentowa
-liczbe rat w ktorych chce splacic kredyt
W wyniku otrzymujem wartosc kredytu rowna sumie kapitalu i odsetek.Przyjmij, ze odseki naliczane sa comiesiac

Tzn nie chodzi mi o cale napisanie programu ( choc jesli komus wyggodniej jes pisac nz tluamczyc to prosze ) lecz o pomoc w wytluamczeniu takich rzeczy jak :skad mam po prostu wiedziec ile wynosi wartosc jezeli mam podana tylko ilosc rat i oprocentowanie? Niezbedna jest chyab tutaj kwota rat miesiecznej czy zle mysle?Prosze o jakakolwiek pomoc

  • 0

#2 tyranka

tyranka

    Początkujący

  • 145 postów

Napisano 01 01 2008 - 16:53

Na zakonczenie polrocza dostalem program zaliczeniowy lecz jestem strasznie lewy z delphi i moglby to ktos wytlumaczyc?

Napisz program ktory wyliczy wartosc kredytu.Uzytkownik podaje:
-roczna stope procentowa
-liczbe rat w ktorych chce splacic kredyt
W wyniku otrzymujem wartosc kredytu rowna sumie kapitalu i odsetek.Przyjmij, ze odseki naliczane sa comiesiac

Tzn nie chodzi mi o cale napisanie programu ( choc jesli komus wyggodniej jes pisac nz tluamczyc to prosze ) lecz o pomoc w wytluamczeniu takich rzeczy jak :skad mam po prostu wiedziec ile wynosi wartosc jezeli mam podana tylko ilosc rat i oprocentowanie? Niezbedna jest chyab tutaj kwota rat miesiecznej czy zle mysle?Prosze o jakakolwiek pomoc


wartosci nie znasz, wiec zamiast nieuj uzyj jakiejs zmiennej.
niech wartosc tej zmiennej bedzie prowadzana jak dane do kalulatora
i juz chyba nie bedzie problemu

  • 0

#3 damiannx

damiannx

    Nowy

  • 2 postów

Napisano 01 01 2008 - 18:49

var proc,raty,cen,temp:real;
begin
proc:=strtofloat(edit1.Text);
cen:=strtofloat(edit2.Text);
raty:=strtofloat(edit3.Text);

  proc:=proc/100;
  temp:=cen*proc;
  cen:=cen+temp;
  cen:=cen/raty;

edit4.Text:=floattostr(cen);

Skleilem cos takiego, dobrze to jest?

  • 0

Zobacz więcej tematów z tagiem: Delphi



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych