Lazarus procedure tform1.button1click(sender: tobject); var d, e, f, g, cg, cd, ce, cf: real; begin cd: =strtofloat(edit1.text); ce: =strtofloat(edit2.text); cf: =strtofloat(edit3.text); g: =strtofloat(edit4.text); d: =round(g/cd*100)/100; e: =round(g/ce*100)/100; f: =round(g/cf*100)/100; edit5.text : =floattostr(d); edit6.text : =floattostr(e); edit7.text : =floattostr(f); end; : мати дала синові певну кількість грошей і попросила купити 3 кг цукру та 2 кг борошна. на гроші що залишилися, мати дозволила синові купити цукерок. скільки грамів цукерок купить син? з того коду зробити что я написав в лазарус .
В Youtube есть видео с названием "Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи