[تمرين] حساب الثمن حسب الكمية

[hanipino]

هده طريقتى . طريقتك ... ماشاء الله و انا الان اتصارع معها لفهمها .
بارك الله فيك .. فى انتضار الطرق الاخرى للاعضاء

كود :

Function Somme(x:Integer):Integer; begin if x <= 10 then Result:= (x*3000) else if x <= 20 then Result:=(10*3000)+((x-10)*2000) else if x <= 30 then Result:=(10*3000)+(10*2000)+((x-20)*1000) else Result:=(10*3000)+(10*2000)+(10*1000)+((x-30)*500);

كود :

Label1.Caption:=inttostr(Somme(strtoint(edit1.Text)));