Qbasic deki program

Qbasic de klavyeden girilen sayıların hangisi büyük hangisi küçük olduğunu gösteren program

cümlenin sonu
"yazmam gerekiyor yardımcı olurmusunuz?" şeklinde bitiyorsa

ben size tarif edeyim

2 tane değişken tanımla,

1. değişkenin adı MIN değeri 100 olsun
2. değişkenin adı MAX değeri 0 olsun

MIN = 100
MAX = 0

program açıldığında size sorsun kaç adet sayı gireceksin? cevabı N değişkenine ata,

INPUT "kac sayı girmek istiyosun?", N

diyelimki 10 sayı girip hangisi büyük / küçük ona bakacaz. şimdi bir döngü oluşturup sayıları girmesini isteyelim, girilen sayıyı sayi değişkenine atalım (ilk sayı 60 diyelim)

FOR i = 1 to N
INPUT "sayilari girin", SAYI

'kaç sayı ile işlem yapacağımızı ve ilk sayıyı girdik şimdi şöyle bişey yapaz 60 bizim MIN değerinden küçükse yeni MIN değerimiz 60 olsun, büyükse yeni MAX değerimiz 60 olsun.

IF SAYI> MAX THEN MAX = SAYI
IF SAYI< MIN THEN MIN = SAYI

NEXT

10 sayıyıda girince döngü sona erecek ve sıradaki komuta geçecek sıradaki komut ise yeni max ve min değerini ekrana basmak olmalı

PRINT "MAX= ", MAX; "MIN= ", MIN

en son

END
ile programı sonlandırıyoruz.

merak ettiğin için soruyosan bişey demiyorum ama öğrenciysen ve bu bir ödevse ozaman hocan olacak adama de ki qbasic 24 yıl önce geliştirilmiş bir programlama dili artık kullanılmıyor, bize öğreteceksen daha güncel bir dil öğret ki işimize yarasın. boş boş şeylerler vaktimizi harcama de.

Ek Olarak: programın başına bi CLS (önceki ekranı siler) her satır başınada 10,20,30 şeklinde sayı atman gerekebilir, gerekmeyedebilir pek emin değilim :)

Teşekkürler çok işime yaradı şimdi ise mesela kullanıcı 5 sayı gırdı girilen sayılar sırasıyla 5200 3500 2000 8000 mesela şimdi ise yapmamız gereken şey ise kaçıncı adımda en büyük değeri girdi örnekte ben 4te girdim kullanıcı 50 sayı gırse en buyuk hangı adımda gırer mesela 34te bunu gosteren

hocam qbasic kolay, onu bir şekilde çözeriz de asıl problem şu: "kendinizi ifade etme" konusunda ciddi sıkıntılarınız var. ona yoğunlaşalım bence :)

Hocam telefondan yazıyorum kaldığım yerde çekmiyor telefon hızli yazıyorum k
Bmayin

CLS
Dim max, maxi, min, mini, kacadet As Integer

max = 0
min = 999999

INPUT "kac sayı girmek istiyosun?", kacadet

Dim sayi(100) As Integer '100 elemanlı bir dizi tanımladık

For i = 1 To kacadet
INPUT "Lütfen bir sayı girin?", sayi(i) 'dizimizin sırayla birinci, ikinci üçüncü, ... elemanlarınlarına değerleri aldık

If sayi(i) > max Then 'girdiğimiz değer bizim ilk tanımladığımız max değerinden büyükse
max = sayi(i) 'yeni max değerimiz o oldu
maxi = i 'kaçıncı sayı olduğunu aldık
End If
If sayi(i) < min Then 'aynı şekilde min değerinden küçükse ...
min = sayi(i)
mini = i
End If
Next

PRINT "Girilen en büyük sayı : " , max , " (" , maxi , ". sayı)"; "Girilen en küçük sayı : " , min , " (" , mini , ". sayı)" 'ekrana bastık
End ' programı sonlandırdık.

çalışırmı çalışmazmı bilmiyorum denemeyemedim. ama mantık bu

Vermiş olduğunuz program maalesef işimizi görmüyor.
Bize kullacının en büyük sayıyı kaçıncı inputta girdiğini gösteren program lazım.
Örneğin: "Girmiş olduğunuz en büyük sayı 61 3. sırada girdiniz" gibi.
Ben size bizdeki kodu atayım siz onun üzerinden derleyip yardımcı olursanız seviniriz.


CLS
INPUT "KAC ADET SAYI GIRECEKSIN",N
INPUT "SAYI GIR",SAYI
ENB = SAYI
FOR I = 2 TO N
INPUT "SAYI GIR",SAYI
IF SAYI > ENB THEN ENB = SAYI
NEXT I
PRINT "GIRMIS OLDUĞUNUZ EN BUYUK SAYI=",ENB


Bu girilmiş olan saılardan en büyüğünü ekrana yazdıran kodlar. Bunun üzerinden bu en büyük sayıyı kaçıncı sırada girdiğimizi ekrana yazdıran kodlar lazım bize umarım anlatabilmişimdir. Şimdiden teşekkürler.


Ek Olarak: Yok mu yardım edecek kimse acil lazım.

IF SAYI > ENB THEN ENB = SAYI
şu satırda girilen SAYI ENB büyükse yer değiştiriyorsunuz ya orada birde şu işi yapmanız lazım
En büyük sayının sırası için şu değişken olsun ENBUYSIRA mesala
ENBUYSIRA=I
demeniz lazım
lazım en büyüksayının sırası diye bir değişkene I değerini atamanız lazım.

sonundada yazdırırken ENBUYSIRA yı uygun bir cümle ile yazdırmanız lazım