R_Vasconcelos_Santos

@Simon Viegas Certo muito obrigado, irei tentar isso. Mas qual seria o mais correto para a responder a questão como ela foi feita? Tenha uma boa noite!

@Simon Viegas Eu fiz dois códigos vou postar separado, um de 100X1 e outro de 10X10. O primeiro ler 100 alunos e fornece 1 nota para cada, dando um total de 100 notal. No segundo ele fornece 10 alunos com 10 notas cada, dando um total de 100 alunos também. Mas a professora informou que a matriz deveria ser realizada utilizando 10X10 e fornecendo 100 alunos com 1 nota cada. Segue o meu código 10X10: Program Q3; var nota: array[1..10,1..10] of real; soma, somaaluno, media, mediaaluno: real; cont, x, acm: integer; resp: string; Begin soma:=0; cont:=0; begin REPEAT cont:=cont+1; x:=0; acm:=0; somaaluno:=0; begin repeat acm:=acm+1; mediaaluno:=0; x:=x+1; write('Informe a nota ', x, ' do aluno [',cont,']: '); readln(nota[cont,x]); writeln; somaaluno:=somaaluno+nota[cont,x]; mediaaluno:=somaaluno/acm; until (x=10); end; write('media do aluno: ', mediaaluno); writeln; soma:=soma+mediaaluno; writeln('novo aluno? 1 para Sim ou 0 para Não: '); read(resp); UNTIL (resp='0') or (cont=10); end; media:=soma/cont; writeln('Média é ', media:2:2); readkey; End. Segue meu código 100X1: Program Q3; var nota: array[1..100,1..1] of real; soma,media: real; cont: integer; resp: string; Begin soma:=0; begin REPEAT cont:=cont+1; write('Informe a nota do aluno [',cont,']: '); readln(nota[cont, 1]); writeln; soma:=soma+nota[cont,1]; writeln('novo aluno? 1 para Sim ou 0 para Não: '); read(resp); UNTIL (resp='0') or (cont=100); end; media:=soma/cont; writeln('Média é ', media:2:2); readkey; End.

@devair1010 Tipo, eu tentei usando 10X10 com variáveis nos valores, mas com isso eu só consegui obter: 10 alunos com 10 notas cada, e não 100 alunos com 1 nota cada.

@devair1010 Existe alguma forma de resolver por matriz ou é no vetor mesmo?

Boa noite, pessoal! Eu estou com uma dúvida referente a uma questão sobre matrizes. Em que a professora pede para ler 100 alunos e 1 nota para cada, eu fiz com a matriz 100X1 e ela disse que estava errado, e o correto era 10X10. Eu só quero saber se isso está certo. Segue abaixo a questão: Escreva um programa para cadastrar até 100 notas de alunos de uma turma. Deve ser usada uma matriz para guardar estas notas. Ao final do cadastro de cada nota de aluno deverá ser perguntado: "Nova Nota (Sim-1/ Não-0)?". Após o término de todos os cadastros, ou seja, quando o usuário digitar "0" na pergunta para novo aluno, ou quando preencher as 100 notas de alunos, o programa deverá mostrar na tela a média aritmética das notas lidas.

program Q10; //Rian V. Santos 6813 var nota1, nota2, media, mg , acm: real; cont1, cont2 : integer; resp: string; begin writeln; repeat write ('Informe a nota da primeira avaliação: '); readln(nota1); writeln; write ('Infor a nota da segunda avaliação: '); readln(nota2); writeln; media := (nota1 + nota2) / 2; writeln ('A media do aluno é: ', media:3:2); writeln; acm := acm + media; if media >= 6.0 then cont1 := cont1 + 1; if (media>=0) and (media<=10) then cont2 := cont2+1; mg := acm/cont2; write ('Calcular a media de um novo aluno? [S]im [N]ao: '); readln(resp); writeln; until (resp <> 'S'); writeln('Quantidade de alunos aprovados: ', cont1); writeln('E a média geral da turma é: ', mg:3:2); end. @Simon Viegas

@Simon Viegas Bom dia, eu sei que é preciso calcular com média aritmética. Mas eu não consigo enquadrar os valores de todas médias(media) para calcular a média geral no comando mg:=media/cont. Sempre ao realizar o código ele só fornece a última média para realização da média geral. Eu gostaria de saber como incluir a média de cada um dos cont na variável media. Segue o código: program Pzim10; var nota1, nota2, media, mg : real; cont : integer; resp: string; begin writeln; repeat write ('avaliação 1: '); readln (nota1); writeln; write ('avaliação 2: ');readln (nota2); writeln; media:= (nota1 + nota2) / 2; writeln ('A media do aluno é: ', media:3:1); writeln; if media >= 6.0 then cont := cont + 1; write ('Calcular a media de um novo aluno? S.Sim N.Nao '); readln (resp); writeln; until resp <> 'S'; writeln ('Quantidade de alunos aprovados: ', cont); if (media>=0) or (media<=10) then cont:=cont+1; mg:=media/cont; writeln('E a média geral da turma é: ', mg); end. adicionado 47 minutos depois @Simon Viegas Muito obrigado pela sua atenção e ajuda! Finalmente consegui responder. Tenha um bom dia o/

@Simon Viegas program Pzim9; var nota1, nota2, media, mg : real; cont : integer; resp: string; begin repeat write ('Avaliação 2: '); readln (nota1); writeln; write ('Avaliação 1: ');readln (nota2); writeln; media := (nota1 + nota2) / 2; writeln ('A media do aluno eh: ', media:3:1); writeln; if media >= 6.0 then cont := cont + 1; write ('Novo aluno? S.Sim N.Nao '); readln (resp); writeln; until resp <> 'S'; writeln ('Quantidade de alunos aprovados: ', cont); end.

Boa noite, pessoal! Escreva um programa para ler 2 notas de um aluno, calcular e imprimir a média final. Logo após escrever a mensagem "Calcular a média de outro aluno Sim Não?" e solicitar um resposta. Se a resposta for "S", o programa deve ser executado novamente, caso contrário deve ser encerrado imprimindo a quantidade de alunos aprovados e a média geral da turma. O meu problema é que não sei como tirar a média geral, após ter concluído as funções anteriores.

@devair1010 Muito obrigado pela sua ajuda, consegui resolver o programa pelo método informado. É necessário postar aqui? Se sim, voltarei para postar assim que a professora corrigir as atividades, visto que ela é muito rigorosa nesses assuntos, e tenho medo de alguém copiar igual e terminar resultando na anulação da pontuação em minha atividade.

@devair1010 Mas existe um comando específico para que eu possa excluir o número do vetor?

Olá, boa noite. Eu estava realizando algumas atividades de informática, referente a linguagem pascal em vetores. Enquanto isso, me deparei com uma questão que pedia para criar um programa que fizesse a leitura de alguns números de um vetor e após isso pedia para que a pessoa pudesse escolher um valor a ser eliminado desse vetor, já em seguida, fornecesse os números com exceção do eliminado. Eu consegui resolver algumas questões de vetores e matrizes, entretanto não consigo achar uma maneira de resolver essa, já tentei de tudo e nada. Segue a questão: Ler um vetor de 10 elementos inteiros Após isto, imprimir na tela os 10 valores lidos e o usuário poderá escolher um destes valores para ser excluído do vetorLer o valor escolhido e eliminá-lo do vetor No momento da exclusão todos os valores posteriores ao valor escolhido deverão ser reorganizados (movidos uma posição para esquerda) a fim de que o vetor resultante não fique com um espaço em branco. Imprimir o novo vetor. OBS.: Não estou pedindo para que resolvam a questão por mim, apenas que me expliquem.