como fazer o programa no visualg

algoritmo "EntrevistaPessoas"

var

 A,B,TOTALDEMULHERES,TOTALDEHOMENS,NASCAPART2000,RENDAACIMADE500,MAISDE1FILHO : INTEIRO

 NOMES : VETOR[0..19] DE CARACTERE

 IDADE : VETOR[0..19] DE INTEIRO

 SEXO : VETOR[0..19] DE CARACTERE

 FILHOS : VETOR[0..19] DE INTEIRO

 RENDA : VETOR[0..19] DE REAL

inicio

 A:=-1

 REPITA // Esse bloco vai se repetir e coletar todas as informaçoes necessarias...

 A:=A+1 // ate que chegue ao numero maximo de entrevistados, ou o usuario deixe...

 LIMPATELA // o campo "Nome:" em branco.

 ESCREVAL(A+1,"° Entrevistado")

 ESCREVAL("")

 ESCREVA(" Nome: ")

 LEIA(NOMES[A])

 ESCREVA(" Idade: ")

 LEIA(IDADE[A])

 ESCREVA(" Sexo: ")

 LEIA(SEXO[A]) // E importante ressaltar que, o campo "Sexo:" deve ser preenchido com...

 ESCREVA(" Filhos: ") // os caracteres 'F' para mulheres e 'M' para homens, caso contrario...

 LEIA(FILHOS[A]) // ocorrera um erro.

 ESCREVA(" Renda: ")

 LEIA(RENDA[A])

 ATE(A=19) OU (NOMES[A]="")

 A:=0

 ENQUANTO não(NOMES[A]="") FACA // Esse bloco se repete e manipula os dados obtidos afim de...

 SE (SEXO[B]="F") então // obter as estatisticas que serao impressas na saida.

 TOTALDEMULHERES:=TOTALDEMULHERES+1

 FIMSE

 SE (SEXO[B]="M") então

 TOTALDEHOMENS:=TOTALDEHOMENS+1

 FIMSE

 SE não(IDADE[B]<18) então

 NASCAPART2000:=NASCAPART2000+1

 FIMSE

 SE (RENDA[B]>=500) então

 RENDAACIMADE500:=RENDAACIMADE500+1

 FIMSE

 SE (FILHOS[B]>0) então

 MAISDE1FILHO:=MAISDE1FILHO+1

 FIMSE

 A:=A+1

 B:=B+1

 FIMENQUANTO

 LIMPATELA

 ESCREVAL("") // Por fim, as estatisticas serao imprimidas...

 ESCREVAL(" ESTATISTICAS")

 ESCREVAL(" Total de entrevistados:",A)

 ESCREVAL("")

 ESCREVAL(" Mulheres: ",TOTALDEMULHERES/A*100:3:2)

 ESCREVAL(" Homens: ",TOTALDEHOMENS/A*100:3:2)

 ESCREVAL(" +De R$500,00:",RENDAACIMADE500)

 ESCREVAL(" +De 1 Filho: ",MAISDE1FILHO)

 ESCREVAL(" Apartir de 2000:",NASCAPART2000)

fimalgoritmo

Leia mais em Brainly.com.br - https://brainly.com.br/tarefa/16936821#readmore

Nesse exercício vamos fazer um programa que leia os dados conforme o exemplo e exiba os pesos.

São dadas as dimensões dos objetos e as densidades, então basta-nos usar a expressão abaixo para obter os pesos:

$$m=\rho V$$

O código abaixo (comentado) faz o que se pede:

Algoritmo "estruturas"

Var

dAl, dAco: real //Densidades

eRetAco: real //Espessura retangular aco

LRetAco: real //Largura retangular aco

CRetAco: real //Comprimento retangular aco

HRetAco: real //Altura retangular aco

PRetAco: real //Peso retangular aco

eRetAl: real //Espessura retangular aluminio

LRetAl: real //Largura retangular aluminio

