+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: visual basic algoritma sorusu (/konu-visual-basic-algoritma-sorusu.html)
visual basic algoritma sorusu - pc_ogretmeni - 11/01/2010
şu anda şanlıurfanın nüfusu 450,00 gaziantepin nüfusu 850,00dir.
doğumlardan ve göçlerden dolayı şanlıurfanın nüfusu yılda %2,5 ve gaziantepin nüfusu %1,3 oranında artıyor.buna göre şanlıurfanın nüfusu kaç yıl sonra gaziantepin nüfusunu geçeceğini bulan ve o andaki nüfusları hesaplayan prog. kodları nelerdir?
Cvp: visual basic algoritma sorusu - cuneyt - 11/01/2010
Merhaba,
Düzeltiyorum:
Basit hesaplama ile sanırım 66 yıl sonra Gaziantep'in nufusunu geçiyor.
Şanlıurfa: 2.240.081,22
Gaziantep: 2.237.235,34
Ancak bununla ilgili matematik denklemi var mı elinizde?
Eğer var ise onu kodlara uygulayabiliriz.
Matematiğim pek iyi değil de
Cvp: visual basic algoritma sorusu - alpeki99 - 11/01/2010
Alıntı:urfa = 450
antep = 850
While (urfa <> antep)
urfa = urfa + (urfa * 0.025)
antep = antep + (antep * 0.013)
yil = yil + 1
Wend
Bunun gibi birşey olması lazım ama ne kadar doğru denemek lazım.
Cvp: visual basic algoritma sorusu - Bilgisayarcı - 11/01/2010
İstatistikçi tabi, formul falan süper yanlış ama olsun
(1+yüzdeoran)^i olacak ama yaklaşmışsın Alpeki
Neyse
Soru ödev sorusuyum ben diye bağırıyor. cevap mde olarak ektedir.
Böyle yapmayı hiç sevmiyorum ama kodları da aşağıya yazıyorum. Birisi bi zahmet formu eder artık
Kod:
'ACCESSTR BILGISAYARCI
Private Sub Komut31_Click()
'Değişkenler kullanılarak yapılma sebebi
'Bu değişkenlerin kod içinden değil
'form üzerinden gelmesi sağlansın diyedir
'örnek form olmadığı için ben de işin kolayına kaçtım
Dim n1 As Double '1.nüfus
Dim n2 As Double '2.nüfus
Dim k1 As Double '1.nufus artış oranı
Dim k2 As Double '2.nufus artış oranı
Dim h1 As Long 'x yıl sonundaki nufus
Dim h2 As Long ' x yıl sonundaki nufus
Dim gecti As Double ' nufus geçti mi?
Dim i As Integer ' kaçıncı yıl
gecti = True 'while devamı için ilk değer
i = 0 'while içinde yıl sürekli artacak
'Aşağıdaki 3 değer form içindeki textlerden gelecek
n1 = 45000 ' 1. nufus
n2 = 85000 ' 2. nufus
k1 = 2.5 ' artış oranı yüzde değer olarak verilecek while içinde düzenleniyor
k2 = 1.3 ' artış oranı yüzde değer olarak verilecek while içinde düzenleniyor
While gecti 'nufus geçene kadar devam et
i = i + 1
h1 = (n1) * (1 + (k1 / 100)) ^ i ' i yıl sonunda nufus kaç oldu
h2 = (n2) * (1 + (k2 / 100)) ^ i ' i yıl sonunda nufus kaç oldu
Me.Liste29.AddItem (i & ";" & h1 & ";" & h2) 'listeye ekle ki görebilelim
gecti = (h2 > h1) '2.nufus hala yüksekse devam et değilse gecti=false olur ve çıkar
Wend
MsgBox i & " yıl sonra..." 'kaçıncı yılda geçtiğini de göster
End SubCevap da 55 bu arada yanlış etmediysem
Cvp: visual basic algoritma sorusu - maytas - 11/01/2010
Merhaba.
Kod:
Sub Hesapla()
Dim Urfa As Integer, Antep As Integer, Yil As Byte
Urfa = 450
Antep = 850
Do While Urfa < Antep
Urfa = Urfa * 1.025
Antep = Antep * 1.013
Yil = Yil + 1
Loop
MsgBox "Urfa nüfüsu Antep nüfusunu " & Yil & " yıl sonra geçecektir.", vbInformation, "İşlem Sonucu"
End SubCvp: visual basic algoritma sorusu - Bilgisayarcı - 11/01/2010
Bu algoritmayla 54 çıkması doğrudur.
Bi de yıl=yıl+1'i işlemden öncesine alarak denerseniz değişebilir sonuç ama tabi ben anlamam istatistikten. Bilen birileri baksın da rezil olmayak