Нужна помощь

[Ляйсан9517]

Вот код программы в lazarus

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:real;
begin
x:=StrToFloat(Edit1.Text);
if (x<-3) or (x>3) then Edit2.Text:=WriteLn('Значение функции не определено!'
else begin
if (x>=-3) and (x<=-15/10) then y := 2;
if (x>-15/10) and (x<15/10) then y := 4-power(x,2);
if (x>=15/10) and (x<=3) then y := 2;
Edit2.Text:=FloatToStr(y);
end;
end;

ругается на Else
вот такую ошибку выдает:
unit1.pas(43,1) Fatal: Syntax error, ")" expected but "END" found

помогите пожалуйста

[yaschenko]

У вас не закрыта скобка перед else.

[Ляйсан9517]

ооо спасибо
unit1.pas(43,1) Error: Incompatible type for arg no. 1: Got "untyped", expected "TTranslateString"
так а вот теперь такую ошибку выдает

[yaschenko]

Заместо

Edit2.Text:=WriteLn('Значение функции не определено!')

Попробуй написать просто

Edit2.Text:='Значение функции не определено!'

[Utkin]

Чтобы не было таких болячек оформляйте код как положено. Ну и я для себя завел правило всегда оформлять блоки в условиях.

if (x<-3) or (x>3) then 
begin
    Edit2.Text:=WriteLn('Значение функции не определено!');
end
else 
begin
    if (x>=-3) and (x<=-15/10) then y := 2;
    if (x>-15/10) and (x<15/10) then y := 4-power(x,2);
    if (x>=15/10) and (x<=3) then y := 2;
    Edit2.Text:=FloatToStr(y);
end;

Тогда код становится наглядней и все ошибки видны

[Ляйсан9517]

Спасибо большое, все работает ^^ еще раз спасибооо