Bir Kare Matris Boyutu
'Bir kare matrisin boyutunu isteyen ve elemanlarının sayısal değeri
' o satırdaki diğer elemanlardan küçükse o satırdaki en büyük sayıyla
'yer değiştirerek matrisi düzenleyen ve matris formunda form sayfasına yazan programı hazırlayınız.
Private Sub Form_Load()
Show
Dim a(1000, 1000), n As Byte
n = Val(InputBox("Kare matrisin boyutu"))
For i = 1 To n
For j = 1 To n
a(i, j) = Val(InputBox(i & "-" & j & ".elemanı giriniz"))
Next j
Next i
For i = 1 To n
For j = 1 To n
If a(i, i) < a(i, j) Then x = a(i, i): a(i, i) = a(i, j): a(i, j) = x
x = 0
Next j
Next i
For i = 1 To n
For j = 1 To n
Print a(i, j),
Next j
Print
Next i
End Sub
'Verilen ondalık sayıların aritmetik ortalaması üstünde
'kalan sayıları büyükten küçüğe sıralayan programı yazınız.
Private Sub Form_Load()
Show
Dim A(1000), X(1000) As Single
n = InputBox("Kac Sayi Gireceksiniz")
For i = 1 To n
A(i) = InputBox(i & ". Sayiyi Girin")
toplam = Val(toplam + A(i))
Next i
artort = toplam / n
For k = 1 To n
If Val(A(k)) > artort Then X(k) = A(k)
Next k
For i = 1 To n - 1
If X(i) < X(i + 1) Then KS = X(i + 1): X(i + 1) = X(i): X(i) = KS: DS = i Else GoTo 10
For j = DS - 1 To 1 Step -1
If X(j) < X(j + 1) Then KS = X(j + 1): X(j + 1) = X(j): X(j) = KS
Next j
DS = 0
10:
Next i
For m = 1 To n
Print X(m)
Next m
End Sub
'ax^2+bx+c tipindeki ikinci dereceden denklemin köklerini
'hesaplayıp ekrana yazan programı yapınız.Kullanıcı a,b ve c değerlerini
'inputbox ile programa girecek
Private Sub Form_Load()
Show
Dim a, b, c, x1, x2, delta As Single
a = InputBox("a katsayısını giriniz")
b = InputBox("b katsayısını giriniz")
c = InputBox("c katsayısını giriniz")
delta = b * b - 4 * a * c
kok = delta ^ 0.5
x1 = (-b + kok) / 2 / a
x2 = (-b - kok) / 2 / a
Print "x1="; x1
Print "x2="; x2
End Sub
'Y=A5X5+A4X4+A3X3+A2X2+A1X+A0 fonksiyonunun değerini x=(a,b)
'aralığında c adımlarında hesaplayan bir program yapınız.
Private Sub Form_Load()
Show
Dim a5, a4, a3, a2, a1, a0 As Single
Dim n, a, b, c As Integer
a5 = InputBox("a5")
a4 = InputBox("a4")
a3 = InputBox("a3")
a2 = InputBox("a2")
a1 = InputBox("a1")
a0 = InputBox("a0")
a = InputBox("a")
b = InputBox("b")
c = InputBox("c")
n = (b - a) / c
x = a
For i = 1 To n
y = a5 * x ^ 5 + a4 * x ^ 4 + a3 * x ^ 3 + a2 * x ^ 2 + a1 * x + a0
Print x; Tab; y
x = x + c
Next i
End Sub
|
