Question

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 кг борошна. На гроші що залишилися, мати дозволила синові купити цукерок. Скільки грамів цукерок купить син? З того коду зробити задачу что я написав в лазарус помогите пж.

Answer 1

Вот задачка написана в среде Pascal.ABC.NET

В Youtube есть видео с названием "Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи

Answer 2

Для решения данной задачи с помощью кода на Lazarus нужно внести некоторые изменения.

В коде, который вы привели, уже есть расчеты для покупки 3 кг сахара, 2 кг муки и расчет оставшихся денег на покупку цукерок.

Для перевода оставшихся денег в граммы цукерок, нужно знать стоимость 1 грамма цукерок. Предположим, что стоимость 1 грамма цукерок равна g. При этом, количество денег, из которого будет производиться покупка, указывается в поле Edit4.

Для решения задачи нужно добавить определение переменных d, e, f в начало кода, а также добавить расчет количества граммов цукерок в конце кода.

Вот модифицированный код:

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); // Добавляем расчет количества граммов цукерок cg := StrToFloat(Edit5.Text); g := g - (cg * 1000); // Преобразуем килограммы в граммы Edit8.Text := FloatToStr(g); end;

Теперь, чтобы выполнить расчет количества граммов цукерок, нужно добавить еще одно поле (Edit8) на форму, чтобы результат был виден.

Обратите внимание, что в данном коде не учитывается стоимость цукерок. Если вам необходимо учесть стоимость цукерок, то этот аспект также нужно учесть при расчетах.