CucaFresca

Program Vetores; Uses CRT; Const max = 20; Type Vetor = array [1..max] of Integer; Vetorsoma = array [1..max] of Char; Var i : Integer; Vet1 : Vetor; Vet2 : Vetor; Vetsoma : Vetorsoma; Begin ClrScr; Writeln ('Prencha o primeiro vetor: '); For i := 1 to max do Readln (Vet1[i]); Writeln ('Prencha o segundo vetor: '); For i := 1 to max do Readln (Vet2[i]); Writeln ('Prencha o terceiro vetor(operacoes): '); For i := 1 to max do Readln (Vetsoma[i]); For i := 1 to max do Writeln ('O ', i, ' resultado ‚: ', Vet1[i] Vetsoma[i] Vet2[i]); Readln; End.

Olá, Então, estou escrevendo um algoritmo que armazena 40 inteiros divididos em dois vetores, Vet1 e Vet2. Além desses dois vetores há um terceiro vetor VetOp(de char), com 20 posições. Este vetor armazena operadores matemáticos (+ - , etc...). O algoritmo deve realizar a operação correspondente em cada posição do VetOp para os dois vetores. Em suma, gostaria de fazer algo do tipo: Vet1 VetOp Vet2 Como se fosse: 2 + 2 O problema é que dessa forma não compila. Como poderei expressar o sinal de VetOp ?? Valeu pela atenção!

Só para acrescentar: Sqr(num) calcula o quadrado de um número. []'s