• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

sandrogama

como fazer esse programa em pascal

1 mensagem neste tópico

Eu ja fiz um pedaço mas to em duvida na hr de travar quando for digitado o 9999 e fazer a nota q apareceu mais vezes. quem puder ajudar eu agradeço.

2)Fazer um algoritmo para corrigir provas de múltipla escolha. Cada prova tem 10 questões, cada questão valendo um ponto. O primeiro conjunto de dados a ser lido será o gabarito para a correção da prova. Os outros dados serão os números dos alunos e suas respectivas respostas, e o último número, do aluno fictício, será 9999. O algoritmo deverá calcular e imprimir:

a) para cada aluno o seu número e sua nota;

:) a porcentagem de aprovação, sabendo-se que a nota mínima de aprovação é 6;

c) a nota que teve maior freqüência absoluta, ou seja, a nota que apareceu maior número de vezes (supondo a inexistência de empates).

program Notas;

type

  Vetor=array [1..10] of char;

var

  n, i, aluno, Pontos: integer;

  Gab, Res: Vetor;

begin

  writeln ('Escreva o gabarito: ');

  for i:=1 to 10 do readln (Gab);

  write ('Digite o numero do alunos: ');

  readln (n);

  for aluno:=1 to n do

    begin

      Pontos := 0;

      writeln ('Entre com as respostas do aluno ',aluno,': ');

      for i:=1 to 10 do

        begin

          readln (Res);

          if Res = Gab then Pontos := Pontos+1;

        end;

      writeln ('O aluno ',aluno,' teve ',Pontos,' pontos');

      begin

      if pontos > 7 then

      writeln ('o aluno esta aprovado')

      else writeln('o aluno foi reprovado');

      end;

    end;

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora