Engenharia civil

Questão 1 em VisualG

algoritmo "Q1" var cont:Inteiro inicio cont:=0
Enquanto cont<=20 faca
Escreva(cont)
cont:=cont+2 fimenquanto fimalgoritmo

A mesma questão em FORTRAN

Program Q1 integer num num=0 while (num.le.20) then write(*,*) num num=num+2 enddo end

Questão 2 em VISUALG algoritmo "Q2"

var cont,somatoria: Inteiro inicio cont:=1 somatoria:=0 Enquanto cont<=20 faca
Escreva(cont)
somatoria:=somatoria+cont cont:=cont+2 fimenquanto
Escreval
Escreva("A soma dos números é:",somatoria)
Fimalgoritmo
A mesma questão em FORTRAN
Program Q2 Real cont somatoria cont=1 somatoria=0 do while (cont.le.20) then write (*,*) cont somatoria=somatoria+cont cont=cont+2 enddo write(*,*) write (*,*)"A soma dos números é:",somatoria end

Questão 3 em VISUALG algoritmo "Q3"

var somaalt,mediaid,somaid,quant,num,id,peso,medial,contpe,contid,alt: real inicio num:=1
Escreva("Informe o número de jogadoras?") leia(quant) Enquanto num<=quant faca
Escreva("Informe a idade da jogadora?") leia(id) Escreva("Informe o peso da jogadora?") leia(peso) Escreva("Informe a altura da jogadora?") leia(alt) somaid:=somaid+id somaalt:=somaalt+alt Se (id>18) entao contid:=contid+1 fimse
Se (peso>70) entao contpe:=contpe+1 fimse num:=num+1 fimenquanto mediaid:=somaid/quant medial:=somaalt/quant
Escreval("O total de jogadoras maiores que 18:",contid)
Escreval("A media total das idades das jogadoras:",mediaid)
Escreval("A media total das alturas das jogadoras:",medial)
Escreval("O total das jogadoras com peso acima de 70:",contpe)
Fimalgoritmo

A mesma questão em FORTRAN Program Q3 real somaalt,mediaid,somaid,quant,num,id,peso real medial,contpe,contid,alt num=1 write(*,*) "Informe o número de jogadoras?" read (*,*) quant