24 (742)

72 Aplikacje w Delphi. Przykłady

Stringgridl.Cells[i.l]:=Floattostr(a): //wpisanie liczby do tabeli end:

//wyświetlenie największej liczby z tabeli label2.Caption:='Hax liczba z tabeli='+FloattoStr(HaxValue(tab));

//wyświetlenie średniej liczb z tabeli

label3.Caption:='Średnia liczb z tabeli=’+FloattoStr(Hean(tab)); end;

Przykład 4.23.

Oblicz wartość raty, jeśli wziąłeś(-aś) pożyczkę w wysokości 30 tys. zł przy oprocentowaniu rocznym 10% na 3 lata, i wyświetl wartość raty na etykiecie.

Rozwiązanie

Można tu skorzystać z funkcji finansowej Payment (w Excelu PMT). W procedurze obsługi kliknięcia przycisku wpisz instrukcję:

Labell.Caption:=FloatToStr( Payment(0.1/12, 36, 30000, 0, pEndOfPeriod)):

Wartość, która wyświetli się na etykiecie po kliknięciu przycisku, to 968,02 zł- Sprawdź to samo w Excelu, korzystając z funkcji PMT — wpisz formułę: =PMT(10^/12:36:30000).