VisualG Direcionamento no visualg ou portugol

[Vanderlei Luiz Kotz]

A professora passou essa questão:

Questão Aberta: Faça um algoritmo que crie um vetor de registros com os seguintes campos: um número inteiro e um número real. No total, você deve declarar 100 registros.  Para cada posição do vetor, verifique:

a) Se o número inteiro do registro for par, multiplique seu valor por 2;
Se o número inteiro do registro for ímpar, multiplique seu valor por 3;
c) Se o número real do registro for positivo, multiplique seu valor por 4;
d) Se o número real do registro for negativo, multiplique seu valor por 0;
e) Após aplicar as operações dos itens anteriores, some todos os números inteiros dos registros do vetor e imprima o resultado.

Mas consegui fazer o registro no visualg mas nao consigo seguir adiante nas letras a, b, c, d, e alguém poderia me dar uma LUZ no fim do tunel

Já montei o inicio mas não sei se estou no caminho:

algoritmo "CEMNUMEROSINTEIROSEREAIS"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   :
// Função : Usuário informa 100 valores inteiros e 100 valores real  e o programa sempre exibe ao termino a soma.
// Autor : Vanderlei Luiz Kotz
// Data : 14/10/2017
// Seção de Declarações
tipo
valores=registro
num_int: inteiro
num_r: real
fimregistro
var
  ficha_num: vetor[0..2] de valores // coloquei 3 valores para testar apenas depois altero.
 i: inteiro
 soma: inteiro
 mult_int:inteiro
 mult_real:real
 inicio
    i<-0
     para i de 0 ate  1 faca
           escreva("Informe um número inteiro: ")
           leia(ficha_num.num_int)
           escreva("Informe um número real: ")
           leia(ficha_num.num_r)
    fimpara
         mult_int<-0
          se(ficha_num.num_int mod 2 = 0)então
         mult_int=ficha_num.num_int*2
          senao
              mult_int=ficha_num.num_int*3
          fimse
          se(ficha_num.num_r > 0)então
             ficha_num.num_r= ficha_num.num_r*4
          senao
             ficha_num.num_r=ficha_num.num_r*0
          fimse
        para i de 0 ate  1 faca
           soma=mult_int+mult_int
           escreva ("A soma e:")(soma)
        fimpara
fimalgoritmo

 

[devair1010]

@Vanderlei Luiz Kotz     seu código esta bom,   apenas ajeitei algumas linhas e seu código ficou assim :

algoritmo "CEM_NUMEROS_INTEIROS_E_REAIS"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   :
// Função : Usuário informa 100 valores inteiros e 100 valores real  e o programa sempre exibe ao termino a soma.
// Autor : Vanderlei Luiz Kotz
// Data : 14/10/2017
tipo
valores=registro
  num_int : inteiro
  num_r   : real
fimregistro
var
  ficha_num : vetor[0..100] de valores // coloquei 3 valores para testar apenas depois altero.
  i,j,resp  : inteiro
  soma      : inteiro
  mult_int  : inteiro
  mult_real : real
  inicio
    i <- 0
    j := 0
    repita //assim você coloca quantos numeros quiser
       escreva("Informe um número inteiro: ")
       leia(ficha_num[j].num_int)
       escreva("Informe um número real: ")
       leia(ficha_num[j].num_r)
       escreval("você quer inserir mais um número ?   1 = não  2 = sim")
       leia(resp)
       j := j+1
    ate resp=1
    para i de 0 ate j-1 faca
      mult_int<-0
      se(ficha_num[i].num_int mod 2 = 0) ENTÃO
        mult_int:=mult_int+ficha_num[i].num_int*2
        escreval("mult 2",mult_int)
      senao
        mult_int:=mult_int+ficha_num[i].num_int*3
        escreval("mult 3",mult_int)
      fimse
      se(ficha_num[i].num_r > 0) ENTÃO
        mult_real:=mult_real+ficha_num[i].num_r*4
      senao
        mult_real:=mult_real+ficha_num[i].num_r*0
      fimse
      soma := soma + mult_int
    fimpara
    escreva ("A soma dos números inteiros é:",soma)
fimalgoritmo