Ir ao conteúdo
  • Cadastre-se

Alguem que manje de pascal!


Posts recomendados

Sobre o primeiro eu fiz uma base usando algo bem simples, mais pra ter uma noção. Tive umas ideias de continuação mas tudo está muito grande e bagunçado pra mim.

Program media_idade ;varmedia:real;ano1,ano2,ano3,idade:integer;Beginwriteln('        --------------------------------------------------------------');writeln('        Esse programa calcula a idade media de um grupo de invididuos.');writeln('        --------------------------------------------------------------');writeln;writeln(' Digite 3 anos de nascimento');readln( ano1,ano2,ano3);idade:=(2015-ano1)+(2015-ano2)+(2015-ano3);media:=idade/3;writeln(' A soma das idades é de:' ,idade);writeln(' A media de idades é de:' ,media:2:2);  End.
Link para o comentário
Compartilhar em outros sites

  • Membro VIP

@

Faltou usar a tag code  (_(

 

Na primeira questão você tem que usar uma estrutura de repetição pois não sabe quantas idades serão informadas.

https://pt.wikibooks.org/wiki/Pascal/Estrutura_de_repeti%C3%A7%C3%A3o#While_.28enquanto.29

Program media_idade ;	var	media:real;	ano, conta, soma,idade:integer;	Begin		conta:=0;		soma:=0;		writeln('        --------------------------------------------------------------');		writeln('        Esse programa calcula a idade media de um grupo de invididuos.');		writeln('        --------------------------------------------------------------');		writeln;		writeln(' Digite o ano de nascimento: ');		readln(ano);		while(ano <> 0) do		Begin		     conta:=conta+1;		     idade:=(2015-ano);			soma:=soma+idade;			writeln(' Digite o ano de nascimento: ');			readln(ano);					end;		media:=soma/conta;		writeln(' A soma das idades é de:' ,soma);		writeln(' A media de idades é de:' ,media:2:2);  	End.

A segunda questão é parecida, mas bem mais fácil pois não precisará usar a estrutura de repetição. O número de triângulos já está definido.

 

O resto é quase igual. Tente aí e poste o código.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

@

Faltou usar a tag code  (_(

 

Na primeira questão você tem que usar uma estrutura de repetição pois não sabe quantas idades serão informadas.

https://pt.wikibooks.org/wiki/Pascal/Estrutura_de_repeti%C3%A7%C3%A3o#While_.28enquanto.29

Program media_idade ;	var	media:real;	ano, conta, soma,idade:integer;	Begin		conta:=0;		soma:=0;		writeln('        --------------------------------------------------------------');		writeln('        Esse programa calcula a idade media de um grupo de invididuos.');		writeln('        --------------------------------------------------------------');		writeln;		writeln(' Digite o ano de nascimento: ');		readln(ano);		while(ano <> 0) do		Begin		     conta:=conta+1;		     idade:=(2015-ano);			soma:=soma+idade;			writeln(' Digite o ano de nascimento: ');			readln(ano);					end;		media:=soma/conta;		writeln(' A soma das idades é de:' ,soma);		writeln(' A media de idades é de:' ,media:2:2);  	End.

A segunda questão é parecida, mas bem mais fácil pois não precisará usar a estrutura de repetição. O número de triângulos já está definido.

 

O resto é quase igual. Tente aí e poste o código.

MUITO OBRIGADO!!(desculpe o caps lock rs) estou trabalhando no segundo. Ps: me explica como por essa tag.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Membro VIP

Olá,
 
 

Ps: me explica como por essa tag.

Para inserir a tag CODE tem 3 formas básicas;
 
1) seleciona o código e clica no botão <>;
 
2) clica no botão (sem texto selecionado), e cola o código;
 
3) utilizando o botão "BBCode Mode", no lado da borracha... e coloca o texto entre as tag CODE e /CODE.

 

Geralmente utilizamos a primeira e segunda opção...

 

 

Antes de postar, clicar em Mais opções.Daí vai gerar uma visualização... e se quiser testar novamente, clicar em Pré-visualizar... quantas vezes precisar... Com o tempo se acostuma.

 

 

***

 

Só complementando o primeiro código. Poderia inserir uma proteção para evitar divisão por zero, ex.:

program media_idade ;var	media:real;	ano, conta, soma,idade:integer;beginconta:=0;soma:=0;writeln('        --------------------------------------------------------------');writeln('        Esse programa calcula a idade media de um grupo de invididuos.');writeln('        --------------------------------------------------------------');writeln;writeln(' Digite o ano de nascimento: ');readln(ano);while(ano <> 0) do  begin  conta:=conta+1;  idade:=(2015-ano);  soma:=soma+idade;  writeln(' Digite o ano de nascimento: ');  readln(ano);  end;if conta>0 then //verifica se conta é maior que zero, já que "não existe" divisão por zero (por padrão dá erro se dividir)  begin  media:=soma/conta;  writeln(' A soma das idades é de:' ,soma);  writeln(' A media de idades é de:' ,media:2:2);    endelse  writeln('Nenhuma idade foi inserida');End.

****

 

Sobre a segunda questão, aí você tem 2 problemas em um só. a) calcular áreas B) "descobrir" o maior e menor valor.

 

Sugiro que primeiramente faça um programa que calcule o menor e maior valor dentro 5 valores digitados, pois creio que essa parte menos fácil. Depois faça um programa simples que calcular a área de um triângulo (acho que isso é bem fácil). Ai basta associar uma coisa com a outra, no caso, o enunciado completo.

 

Então, para essa questão eu sugiro também usar um laço de repetição, como são laços fixos (X laços), recomendo usar o laço FOR.

 

No aguardo.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...