Jump to content


DSR

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

Posts I've Made

In Topic: Passar Algoritmo Para Pascal, Alguém Sabe?

14/05/2009, 22:05

cara estou tentando fazer este algoritmo no copilador pascal, só que este parte final não deu certo, já tentei de varias maneiras será que você pode me ajudar?

while;
writeln('Média de Idade:',mediaidade / qtdpessoas);
writeln('Média de Altura:',mediaaltura / qtdpessoas);
writeln('Maior Idade: ',maior);
writeln('Menor Idade: ',menor);
readln;
End.


esse while, acho que esta errado porque ele é usado quando se quer repetir algo, se vcê poder me explicar eu agradeço
até+

In Topic: Passar Algoritmo Para Pascal, Alguém Sabe?

14/05/2009, 01:22

será que o algoritmo em pascal fica assim, se poder mostrar aonde errei te agradeço!

Program media;
uses wincrt;
Var maior,menor,idade,qtdpessoas:integer;
mediaidade,mediaaltura,altura:real;
continua:char;

Begin

clrscr;
maior:=0;
menor:=999;
continua := 'S';
for continua :='S' then;
writeln('digite a idade:');
readln (idade);
writeln('digite a altura:');
readln (altura);
if(idade > maior)then;
maior := idade
end;

begin;

if(idade < menor) then
writeln (menor := idade);
end;
readln (mediaidade:=mediaidade+idade);
readln (mediaaltura:=mediaaltura+altura);
readln (qtdpessoas:=qtdpessoas+1);
writeln ('Deseja continuar cadastrando (S/N) ? ');
readln (continua);
for
writeln('Média de Idade:',MediaIdade / QtdPessoas);
writeln('Média de Altura:',MediaAltura / QtdPessoas);
writeln('Maior Idade: ',Maior);
writeln('Menor Idade: ',Menor);
readln;
End.

In Topic: Passar Algoritmo Para Pascal, Alguém Sabe?

13/05/2009, 15:27

Essa tá fácil pra passar pra Pascal...

mas... você não sabe nada de Pascal? Isso tá me cheirando a trabalho. Pq vc não tenta e tenta tirar as dúvidas ao inves de pedir pra alguem fazer pra ti?

/*DarkSign*/

gostaria de saber como fica essa parte em pascal, de onde veio esse 0 e 999 oquê siguinifica esse sinal (<-0)
Maior <- 0 Menor <- 999 Continua <- "S", e o peso das pessoas?

IPB Skin By Virteq