UYGULAMA FAALİYETİ
UYGULAMA FAALİYETİ
Pisagor ölçüleri: a 2 + b 2 = c 2 özelliğini sağlayan sayılar, dik üçgenin kenar uzunluklarını gösterirler ve Pisagor üçlüleri olarak anılırlar. 1 ile 99 arasındaki doğal sayılardan hangilerinin bu eşitliği sağladığını bulan programı yazınız.
İşlem Basamakları
‣ Program için yukarıda ekran görüntüsü verilmiş form tasarımı yapınız.
‣ Form üzerindeki nesne özellikleriayarlayınız.
‣ Aşağıda verilen kodları formunuza uyarlayınız.
‣ Programınızı çalıştırırak deneyi-niz.
Public Class Form1
Öneriler
‣ Form boyutlarınızı program çıktısını öngörerek ayarlayınız. Tasarladığınız formunuzu öğretmeninize göstererek onun fikrini alınız.
‣ Kod yazım kurallarını hatırlayınız.
Kodlar
Private Sub Button1 _ Click( ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click
For a = 1 To 99 For b = 1 To 99
For c = 1 To 99 If( c ^ 2 = a ^ 2 + b ^ 2) And( a < b) Then
ListBox1. Items. Add( a. ToString + "- " + b. ToString + "- " + c. ToString) Next c
Next b Next a
End Sub End Class
31