Um pequeno software desenvolvido em Pascal para checar as notas de alguns alunos com
um gabarito de uma prova. Compilei o algoritmo no Free Pascal.

• Download prova01.pas
• Enviar nova versão

Esconder código-fonte

program prova01;  // Este software se chama 'prova01'

{
  PROVA 1.0 beta 1
  ----------------
  Autor .................: Eder S. G.
  E-M@il ................: edersg@esg-computacao.eti.br
  Web Site ..............: www.esg-computacao.eti.br
  Data de criação .......: 26/08/2003
  Data de atualização ...: 26/08/2003
  Licença ...............: GPL

  Desenvolvido sob o Sistema Operacional Red Hat Linux e compilado
  com o compilador livre FREE PASCAL (www.freepascal.org).
}


// DEFININDO, DECLARANDO CONSTANTES
Const
  AUTOR = 'Eder S. G.';  // a constante 'AUTOR' é igual a 'Eder S. G.'
  EMAIL = 'edersg@esg-computacao.eti.br';  // a constante 'EMAIL' é igual a 'edersg@esg-computacao.eti.br'
  WEBSITE = 'http://www.esg-computacao.eti.br';  // a constante 'WEBSITE' é igual a 'www.esg-computacao.eti.br'


// DEFININDO, DECLARANDO VARIAVEIS
var
 I, R, PONTOS : integer;  // declara as variáveis 'I', 'R' e 'PONTOS' do tipo INTEIRO (integer)
 RESPOSTA : string;  // declara a variável 'RESPOSTA' do tipo LITERAL, CARACTER (string)
 GABARITO : Array[1..10] of string;  // declara um VETOR (array) de 10 posições, elementos do tipo LITERAL, CARACTER (string)


// INICIANDO O CORPO DO SOFTWARE
begin

for I := 1 to 10 do // PARA i DE 1 ATÉ 10 FAÇA... ou seja, são 10 questões
  begin // INICIO
    writeln ('Por favor, digite a resposta nº ' ,I, ' do gabarito do professor(a): (10 QUESTÕES NO TOTAL)');  //  escreve, imprime, exibe na tela a msg entre os parenteses
    readln (GABARITO[I]);  // LEIA 'GABARITO1'... até 'GABARITO10'
  end;  // FIM PARA

writeln('');

for I := 1 to 3 do  // PARA i DE 1 ATÉ 10 FAÇA... ou seja, são 3 alunos
  begin  // INICIO
    PONTOS := 0;  // atribui o valor '0' à variável 'PONTOS'

    for R := 1 to 10 do  // PARA i DE 1 ATÉ 10 FAÇA... ou seja, são 10 questões
      begin  // INICIO
        writeln ('Digite a resposta nº ' ,R, ' que o ' ,I, 'º aluno marcou: (10 QUESTÕES NO TOTAL)');  //  escreve, imprime, exibe na tela a msg entre os parenteses
        readln (RESPOSTA);  // LEIA 'RESPOSTA'

        if (RESPOSTA = GABARITO[R]) then  // SE 'RESPOSTA' FOR IGUAL A 'GABARITO[R]' ENTAO
          begin  // INICIO
            PONTOS := PONTOS + 1;  // atribui o valor de 'PONTOS' + 1 à variável 'PONTOS'
          end;  // FIM SE
    end;  // FIM PARA

    writeln ('-------------------------------');
    writeln ('O ' ,I, 'º aluno fez ' ,PONTOS, ' pontos.');  //  escreve, imprime, exibe na tela a msg entre os parenteses
    writeln ('-------------------------------');

  end;  // FIM PARA

writeln ('');  // tem a função, objetivo de saltar, pula uma linha para ficar melhor visualmente
writeln ('Autor .....: ' ,AUTOR);
writeln ('E-M@il ....: ' ,EMAIL);
writeln ('WebSite ...: ' ,WEBSITE);

end.

runit-fstab-generator

Sistema de Gestão de Protocolos em YAD

Removendo primeiras ou últimas linhas do arquivo

Lixeira para console

usando a lixeira em modo texto

Nenhum comentário foi encontrado.