Question

Var x, y, z: real; begin x: = strtofloat(edit1.text); y: = strtofloat(edit2.text); if combobox1.text='додавання'=true then z: =x+y else if combobox1.text='віднімання'=true then begin z: =x-y end; if combobox1.text='ділення' then begin z: =x/y; if y=0 then showmessage ='вираз значень не має' label2.caption: =floattostr(z); end; end; end. в чем ошибка

Answer 1

Var x, y, z:real;
begin
x:= StrToFloat(Edit1.Text);
y:= StrToFloat(Edit2.Text);
if ComboBox1.Text='Додавання' Then z:=x+y;
if ComboBox1.Text='Віднімання' Then z:=x-y;
if (ComboBox1.Text='Ділення')and(y<>0) Then z:=x/y;
if (ComboBox1.Text='Ділення')and(y=0)
 Then ShowMessage ='Вираз значень не має'
 else Label2.Caption:=FloatToStr(z);
end;