[]
basit Visual Basic sorusu
sevgili duyurucular şimdi benim aşağıdaki programın çıktısını öğrenmem lazım ya da nasıl yapılacağına dair birinin yardımına ihtiyacım var yardımcı olabilen olursa çok makbule geçer. soru bir arkadaşımın ödev sorusu ben yardımcı olamayınca burada bir bilene sorayım dedim. şimdiden teşekkürler.
belirtilen veri dosyasına göre verilen altprogram çalıştırıldığında değişkenlerin hafızada ve ekranda aldığı değerleri sırasıyla takip ederek belirtiniz.
Degerler.dat
---top of file -----
-2
8
6
5
2
0
-9
12
6
0
-2
1
11
-6
1
---End of File-----
sub program()
fileopen(2, "degerler.txt" openmode. ınput)
fileopen(3, "ekran.txt" openmode. output)
dim aa(0 to 2, 0 to 2), bb(0 to 2)
for i = 0 to 2
ınput(2, bb(i))
ınput(2, deger)
for j = 0 to 2
ınput(2, aa(i, j))
next j
next i
for k = 0 to 2 step 1
topbb = topbb + bb(k)
topaa = topaa1 + aa(k, 1)
next k
printline(3, topbb)
printline(3, topaa1)
printline(3, "işlem bitti!")
end sub
belirtilen veri dosyasına göre verilen altprogram çalıştırıldığında değişkenlerin hafızada ve ekranda aldığı değerleri sırasıyla takip ederek belirtiniz.
Degerler.dat
---top of file -----
-2
8
6
5
2
0
-9
12
6
0
-2
1
11
-6
1
---End of File-----
sub program()
fileopen(2, "degerler.txt" openmode. ınput)
fileopen(3, "ekran.txt" openmode. output)
dim aa(0 to 2, 0 to 2), bb(0 to 2)
for i = 0 to 2
ınput(2, bb(i))
ınput(2, deger)
for j = 0 to 2
ınput(2, aa(i, j))
next j
next i
for k = 0 to 2 step 1
topbb = topbb + bb(k)
topaa = topaa1 + aa(k, 1)
next k
printline(3, topbb)
printline(3, topaa1)
printline(3, "işlem bitti!")
end sub
@diyanet abi dil kurallarına uygun şekilde yazılmıştı copy paste kısmı sorun çıkardı. syntax da sorun yokmuş gibi bak panpa :D
- cdiyez
(25.05.14 23:07:54)
1
