Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

paullabeth

passar de visual g para programa c

Recommended Posts

Olá, preciso da ajuda para passar isso de visual g para o C. Desde já, obrigado!

algoritmo "semnome"
// Função :
// Autor :
// Data : 06/05/2015
// Seção de Declarações
var
inicio
inteiro: j,idade, qtda,qtdb,qtdc,qtdd,qtde, midade,midadeo,diferenca,percentual,midadee,diferencabr,diferencaro,total
caracter: opiniao
real:media,porcentualb,porcentualc
para j de 0 ate 100 passo 1 faca
escreva ("informe sua idade: ")
leia (idade)
escreva ("qual sua opiniao sobre o filme")
escreva ("sendo a para otimo")
escreva ("sendo b para bom ")
escreva ("sendo c para regular")
escreva ("sendo d para ruim ")
escreva ("sendo e para pessimo ")
leia (opiniao)
midadeo<-1
escolha opiniao
caso "A"
qtda <-qtda+1
se idade>midadeo entao
midadeo<-idade
fimse;
caso "b"
qtdb <-qtdb+1
caso "c"
qtdc <-qtdc+1
caso "d"
qtdd <-qtdd+1
midade<-1
se idade < midade entao
midade<-idade
fimse
caso "e"
qtde <-qtde+1
midadee<-1
se idade<midadee entao
midadee<-idade
fimse
outrocaso
escreval ("ERRO! Digite apenas A, B, C, D ou E como resposta.")
fimescolha
escreval ("")
fimpara;
porcentualb<-qtdb/100
porcentualc<-qtdc/100
diferencabr<- porcentualb-porcentualc
percentual<-qtde/100
diferenca<-midade-midadeo
media<-(media+idade)/qtdd
diferencaro<-midade-midadeo
escreva ("a quantidade de respostas otimo é :" qtda )
escreva ("a diferença porcentual entre bom e regular é :"diferencabr )
escreva ("a media de idade das pessoas que responderam ruim é :"media )
escreva ("a quantidade de respostas pessimas e a maior idade que ultilizou esta opção é :"percentual,diferenca )
escreva ("a diferença da maior idade que respondeu otimo e ruim é :"diferencaro )
fimalgoritmo;
inicio
// Seção de Comandos
fimalgoritmo

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.