Forum
Aktif konular
Üyeler
Kurallar
Arama
Quick Basic Programı İle İlgili Bir Soru Quick Basic Programı İle İlgili Bir Soru
-
Müridler ev arkadaşıma bi ödev vermiş hoca,
1+x+x^2/2! + x^3/3! + ..... x^n/n!serisinin basic dilinde yazılımı nedir?
bunun çözümünü verebilecek biri varmı
-
Ödevin tamamını istemiyorsun herhalde?
-
çokmu uzun :), valla mümkünse hepsi hocam ya :S
-
Önemli olan uzunluğu zorluğu vs değil. Bir yerden başlamanız, sonrasında da takıldığınız yerleri buraya sormanız lazım. Yoksa tamamını yapacak adam çok burda.
-
Hocam haklısında, arkadaş ziraat müh. 4.sınıf halen birinci sınıftaki bilgisayar dersini vermemiş vizesi kötü geçmiş hocada bunu vermiş git bunu yap gel puan vercem ve bu puanı vize notun kabul etcem demiş.. konuyla çok alakası olan bi insan değil bende programlamadan anlamam zaten
-
Valla 15 sene önce kullanmıştım hatta bitirme projemi bununla yapmıştım fakat unuttum açıkçası.. QuickBasic'i
-
DECLARE FUNCTION us (tbn AS DOUBLE, ust AS INTEGER)
DECLARE FUNCTION fak (k AS INTEGER)
'bu program x uzeri n / n! serisini hesaplar
DIM S AS DOUBLE
DIM N AS INTEGER
DIM x AS DOUBLE
DIM i AS INTEGER
CLS
INPUT " X sayisini giriniz"; x
INPUT " N sayisini giriniz"; N
S = 0
FOR i = 0 TO N
S = S + us(x, i) / fak(i)
PRINT "x="; x; "i="; i; us(x, i) ' bu satirlar fonksiyonlarin calistigini
PRINT "fak i="; i; fak(i) 'izlemek icin yazildi istenirse silinebilir
NEXT i
PRINT x; "sayisi icin N="; N; "icin Sonuc="; S
END
FUNCTION fak (k AS INTEGER)
DIM c AS DOUBLE
c = 1
FOR j = k TO 1 STEP -1
c = c * j
NEXT j
fak = c
END FUNCTION
FUNCTION us (tbn AS DOUBLE, ust AS INTEGER)
IF tbn = 0 THEN us = 0
uss = 1
FOR i = 1 TO ust
uss = uss * tbn
NEXT i
us = uss
END FUNCTION -
Burada iki fonksiyon tanımladık
fak bir sayının faktöriyelini alan fonksiyon
üs bir sayının tam sayı üssünü alan fonksiyon...
ana programda x^n/n! formülünü i döngüsüyle toplattık ve sonucu bulduk..
yukarıdaki kodu not defteriyle kaydedip uzantısını bas yaparsa , Quickbasic editörüyle erişebilir ve çalıştırır..
-
edit
-
QBASIC mi kaldı. Komedi gibi.15 yıl önce bile yerini çoktan kaybetmişti.
-
eyw kardeşim çok sağol minnettarım sana, programın 64it lik olanını arıyorum bulunca denicem birazdan
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla