Jump to content


DSR

Member Since 11/05/2009
Offline Last Active 09/02/2010, 10:10
-----

Topics I've Started

Ponteiros

09/02/2010, 10:12

Pessoal como passo arrays para ponteiros,alguem tem um exemplo?

Passar Algoritmo Para Pascal, Alguém Sabe?

13/05/2009, 00:09

var

   Maior,Menor,Idade,QtdPessoas:Inteiro

   MediaIdade,MediaAltura,Altura:Real

   Continua:caractere

inicio

   Maior <- 0

   Menor <- 999

   Continua <- "S"

   Enquanto (Continua = "S") Faca

			Escreva("Digite a idade: ")

			Leia(Idade)

			Escreva("Digite a altura: ")

			Leia(Altura)

			Se (Idade > Maior) Entao

			   Maior <- Idade

			FimSe

			Se (Idade < Menor) Entao

			   Menor <- Idade

			FimSe

			MediaIdade <- MediaIdade + Idade // Faz a soma da idade de todas pessoas

			MediaAltura <- MediaAltura + Altura // Faz a soma da altura de todas pessoas

			QtdPessoas <- QtdPessoas + 1 // Conta quantas pessoas existem no cadastro, para poder fazer a divisão das medias

			Escreva("Deseja continuar cadastrando (S/N) ? ")

			Leia(Continua)

   FimEnquanto

   Escreval("Média de Idade: ",MediaIdade / QtdPessoas)

   Escreval("Média de Altura: ",MediaAltura / QtdPessoas)

   Escreval("Maior Idade: ",Maior)

   Escreval("Menor Idade: ",Menor)


IPB Skin By Virteq