• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

Algoritma gücümüzü geliştirelim

  • Konuyu başlatan Konuyu başlatan WeWereRock
  • Başlangıç tarihi Başlangıç tarihi

WeWereRock

Başlayalım :)

Soru;

Klavyeden alınacak 3 sayının en büyüğünü ve en küçüğünü bulan program?

Nasıl yaparız?

Ben 3 sayı alırım. (a,b,c) olsun. Örnek program kodu,

Uses Wincrt;
var
a,b,c,enbuyuk,enkucuk:integer; -> Değişkenleri ve veri tiplerini girdik.
begin
writeln(’1.Sayiyi gir=’); readln(a); -> Sayıları aldırıyoruz tek tek
writeln(’2.Sayiyi gir=’); readln(b);
writeln(’3.Sayiyi gir=’); readln(c);
if (a>b) and (a>c) then enbuyuk:=a; -> Eğer a sayısı b den büyükse ve a sayısı c den büyükse, enbuyuk değerini a ya aktar. Bu mantıkla diğerlerini de yapıyorum.
if (b>a) and (b>c) then enbuyuk:=b;
if (c>a) and (c>b) then enbuyuk:=c;
writeln(’En buyuk sayi=’,enbuyuk); -> En buyuk sayiyi yazdiriyorum.
if (a<b) and (a<c) then enkucuk:=a; -> Eğer a sayisi b den küçükse ve c den küçükse enkucuk degerini a ya aktar. Ayni mantıkla diğerlerini de.. Böylece en kücük sayıları ve en büyük sayıları buldum.
if (b<c) and (b<a) then enkucuk:=b;
if (c<a) and (c<b) then enkucuk:=c;
writeln(’En kucuk sayi=’,enkucuk); -> En kücük değeri yazdırdım.
readln;
end.

Bunun başka yöntemi veya yolu var mı? Peki sizler nasıl yaparsınız?
 
Son düzenleme:
Bu bir bilgisayar program tasarlama yani programlama dilidir anlamaman normal canım kardeşim.
 
Ya konuya bak hep � bunlardan bi notpad açıp silebilirdin dime scammer ?
 
if(a>b)
if(a>c)
enbuyuk a
else
en buyuk c
else if(b>c)
en buyuk b
else
en buyuk c

en kucukte tam tersi
 
daha kolayı var klavyeden aldığımız tuşları listbox a alırız bu yüntemle istediğin sayı arasından bile en küçüğünü bulabilirsin

dim i as integer
for i = 0 to frmmain.listbox.listcount -2
if frmmain.listbox(0) < frmmain.listbox(1) then 'eğer 0. sıra 1.sıradan küçükse
frmmain.listbox.removeitem(0) 'küçük olanı listeden çıkart
endif

if frmmain.listbox(0) > frmmain.listbox(1) then 'eğer 0. sıra 1.sıradan büyükse
frmmain.listbox.removeitem(1) 'küçük olanı listeden çıkart
endif

'eşitse fonksiyonu ekleyebilirsin eşit olanlardan istediğini çıkart listeden farketmez
next i



bu yöntemi bi aralar botumda kullanıyordum en yakındaki mob u seçmek için
 
Geri
Üst