Pascal/Delphi retorno um vetor em uma função

[christhian11rv]

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." 

[Simon Viegas]

Olá. @christhian11rv, seja bem-vindo ao Fórum do Clube do Hardware.

 

1 hora atrás, christhian11rv disse:

Me ajudem ae por favor, preciso fazer esse exercício e não sei fazer. Alguém ajuda pls

 

Poste o que já conseguiu fazer e onde está com dúvidas.

 

No aguardo.

[christhian11rv]

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

[Simon Viegas]

7 minutos atrás, christhian11rv disse:

Consegui fazer até ai 

 

4 horas atrás, Simon Viegas disse:

e onde está com dúvidas.

 

[Simon Viegas]

O enunciado diz:

8 horas atrás, christhian11rv disse:

[...] que retorne um vetor de 3 posições com os termos da equação.

 

Ou seja, a função está retornando um vetor. Logo, no Pascal, nem dá para imprimir assim...

 

Segue um solução pronta:

program project1;
//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."
type
  tVetTermos = array[1..3] of integer;
function  TermosEquacaoGrau2(equacao:string):tVetTermos;
  var
    termos:tVetTermos;
    erro  :byte;
  begin
    val(Copy(equacao,1,1),termos[1],erro);
    val(Copy(equacao,6,1),termos[2],erro);
    val(Copy(equacao,9,1),termos[3],erro);
    TermosEquacaoGrau2 := termos;
  end;
var
  equacao  :string;
  vetTermos:tVetTermos;
begin
  writeln('Digite uma equação do segundo grau no seguinte formato: Ax^2+Bx+C=0:');
  readln(equacao);
  //writeln('Termos: ',terTermosEquacaoGrau2mosequacaograu2(equacao));
  vetTermos := TermosEquacaoGrau2(equacao);
  writeln('Termos: A = ',VetTermos[1],', B = ',VetTermos[2],' e C = ',VetTermos[3]);
  readln;
end.

 

De certo modo o enunciado só pede a função. Ela já estava pronta... mas meio que fica implícito que quer que demonstre um uso... taí.

[christhian11rv]

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