Question

нужно сделать калькулятор на паскале.



d= x²+а
⁻⁻⁻⁻⁻⁻
bc

Answer 1

Ответ:

Ниже расписан

Объяснение:

Для начала нужно разместить Edit1.Text, Edit2.Text, Edit3.Text, Edit4.Text, Edit5.Text, pButton1, и надписи с символами. На форме дважды нажми на кнопку и в процедуре записуй:

procedure TForm1.Button1Click(Sender: TObject);

var x,a,b,c,d:real;

begin

x:=StrToFloat(Edit1.Text);

a:=StrToFloat(edit2.Text);

b:=StrToFloat(edit3.Text);

c:=StrToFloat(edit4.Text);

d:=(x*x+a)/(b*c)

Edit5.Text:=FloatToStr(d);

end;

====================================

Как я понял, нужно найти d=(x²+a)/(bc)