if den çıkamadım :)

[sako]

if sayi1>1 then begin
kmkodenek2021:=800;
emkodenek2021:=600;
itfodenek2021:=700;
ilkodenek2021:=750;
kurodenek2021:=600;
sosodenek2021:=600;
tekodenek2021:=600;
end

aşağıdaki kodda her zaman üstteki kısım çalışıyor. farklı bir yöntem mi denemeliyim ?

Kod: Tümünü seç

if sayi1>1 then begin
kmkodenek2021:=800;
emkodenek2021:=600;
itfodenek2021:=700;
ilkodenek2021:=750;
kurodenek2021:=600;
sosodenek2021:=600;
tekodenek2021:=600;
end
else
if sayi1>201 then begin
kmkodenek2021:=850;
emkodenek2021:=620;
itfodenek2021:=800;
ilkodenek2021:=850;
kurodenek2021:=650;
sosodenek2021:=700;
tekodenek2021:=700;
end
else
if sayi1>401 then begin
kmkodenek2021:=950;
emkodenek2021:=720;
itfodenek2021:=900;
ilkodenek2021:=950;
kurodenek2021:=800;
sosodenek2021:=800;
tekodenek2021:=800;
end
else
if sayi1>601 then begin
...
end
else
if sayi1>2401 then begin
kmkodenek2021:=2050;
emkodenek2021:=1820;
itfodenek2021:=2000;
ilkodenek2021:=2050;
kurodenek2021:=1850;
sosodenek2021:=1800;
tekodenek2021:=1800;
end;

[ertank]

Merhaba, Büyükten küçüğe sıralamayı deneyin.

Kod: Tümünü seç

if sayi1 > 300 then
begin
end
else if sayi1 > 200 then
begin
end
else if sayi1 > 100 then
begin
end
else
if sayi1 > 1 then
begin
end;

Birde aralık kullanabilirsiniz. Ancak ne yapmak istediğinizi detaylı bildirmediğiniz için farklı bir cevap vermek çok mümkün değil.

[sako]

Merhaba, Büyükten küçüğe sıralamayı deneyin.

Bu şekilde sorun çözüldü Teşekkür ederim.