Пишу програмгу простенькую ыдает ошибку помогите разобраться

[s_S_s]

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,d,r,m:real;
begin
x:=strtoint(Edit1.Text);
y:=strtoint(Edit2.Text);
r:=strtoint(Edit3.Text);
d:=sqrt(x^2+y^2);
if d<=r then showmessage('Òî÷êà ïðåíàäëåæèò îêðóæíîñòè ='i(d));
else showmessage('Òî÷êà íå ïðåíàäëåæèò îêðóæíîñòè ='inttostr(d));
end;

end.

Пишет: Pointer typee requeired

 

[Ognev]

d:=sqrt(x^2+y^2);
заменить на
d:=sqrt(x*x+y*y);

 

[s_S_s]

спасибо что откликнулись
Это прошло теперь ругается на
else showmessage('Òî÷êà íå ïðåíàäëåæèò îêðóæíîñòè ='inttostr(d)); а имнно на 'inttostr(d) неизвестный идендификатор замененил я на 'floattostr(d) все равно ругается
if d<=r then showmessage('Òî÷êà ïðåíàäëåæèò îêðóæíîñòè ='floattostr(d));

 

[s_S_s]

И еще вопросик, если x в кубе то как писать?

 

[Ognev]

Ну я не помню, где живет IntToStr и FloatToStr ... может их библиотека не прописана у тебя в Uses ... Блин, и вообще, ну нет у меня здесь дельфы ))) И F1 я тут нажать не могу! А x^3 тупо можно написать как x*x*x )))

И вообще, твои кракозябры в глазах рябят, но вот теперь рассмотрел -- плюс перед IntToStr(d) кто будет ставить, Печкин?

 

[s_S_s]

Ну я не помню, где живет IntToStr и FloatToStr ... может их библиотека не прописана у тебя в Uses ... Блин, и вообще, ну нет у меня здесь дельфы ))) И F1 я тут нажать не могу! А x^3 тупо можно написать как x*x*x )))

И вообще, твои кракозябры в глазах рябят, но вот теперь рассмотрел -- плюс перед IntToStr(d) кто будет ставить, Печкин?

привет! Ognev IntToStr и FloatToStr они как я понял переводят число в символы IntToStr для типа integer а FloatToStr для real но не то не другое не работает плюсики пробовал ставить тоже не проходит может что посоветуешь?

 

[s_S_s]

О, все разобрался, работает Ура!!!!
Спасибо огромное, Приступис к другой задачки