CRetAl: real //Comprimento retangular aluminio

HRetAl: real //Altura retangular aluminio

PRetAl: real //Peso retangular aluminio

eRedAco: real //Espessura redondo aco

DRedAco: real //Diametro redondo aco

LRedAco: real //Comprimento redondo aco

PRedAco: real //Peso redondo aco

eRedAl: real //Espessura redondo aluminio

DRedAl: real //Diametro redondo aluminio

LRedAl: real //Comprimento redondo aluminio

PRedAl: real //Peso redondo aco

eChAco: real //Espessura chapa aco

CChAco: real //Comprimento chapa aco

LChAco: real //Largura chapa aco

PChAco: real //Peso chapa aco

eChAl: real //Espessura chapa aluminio

CChAl: real //Comprimento chapa aluminio

LChAl: real //Largura chapa aluminio

PChAl: real //Peso chapa aluminio

Inicio

dAl := 0.00271 //Desnidade aluminio

dAco := 0.00786 //Densidade aco

ESCREVA("Para tubo retangular de Aço: ")

ESCREVA("Espessura: ")

LEIA(eRetAco)

ESCREVA("Parede1: ")

LEIA(LRetAco)

ESCREVA("Parede2: ")

LEIA(CRetAco)

ESCREVA("Comprimento: ")

LEIA(HRetAco)

PRetAco := 2*HRetAco*(CRetAco+LRetAco)*eRetAco

ESCREVA("Para tubo redondo de Aço: ")

ESCREVA("Espessura: ")

LEIA(eRedAco)

ESCREVA("Diametro: ")

LEIA(DRedAco)

ESCREVA("Comprimento: ")

LEIA(LRedAco)

PRedAco := 3.14*DRedAco*LRedAco*eRedAco

ESCREVA("Para chapa de Aço: ")

ESCREVA("Espessura: ")

LEIA(eChAco)

ESCREVA("Largura: ")

LEIA(LChAco)

ESCREVA("Comprimento: ")

LEIA(CChAco)

PChAco := CChAco*LChAco*eChAco

ESCREVA("Para tubo retangular de Aluminio: ")

ESCREVA("Espessura: ")

LEIA(eRetAl)

ESCREVA("Parede1: ")

LEIA(LRetAl)

ESCREVA("Parede2: ")

LEIA(CRetAl)

ESCREVA("Comprimento: ")

LEIA(HRetAl)

PRetAl := 2*HRetAl*(CRetAl+LRetAl)*eRetAl

ESCREVA("Para tubo redondo de Aluminio: ")

ESCREVA("Espessura: ")

LEIA(eRedAl)

ESCREVA("Diametro: ")

LEIA(DRedAl)

ESCREVA("Comprimento: ")

LEIA(LRedAl)

PRedAl := 3.14*DRedAl*LRedAl*eRedAl

ESCREVA("Para chapa de Aluminio: ")

ESCREVA("Espessura: ")

LEIA(eChAl)

ESCREVA("Largura: ")

LEIA(LChAl)

ESCREVA("Comprimento: ")

LEIA(CChAl)

PChAl := CChAl*LChAl*eChAl

ESCREVA("Tubo retangular de aco: ",PRetAco)

ESCREVA("Tubo redondo de aco: ",PRedAco)

ESCREVA("Chapa de aco: ",PChAco)

ESCREVA("Tubo retangular de aluminio: ",PRetAl)

ESCREVA("Tubo redondo de aluminio: ",PRedAl)

ESCREVA("Chapa de aluminio: ",PChAl)

Fimalgoritmo

Nesse exercício vamos fazer um programa que leia os dados conforme o exemplo e exiba os pesos.

São dadas as dimensões dos objetos e as densidades, então basta-nos usar a expressão abaixo para obter os pesos:

$$m=\rho V$$

O código abaixo (comentado) faz o que se pede:

Algoritmo "estruturas"

Var

