You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Uygulama No: 21 – Pisagor Üçlüleri<br />
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Açıklama : a 2 + b 2 = c 2 özelliğini sağlayan sayılar, dik üçgenin kenar uzunluklarını gösterirler<br />
ve Pisagor üçlüleri olarak anılırlar. 1 ile 99 arasındaki doğal sayılardan bu eşitliği<br />
sağlayanlar hangileri olabilir?<br />
Ekran Görüntüsü<br />
Public Class Form1<br />
Açıklamalı Kodlar<br />
Private Sub Form1_Load(ByVal sender As Object, ByVal e As<br />
System.EventArgs) Handles Me.Load<br />
For a = 1 To 99<br />
For b = 1 To 99<br />
For c = 1 To 99<br />
If (c ^ 2 = a ^ 2 + b ^ 2) And (a < b) Then<br />
ListBox1.Items.Add(a.ToString + " - " + b.ToString + " - " + c.ToString)<br />
Next c<br />
Next b<br />
Next a<br />
End Sub<br />
End Class<br />
Tolga GÜYER Sayfa 32