Diğer programla dillerine göre gayet basittir. form ekranı vardır. butonları kullanabilirsiniz. bazı fabrikalarda ve hastanelerde kullanılmaktadır.
ödev almış olanlar var ise buyrun; mod-medyan bulan program. ygs mevzusu çıkınca el atayım demiştim. istediğiniz yerde yardımcı olabilirim. tabi unutmamışsam. fakat form ekranı yoktur.
---------------------------------------------------------------------------
imports system.math
public class form1
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
dim sayac1, kacsayi, sayac2, gecici, degisken as double
kacsayi = inputbox("kaç tane sayı girilecek ?")
dim sayi(kacsayi) as double
for sayac1 = 1 to kacsayi
sayi(sayac1) = inputbox(sayac1 & ". sayıyı giriniz.")
next
for sayac1 = 1 to kacsayi
for sayac2 = sayac1 + 1 to kacsayi
if sayi(sayac2) < sayi(sayac1) then
gecici = sayi(sayac1)
sayi(sayac1) = sayi(sayac2)
sayi(sayac2) = gecici
end if
next
next
if kacsayi mod 2 = 1 then
degisken = sayi((kacsayi + 1) / 2)
msgbox(degisken & " dizinin medyanıdır.")
elseif kacsayi mod 2 = 0 then
degisken = ((sayi(kacsayi / 2) + sayi((kacsayi / 2) + 1)) / 2)
msgbox(degisken & " dizinin medyanıdır.")
end if
dim tutucu(sayi(kacsayi)) as double
for sayac1 = 1 to kacsayi
tutucu(sayi(sayac1)) = tutucu(sayi(sayac1)) + 1
next
if tutucu.max = 1 then
msgbox("basit seridir. basit serilerde mod yoktur.")
else
dim tut_buyuk, mod1 as integer
for sayac1 = 1 to sayi(kacsayi)
if tutucu(sayac1) > tut_buyuk then
tut_buyuk = tutucu(sayac1)
mod1 = sayac1
end if
next
