Teknoloji Haberleri
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
DonanımHaber Forum - Mini Sürüm
Hakkımızda | Yukarı
Tam sürüm için tıklayınız
Version: 1.2.896
Donanım Sponsoru:
Hakkımızda | Yukarı
Tam sürüm için tıklayınız
Version: 1.2.896
Donanım Sponsoru:
Public Class Form1
Dim a(100), b(100), c(100), t1, t2 As System.Single
Dim i, k, n, yedek As System.Int32
Dim yazi As System.Drawing.Graphics
Dim yazi_tipi1 As System.Drawing.Font
Dim yazi_tipi2 As System.Drawing.Font
Dim yazi_rengi1 As New SolidBrush(Color.Blue)
Dim yazi_rengi2 As New SolidBrush(Color.Black)
Dim Cevap As Windows.Forms.DialogResult
Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.Text = "İki Dizi Elemanlarından Yeni Oluşturan ve Yazdıran Program"
Button1.Text = "Dizi Elemanlarını Yazdır"
Button2.Text = "&Cıkış"
n = Convert.ToInt32(InputBox("Biraz sonra elemanları sizden istenecek olan iki dizinin ortak eleman sayısını giriniz", "Dizi Eleman Sayısı"))
For i = 1 To n
a(i) = Convert.ToSingle(InputBox("Birinci dizinin" + i.ToString & ". elemanını giriniz", "Birinci Dizi"))
Next i
For i = 1 To n
b(i) = Convert.ToSingle(InputBox("İkinci dizinin" + i.ToString & ". elemanını giriniz", "Birinci Dizi"))
Next i
For k = 1 To n
t1 = 0 : t2 = 0
For i = 1 To k
t1 = t1 + ((b(i)) ^ 2)
t2 = t2 + ((a(i)) ^ 2) * b(i)
Next i
c(k) = (a(k) + t1) / (k * t2)
Next k
End Sub
Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
yazi = Me.CreateGraphics
yazi_tipi1 = New System.Drawing.Font("Arial", 14, FontStyle.Bold)
yazi_tipi2 = New System.Drawing.Font("Arial", 10, FontStyle.Regular)
Dim koordinata As New PointF(10, 0)
yazi.DrawString("Birinci Dizi (a(n)) Elemanları", yazi_tipi1, yazi_rengi1, koordinata)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 50)
yazi.DrawString(a(i), yazi_tipi2, yazi_rengi2, koor)
Next i
Dim koordinatb As New PointF(10, 100)
yazi.DrawString("İkinci Dizi (b(n)) Elemanları", yazi_tipi1, yazi_rengi1, koordinatb)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 150)
yazi.DrawString(b(i), yazi_tipi2, yazi_rengi2, koor)
Next i
Dim koordinatc As New PointF(10, 200)
yazi.DrawString("Yeni Dizi Elemanları", yazi_tipi1, yazi_rengi1, koordinatc)
For i = 1 To n
Dim koor As New PointF(50 * (i - 1), 250)
yazi.DrawString(c(i), yazi_tipi2, yazi_rengi2, koor)
Next i
For i = 1 To n - 1
If a(n) > b(n) Then
b = a(n)
a(n) = b(n)
b(n) = b
End If
Next
End Sub
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
< Bu mesaj bu kişi tarafından değiştirildi efendi.4 -- 23 Nisan 2012; 23:14:19 >