dAl, dAco: real //Densidades

eRetAco: real //Espessura retangular aco

LRetAco: real //Largura retangular aco

CRetAco: real //Comprimento retangular aco

HRetAco: real //Altura retangular aco

PRetAco: real //Peso retangular aco

eRetAl: real //Espessura retangular aluminio

LRetAl: real //Largura retangular aluminio

CRetAl: real //Comprimento retangular aluminio

HRetAl: real //Altura retangular aluminio

PRetAl: real //Peso retangular aluminio

eRedAco: real //Espessura redondo aco

DRedAco: real //Diametro redondo aco

LRedAco: real //Comprimento redondo aco

PRedAco: real //Peso redondo aco

eRedAl: real //Espessura redondo aluminio

DRedAl: real //Diametro redondo aluminio

LRedAl: real //Comprimento redondo aluminio

PRedAl: real //Peso redondo aco

eChAco: real //Espessura chapa aco

CChAco: real //Comprimento chapa aco

LChAco: real //Largura chapa aco

PChAco: real //Peso chapa aco

eChAl: real //Espessura chapa aluminio

CChAl: real //Comprimento chapa aluminio

LChAl: real //Largura chapa aluminio

PChAl: real //Peso chapa aluminio

Inicio

dAl := 0.00271 //Desnidade aluminio

dAco := 0.00786 //Densidade aco

ESCREVA("Para tubo retangular de Aço: ")

ESCREVA("Espessura: ")

LEIA(eRetAco)

ESCREVA("Parede1: ")

LEIA(LRetAco)

ESCREVA("Parede2: ")

LEIA(CRetAco)

ESCREVA("Comprimento: ")

LEIA(HRetAco)

PRetAco := 2*HRetAco*(CRetAco+LRetAco)*eRetAco

ESCREVA("Para tubo redondo de Aço: ")

ESCREVA("Espessura: ")

LEIA(eRedAco)

ESCREVA("Diametro: ")

LEIA(DRedAco)

ESCREVA("Comprimento: ")

LEIA(LRedAco)

PRedAco := 3.14*DRedAco*LRedAco*eRedAco

ESCREVA("Para chapa de Aço: ")

ESCREVA("Espessura: ")

LEIA(eChAco)

ESCREVA("Largura: ")

LEIA(LChAco)

ESCREVA("Comprimento: ")

LEIA(CChAco)

PChAco := CChAco*LChAco*eChAco

ESCREVA("Para tubo retangular de Aluminio: ")

ESCREVA("Espessura: ")

LEIA(eRetAl)

ESCREVA("Parede1: ")

LEIA(LRetAl)

ESCREVA("Parede2: ")

LEIA(CRetAl)

ESCREVA("Comprimento: ")

LEIA(HRetAl)

PRetAl := 2*HRetAl*(CRetAl+LRetAl)*eRetAl

ESCREVA("Para tubo redondo de Aluminio: ")

ESCREVA("Espessura: ")

LEIA(eRedAl)

ESCREVA("Diametro: ")

LEIA(DRedAl)

ESCREVA("Comprimento: ")

LEIA(LRedAl)

PRedAl := 3.14*DRedAl*LRedAl*eRedAl

ESCREVA("Para chapa de Aluminio: ")

ESCREVA("Espessura: ")

LEIA(eChAl)

ESCREVA("Largura: ")

LEIA(LChAl)

ESCREVA("Comprimento: ")

LEIA(CChAl)

PChAl := CChAl*LChAl*eChAl

ESCREVA("Tubo retangular de aco: ",PRetAco)

ESCREVA("Tubo redondo de aco: ",PRedAco)

ESCREVA("Chapa de aco: ",PChAco)

ESCREVA("Tubo retangular de aluminio: ",PRetAl)

ESCREVA("Tubo redondo de aluminio: ",PRedAl)

ESCREVA("Chapa de aluminio: ",PChAl)

Fimalgoritmo