Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Visual Basic [İndirilen Dosyaları Çalıştırmak?] Visual Basic [İndirilen Dosyaları Çalıştırmak?]
-
ats30 bunu yazdı:
-----------------------------
portable vb6 vardı 4-5 mb bişey indir,onunla dene diyecem de .frx yok açmaz herhalde.
-----------------------------sanırım çalıştı =) çok çok çok saolun yardımlarınız için bir de elinizde newton-raphson metodu ile fonksiyonun kökünü bulan ( =) ) programın kaynak kodları varsa alabilirmiyim =) (nümerik analiz ders ödevi =)--)
-
EDIT: Sorun çözülmüş.......
-
http://www.programlama.com/sys/c2html/view.php?DocID=1554
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23924954.html
NEWTON RAPHSON YÖNTEMİ İLE DENKLEM ÇÖZÜMÜ
Programlama Dili: MICROSOFT QUICK BASIC EXTENDED
REM --------------------------------------------
REM NEWTON - RAPHSON YÖNTEMİ İLE DENKLEM ÇÖZÜMÜ
REM --------------------------------------------
REM HAZIRLAYAN:
REM---------------------------------------------
10
CLS
SCREEN 12
GIRIS:
PRINT
PRINT LÜTFEN X0 VE EPSİLON DEĞERLERİNİ ARALARINA VİRGÜL ,
PRINT KOYARAK YAZINIZ
PRINT
PRINT NOT: ONDALIK SAYILAR İÇİN 0, YERİNE . İLE BAŞLAYINIZ
PRINT (™RNEK:0,25 YER˜NE .25)
PRINT
INPUT --- ; X0, EPS
TEKRAR:
FX = 3 * X0 - EXP(-X0)
T = 3 + EXP(-X0)
I = I + 1
X = X0 - FX / T
IF ABS(X - X0) EPS THEN X0 = X: GOTO TEKRAR:
PRINT KÖK=; X
PRINT I; DEFA UYGULANAN İTERASYONLA HESAPLANDI
PRINT
PRINT ------------------------------------------------------------------
PRINT YENİ HESAPLAMA İSTİYOR MUSUNUZ?(E/H)
PRINT ------------------------------------------------------------------
INPUT , A$
IF A$ = E THEN 10
IF A$ = e THEN 10
ENDyardımcı olamayacam k bakma :) kolay gelsin.
-
açtıktan sonra make exe yaparsan sanırım sorunun çözülür. vb ile açılabiliyor yanlış bilmiyorsam. olmazsa make exe yaparsan sorunun çözülebilir sanırım
-
ats30 bunu yazdı:
-----------------------------
http://www.programlama.com/sys/c2html/view.php?DocID=1554
-----------------------------bunu buldum da yapmayı becemedim hata verdi =)
-
ats30 bunu yazdı:
-----------------------------
http://www.programlama.com/sys/c2html/view.php?DocID=1554
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23924954.html
NEWTON RAPHSON YÖNTEMİ İLE DENKLEM ÇÖZÜMÜ
Programlama Dili: MICROSOFT QUICK BASIC EXTENDED
REM --------------------------------------------
REM NEWTON - RAPHSON YÖNTEMİ İLE DENKLEM ÇÖZÜMÜ
REM --------------------------------------------
REM HAZIRLAYAN:
REM---------------------------------------------
10
CLS
SCREEN 12
GIRIS:
PRINT
PRINT LÜTFEN X0 VE EPSİLON DEĞERLERİNİ ARALARINA VİRGÜL ,
PRINT KOYARAK YAZINIZ
PRINT
PRINT NOT: ONDALIK SAYILAR İÇİN 0, YERİNE . İLE BAŞLAYINIZ
PRINT (™RNEK:0,25 YER˜NE .25)
PRINT
INPUT --- ; X0, EPS
TEKRAR:
FX = 3 * X0 - EXP(-X0)
T = 3 + EXP(-X0)
I = I + 1
X = X0 - FX / T
IF ABS(X - X0) EPS THEN X0 = X: GOTO TEKRAR:
PRINT KÖK=; X
PRINT I; DEFA UYGULANAN İTERASYONLA HESAPLANDI
PRINT
PRINT ------------------------------------------------------------------
PRINT YENİ HESAPLAMA İSTİYOR MUSUNUZ?(E/H)
PRINT ------------------------------------------------------------------
INPUT , A$
IF A$ = E THEN 10
IF A$ = e THEN 10
ENDyardımcı olamayacam k bakma :) kolay gelsin.
-----------------------------hiç birini beceremedim 0_o yine de saol =)
-
çevirmeye çalıştım ama
IF ABS(X - X0) EPS THEN X0 = X: GOTO TEKRAR:
kısmını çeviremedim.orda eksik bir operatör var sanırım.diğer örneklere bakarak bişiyler yaparsın.zorla kendini..
-
ats30 bunu yazdı:
-----------------------------
çevirmeye çalıştım ama
IF ABS(X - X0) EPS THEN X0 = X: GOTO TEKRAR:
kısmını çeviremedim.orda eksik bir operatör var sanırım.diğer örneklere bakarak bişiyler yaparsın.zorla kendini..
-----------------------------programlamadan anladığım söylenemez, bunu çevirmem de pek mümkün görünmüyor =) sen de benim için uğraştın çabaladın saol =) daha fazla kasmayalım ödevi teslim etmem olur biter alıştım zaten :P
-
ats30 Nickli müridimiz saolsun programı hazırlayıp yollamış =) sorunlarımla ilgilendiğiniz için teşekkürler.. Artık ödevi teslim etme vakti... =)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla