$cena = strreadln("1.txt",1)
$ves = strreadln("1.txt",2)
$cena = inputbox("Юаней?",$cena,60)
$ves = inputbox("ВЕС?",$ves,60)
strwriteln("1.txt",$cena,1)
strwriteln("1.txt",$ves)
$ves = $ves/10
//dollar/grn
$dolar = 8
$dol_kg = 20*$ves//доставка за 1 кг
$postavshik = 2//услуги поставщика
$real_cena = $cena*0.16+$postavshik
$real_cena = $real_cena/10+$real_cena
$real_cena = $real_cena+$dol_kg
$real_cena = $real_cena*1.5*$dolar//накрутка
$real_cena = round($real_cena,0)
//длина строки
$length = strlen($real_cena)
print("$real_cena","-",$real_cena)
print("$length","-",$length)
//без последней
$length_first = $length - 1
$first = strcut2($real_cena,1,$length_first)
print("$first","-",$first)
//последняя
$last = strcut($real_cena,$length,1)
print("$last","-",$last)
if(($last > 2.5)&($last<7.5))
$last = 5
else
//Ошибка где то в этом месте, переменная Last больше 2.5 и меньше чем 7.5, но ведёт себя как будто она только болье чем 7.5!!!!!!!!
if($last > 7.5)
inc($first)
$last = 0
else
$last = 0
end_if
end_if
print("$first","-",$first)
print("$last","-",$last)
$real_cena = strconcat($first,$last)
print("$real_cena","-",$real_cena)
hintpopup("---",$real_cena)
toclip($real_cena)
print($real_cena)
print("---------")
halt
