[Ajuda]Pascal Calcular média

[Secksi 0]

Olá galera, sou muuuuuuuuuuuuuuuuuuuito leigo no assunto, esse é meu segundo algoritmo, então peguem leve!

O exercício é o seguinte: calcular a media de um período da minha faculdade.

OBS: minha faculdade tem 3 provas por período, a média é calculada pegando as 2 maiores notas entre as 3 e dividindo por 2.

PS: se a nota for menor que 4 ela é invalida.

 

Program Media_Fal ;

var x,y,z,media,tempo:real;

Begin

writeln('Digite sua nota Av1');

read(x);

writeln('Digite sua nota Av2');

read(y);

writeln('Digite sua nota Av3');

read(z);

begin

if (x<4) or (x>=4) and (x<y) and (x<z) or (x=y) and (x=z) then

x:=0;

if (y<4) or (y>=4) and (y<x) and (y<z) then

y:=0;

if (z<4) or (z>=4) and (z<y) and (z<x) then

z:=0;

media:=(x+y+z)/2;

begin

tempo:=10;

while (tempo<>0) do

begin

clrscr;

writeln('Sua média é:',media,'');

writeln('O programa será fechado em ',tempo,' segundos');

delay (1000);

tempo := tempo - 1;

end

end

end

End.

Me digam oque acharam, queria suas opiniões, saber em que errei, em que posso melhorar, como deixar o algoritmo mais simples, etc etc, abraço galera!:nice:

[ϟIgorzin² 0]

Não sei nada sobre pascal, e aqui nessa área você não vai conseguir muita ajuda, pois não são muitas pessoas que vem aqui.

[~OwneR~ 8]

Se você usar duas notas iguais (sendo uma no primeiro e outra no segundo ou terceiro) e outra nota diferente você não vai ter o resultado correto. EX: 7,7,8

O erro está na sua verificação. O mais certo seria:

*** Só abra o spoiler se tiver arregado =D ***

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Você pode também usar um array e ordená-lo, pegar as duas primeiras notas, somá-las e dividir por dois.

Com dois loops for você faz isso facilmente ^^

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

[Secksi 0]

Se você usar duas notas iguais (sendo uma no primeiro e outra no segundo ou terceiro) e outra nota diferente você não vai ter o resultado correto. EX: 7,7,8

O erro está na sua verificação. O mais certo seria:

*** Só abra o spoiler se tiver arregado =D ***

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Você pode também usar um array e ordená-lo, pegar as duas primeiras notas, somá-las e dividir por dois.

Com dois loops for você faz isso facilmente ^^

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

opa uma resposta! :D

então cara, eu pensei nesse problema de notas iguais e consegui resolver sim com esse algoritmo que ta no post ai, se vc tiver um compilador pode da ctrl c ctrl v q c vai ver q vai funfar atee com 3 notas iguais ;D

n sei bem uq eh esse array ainda mas pelo visto é pra ordenar em ordem crescente ow decrescente, vlw pela idea vou tentar criar outro usando ele!

PS: seu primeiro spoiler ta errado, se for 3 notas iguais e maiores que 4 a media vai ser 0! voce tem que fazer isso só no X, valeu pela ajuda kraaa, pensei que nao ia ter resposta, aabraço!

 

 

 

EDIT: VIJI, tu tava certo, se tiver 2 notas iguais(menores) e uma diferente(maior) ele da errado, mas se for 2 notas (maiores) iguais e uma diferente (menor) da certo, ou 3 iguais, estranho, vou concertar aqui vlw pela dica

 

 

ta ai o novo algoritmo, só coloquei mais uma condição no X e deu pra resolver, vlw mesmo n tinha visto essa possibilidade, abraço!

 

Program Media_Fal ;

var x,y,z,media,tempo:real;

Begin

writeln('Digite sua nota Av1');

read(x);

writeln('Digite sua nota Av2');

read(y);

writeln('Digite sua nota Av3');

read(z);

begin

if (x<4) or (x>=4) and (x<y) and (x<z) or (x=y) and (x=z) or (x=y) and (x<z) or (x=z) and (x<y) then

x:=0;

if (y<4) or (y>=4) and (y<x) and (y<z) or (y=z) and (y<x) then

y:=0;

if (z<4) or (z>=4) and (z<y) and (z<x) then

z:=0;

media:=(x+y+z)/2;

begin

tempo:=10;

while (tempo<>0) do

begin

clrscr;

writeln('Sua média é:',media,'');

writeln('O programa será fechado em ',tempo,' segundos');

delay (1000);

tempo := tempo - 1;

end

end

end

End.

 

:nice:

[~OwneR~ 8]

Olha mano, eu testei várias combinações de notas e nenhuma deu errado =S

Três notas iguais e maiores que 4 também gerou o resultado certo...

A verificação que lhe apresentei irá zerar SOMENTE uma nota, portanto não tem como dar errado =)

(* ou mais, caso sejam menores que 4 *)

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

[Secksi 0]

