gokhanca

1. Faktoriyel Hesabı :
Tüm bilgisayar hocalarının kesinlikle sorduğu sorulardan biridir. Girilen bir sayının faktoriyelini veren program.

sayi = InputBox ("Faktöriyeli Alınacak Sayıyı Girin")
sonuc = 1

FOR i = sayi TO 1 STEP -1
sonuc = sonuc * i
NEXT

Msgbox sayi & "! = " & sonuc

2. Ortalama Hesabı :
Girilen 100 adet sayının ortalamasını hesaplayan program.

' Bilgiler sırayla alınırken...
toplam = 0
FOR i = 1 TO 100
sayi = InputBox (i & ". Sayiyi Girin")
toplam = toplam + sayi
NEXT 
Msgbox "100 adet sayinin ortalamasi = " & ROUND(toplam / 100 , 1)

ikinci yol :

' Bilgiler bir A(100) dizisinden okunuyorsa...
toplam = 0
FOR i = 1 TO 100
toplam = toplam + A(i)
NEXT 
Msgbox "100 adet sayinin ortalamasi = " & ROUND(toplam / 100 , 1)

3. Asal Sayı Programı :
A ve B sayıları arasında kalan asal sayıları bulan program.

FOR i = 2 TO ustsayi
asal = 1
FOR j = 2 TO ustsayi - 1
IF i <> j AND (Fix(i / j) * j = i) THEN
' sayı asal değildir. asal değişkeni 0 yapılır.
asal = 0
END IF
NEXT
IF i >= altsayi AND asal = 1 THEN PRINT i
NEXT

4. Matris Toplama Programı :
Bir A(i,j) matrisi ile bir B(i,j) matrisini toplayıp C(i,j) matrisini elde eden program.

' A( i , j ) ve B( i , j ) matrisleri önceden okunmuş olsun.
FOR x = 1 TO i
FOR y = 1 TO j
C ( x , y ) = A ( x , y ) + B ( x , y )  
NEXT
NEXT

5. Matris Çarpım Programı :
Bir A(i,j) matrisi ile bir B(j,k) matrisini çarpıp C(i,k) matrisini elde eden program.

' A(i,j) ve B(j,k) matrisleri önceden okunmuş ve C(i,k) önceden oluşturulmuş olsun.
For X = 1 To i
For Y = 1 To j
toplam = 0
For Z = 1 To k
toplam = toplam + ( A ( X , Z ) * B ( Z , Y ) )
Next Z
C( X , Y ) = toplam
Next Y
Next X

6. Matrisin Transpozesi :
Bir A(6,4) matrisinin transpozesini alan program.

Dim A (4,6) As Integer
Dim B (6,4) As Integer

' A( 4 , 6 ) değerleri önceden girilmiş olsun.
For i = 1 To 4
For j = 1 To 6
B ( j , i ) = A ( i , j )
Next
Next