christhian11rv

Obrigado, ajudou bastante, pois não estava conseguindo fazer esse exercício faz uns 3 dias kk

program project1; type tvettermos = array[1..3] of integer; function termosequacaograu2(equacao : string) : tvettermos; var termos : tvettermos; posicao : string; num,num2,num3,erro : integer; begin posicao := copy(equacao,1,1); val(posicao,num,erro); termos[1] := num; posicao := copy(equacao,6,1); val(posicao,num2,erro); termos[2] := num2; posicao := copy(equacao,9,1); val(posicao,num3,erro); termos[3] := num3; termosequacaograu2 := termos; end; var equ : string; begin writeln ('Digite uma equação do segundo grau no seguinte formato: Ax^2+Bx+C=0:'); readln (equ); writeln ('Termos: ',termosequacaograu2(equ)); readln; end. Consegui fazer até ai

Me ajudem ae por favor, preciso fazer esse exercício e não sei fazer. Alguém ajuda pls >> "Considere o seguinte formato de uma equação de segundo grau Ax2 + Bx + C = 0. Crie a subrotina TermosEquacaoGrau2(Equacao: String): TVetTermos que retorne um vetor de 3 posições com os termos da equação."