Olha mano, eu testei várias combinações de notas e nenhuma deu errado =S

Três notas iguais e maiores que 4 também gerou o resultado certo...

A verificação que lhe apresentei irá zerar SOMENTE uma nota, portanto não tem como dar errado =)

(* ou mais, caso sejam menores que 4 *)

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

é, bem estranho, compilei com o seu e funcionou direitinho, n entendi direito, mais tarde penso que to com a cabeça cansada já =p

vlw em mano, sabe algum outro exercicio legal q eu possa fazer pra treinar? T+

[~OwneR~ 8]

Achei alguns exercícios, talvez você se interesse:

Lista de Exercícios Pascal

 

1) Faça um programa em Pascal que carregue um vetor de seis elementos numéricos inteiros, calcule e mostre:

¨ A quantidade de números pares;

¨ Quais os números pares;

¨ A quantidade de números ímpares;

¨ Quais os números ímpares.

 

2) Faça um programa em Pascal que carregue um vetor com sete números inteiros, calcule e mostre:

¨ Os números múltiplos de 2;

¨ Os números múltiplos de 3;

¨ Os números múltiplos de 2 e de 3.

 

 

3) Faça um programa em Pascal que carregue um vetor com dez números reais, calcule e mostre a quantidade de números negativos e a soma dos números positivos desse vetor.

 

4) Faça um programa em Pascal que carregue um vetor com 15 posições, calcule e mostre:

¨ O maior elemento do vetor e em que posição esse elemento se encontra;

¨ O menor elemento do vetor e em que posição esse elemento se encontra.

 

5) Faça um programa em Pascal que leia um vetor de 15 posições de números inteiros e multiplique todos os elementos pelo maior valor do vetor. Mostre o vetor após os cálculos.

 

6) Faça um programa em Pascal que receba o nome de cinco produtos e seus respectivos preços, armazene-os em dois vetores separados, um para os produtos e outro para os preços. O programa deve calcular e mostrar:

¨ A quantidade de produtos com preço inferior a R$ 50,00;

¨ O nome dos produtos com preço entre R$ 50,00 e R$ 100,00;

¨ A média dos preços dos produtos com preço superior a R$ 100,00.

 

7) Faça um programa em Pascal que receba o total das vendas de cada vendedor e armazene-as em um vetor. Receba também o percentual de comissão de cada vendedor e armazene-os em outro vetor. Receba os nomes desses vendedores e armazene-os em um terceiro vetor. Existem apenas dez vendedores. Calcule e mostre:

¨ Um relatório com os nomes dos vendedores e os valores a receber;

¨ O total das vendas de todos os vendedores;

¨ O maior valor a receber e quem o receberá;

¨ O menor valor a receber e quem o receberá.

 

8) Faça um programa em Pascal que carregue uma matriz 6 x 3 com números inteiros, calcule e mostre:

¨ O maior elemento da matriz e sua respectiva posição, ou seja, linha e coluna.

¨ O menor elemento da matriz e sua respectiva posição, ou seja, linha e coluna.

 

9) Faça um programa em Pascal que carregue uma matriz 3 x 5 com números inteiros, calcule e mostre a média dos elementos pares da matriz.

 

10) Faça um programa em Pascal que receba:

¨ As notas de 15 alunos em quatro provas diferentes e armazene-as em uma matriz 15 x 4;

¨ Os nomes dos 15 alunos e armazene-os em um vetor de 15 posições.

 

Calcule e mostre:

¨ Para cada aluno, o nome, a média aritmética das quatro provas e a situação (Aprovado ou Reprovado). Assuma média para aprovação igual ou superior a 6;

¨ A média da classe.

 

11) Faça um programa em Pascal que carregue uma matriz 5 x 5 com números inteiros, calcule e mostre a soma:

¨ Dos elementos da linha 4;

¨ Dos elementos da coluna 2;

¨ Dos elementos da diagonal principal;

¨ Dos elementos da diagonal secundária;

¨ De todos os elementos da matriz.

 

12) Faça um programa em Pascal que carregue uma matriz 6 x 4 com números inteiros. Recalcule a matriz digitada, onde cada linha será multiplicada pelo maior elemento da linha em questão. Mostre a matriz resultante.

 

13) Faça um programa em Pascal que carregue uma matriz 5 x 5 com números inteiros e crie dois vetores de cinco posições cada um, que contenham, respectivamente, as somas das linhas e das colunas da matriz. Escreva a matriz e os vetores criados.

 

14) Faça um programa em Pascal que carregue uma matriz 3 x 4 com números inteiros, calcule e mostre:

¨ A quantidade de elementos pares;

¨ A quantidade de elementos ímpares;

¨ A média de todos os elementos.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Quando você chegar nas matrizes você terá que usar arrays bidimensionais (EX: array of array of Integer)

[Zaphey 2]

Atenção !

 

Seu tópico encontra-se em área errada, e por esse motivo, foi fechado.

Leia as

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

e as descrições antes de postar !

 

Tópico Fechado [x]