İstedikten sonra yapılamayacak bir şey yok. İstek ise ihtiyaçtan doğar. Örneğin matematikteki seriler. Bildiğimiz gibi seri, özel bir fonksiyondur.
a(n)=(3+n)/(n*n), burada serinin 5. elemanını istiyorsak 5 koyarız. Çok basit. O zaman serinin 5. elemanı= a(5)=8/25 olacaktır. VB6 ile bu serinin n. elemanını bulan fonksiyonu yazalım:
Kod:
private function a(byVal n as integer) as double
a=(3 + n) / (n * n)
end function
Buraya kadar oldukça kolay. Fakat bir öğrenci kağıt kalem kullanarak serinin 5. elemanını rahat bulabilir. Kimse oturupta kodu sadece bu kadarla bırakmaz. O zaman zorlaştıralım. Yeni problemimiz a(n) serisinin ilk 10 elemanının toplamını bulmak olsun. Şimdi ise çözerken kağıt kalem kullanmaya üşenecek bir sorunumuz oldu. O zaman ise aşağıdaki kodu yazarız.
Kod:
private function seriToplamA(byval t as integer) as double
dim temp as double
dim n as integer
for n=1 to t step 1 'seride n=0 olamaz
temp = temp + a(t)
next n
seriToplamA = temp
end function
Yukarıdaki örnekte gördüğümüz gibi, programlama eğitiminin ilk kuralı öğrencinin programlama yaparak çözebileceği problemleri göstermek diye düşünüyorum. Ha bilgisayar programcılığı eğitimi alıyorsak birinin bize "tamam sen bu fonksiyonları kullanabiliyorsun ama matematik bölümünde okuyan a öğrencisinin de kullanabileceği şekle getirmelisin" derse oturup fonksiyonları yazdığımız dilin tüm kurallarını da öğrenmek zorunda kalırız.
Sık Kullanılanlar