quarta-feira, 25 de março de 2009

Desafio 2 para 26/03

Um concurso foi realizado por um número não conhecido de candidatos e constou de 50 questões cada uma contendo 5 opções. Cada candidato teve o seu número e respostas registrados. Sabendo o gabarito da prova faça um programa que imprima o número do candidato e o número de acertos de cada candidato.
Postado por às
Marcadores:

2 comentários:

  1. Anônimo25 de março de 2009 às 11:08

    Queridos alunos,
    gostaria que vcs ajudassem aos colegas a responderem aos desafios nos blogs. Apresentem ideias, sugestões, dicas de como poderão resolver os desafios.

    Abraços!!

    Professora Aline

    ResponderExcluir
  2. Anônimo26 de março de 2009 às 13:17

    program prova;
    uses crt;
    type
    vetora=array[1..4] of integer;
    vetorb=array[1..4] of integer;
    var
    numpessoas,acerto:integer;
    gab:vetora;
    resp:vetorb;
    I,j:integer;
    begin
    clrscr;
    acerto:=0;
    writeln('Digite quantidade');
    readln(numpessoas);
    for I:= 1 to 4 do
    begin
    writeln('Digite o gabarito da questao ', i);
    readln (gab[I]);
    end;


    for j:= 1 to numpessoas do
    begin
    for i:=1 to 50 do
    begin
    writeln ('Digite a resposta do aluno ', j , 'na questao ', i);
    readln (resp[I]);
    If resp[I]=gab[I] then
    acerto:= acerto+1;
    end;
    writeln('O numero de acertos do candidato ',j,' e = ', acerto);
    acerto:=0;
    end;


    readln;
    end.

    ResponderExcluir

Assinar: Postar comentários (Atom)