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é+
- Fórum WMO
- → Viewing Profile: Posts: DSR
Community Stats
- Group Usuários
- Active Posts 5
- Profile Views 1529
- Member Title Novato no fórum
- Age Age Unknown
- Birthday Birthday Unknown
-
Sexo
Não informado
0
Neutral
User Tools
Posts I've Made
In Topic: Passar Algoritmo Para Pascal, Alguém Sabe?
14/05/2009, 22:05
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.
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
gostaria de saber como fica essa parte em pascal, de onde veio esse 0 e 999 oquê siguinifica esse sinal (<-0)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*/
Maior <- 0 Menor <- 999 Continua <- "S", e o peso das pessoas?
- Fórum WMO
- → Viewing Profile: Posts: DSR
- Privacy Policy
- Regras ·