[Turbo Delphi] Prosty Programik

Main Page -> Forum Index -> Programming Generally -> Beginners Programming -> [Turbo Delphi] Prosty Programik

Author

Message

krwawa_nutria
Poziom 3

Joined: 19 Feb 2009
Posts: 5
Location: Rzeszów

04 Jun 2009 02:00

[Turbo Delphi] Prosty Programik

Witam.

Muszę napisać pewien programiczek w Języku Turbo Deplhi (korzystam z oficjalnej legalnej wersji Explorer 2006 for Windows >> http://www.codegear.com/downloads/free/turbo) a jako że noga ze mnie praktycznie totalna z wszego rodzaju programowania to bardzo proszę o pomoc - może znajdzie się Forumowicz, który w swej łaskawości i przypływie kilku wolnych chwil sporządzi mi niniejszy programik, i któremu będę się mógł z przyjemnością odwdzięczyć ;-)

Program stricte obliczeniowy lecz koniecznie z niewielkim okienkiem do wprowadzania zmiennej oraz buttonem uruchamiającym ową machinerię, mianowicie - "Algorytm Newtona do znajdowania miejsca zerowego funkcji f(x) = 5sin(3x-2) + e^3x+1 w zadanym przedziale". Niby nic trudnego, teoretycznie ale jak to tałatajstwo przenieść w te okienko i kod to już nie mam bladego pojęcia...

[Turbo Delphi] Prosty Programik

Jedyną sensowną stronkę jaką znalazłem (wszelkie inne to jak by gorsze kopie tej właśnie) z praktycznie gotowym algorytmem/programem podaję poniżej, jest nawet listing z Delphi lecz niestety nie jest to kod obiektowy i mimo moich karkołomnych wręcz zabiegów nie byłem w stanie tego przeprogramować na postać, że tak to ujmę pseudo-programistycznie "wizualną" :

http://www.eioba.pl/a2344/miejsca_zerowe_funkcji_metoda_newtona

Z góry dziękuje za wszelką pomoc - nagroda dla wybawiciela do ustalenia na PW :>

Google

Google Adsense

04 Jun 2009 02:00

bkm
Poziom 9

Joined: 28 Mar 2003
Posts: 42

#2 04 Jun 2009 08:13

Re: [Turbo Delphi] Prosty Programik

Witam!
1.Z kodu źródłowego trzeba usunąć '{$APPTYPE CONSOLE}'
2.Zamienić wszystkie 'writeln' na odpowiednią metodę komunikacji z użytkownikiem np. 'memo1.Text:= 'Obliczanie pierwiastka funkcji - metoda Newtona';'
3.W zamian za 'readln;' wpisywać dane w pole 'Edit'
4.Przed obliczeniem konwertować dane z 'string' na liczbę np. 'x0:=StrToFloat(Edit1.Text);'
5. Jeśli wynik ma być wpisany do 'memo' trzeba znowu konwertować do 'string'.

Google

Google Adsense

# 04 Jun 2009 08:13

krwawa_nutria
Poziom 3

Joined: 19 Feb 2009
Posts: 5
Location: Rzeszów

04 Jun 2009 09:48

Re: [Turbo Delphi] Prosty Programik

Bardzo Ci dziękuje za podpowiedź bkm, niemniej jednak 50% tego co napisałeś nadal jest dla mnie czarną d... dziurą ;-)

Czy mógłbym w związku z powyższym poprosić Cię, naturalnie jeżeli nie miałbyś niczego przeciwko, o gotowy program (albo chociaż kod) ?