ronaldomedclin

Muito obrigado!!!!!!!!!!!!!! Me desculpe...

Bom dia a todos... Estou montando um programa e estou com um problema. Tenho em um form ( edit1, edit2 e um Button), onde edit1 sera o valor da raiz a ser encontrada e edit2 sera o resultado. Estou tentando realizar a raiz, porem so consigo raiz exata ( ex. 4. 25. 36...), sera que alguém poderia me ajudar. Sou iniciante e ficaria muito grato se alguém me ajudar a resolver esse problama. digitei assim dentro do button do meu programa... var d: Integer; p: Integer; s: Integer; t: Integer; begin d:= StrToInt(edit1.text); p:= 1; s:= 1; repeat p:= p + 1; S:= s + 1; t:= p * s; until t = d; edit2.Text := IntToStr(p); Sera que estou errando em alguma linha...