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;