Prova 1.0

Publicado por Romulo 30/08/2003

[ Hits: 4.731 ]

Download prova01.pas




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.

  



Esconder código-fonte

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

{
  PROVA 1.0 beta 1
  ----------------
  Autor .................: Eder S. G.
  [email protected] ................: [email protected]
  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 = '[email protected]';  // a constante 'EMAIL' é igual a '[email protected]'
  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 ('[email protected] ....: ' ,EMAIL);
writeln ('WebSite ...: ' ,WEBSITE);

end.

Scripts recomendados

A um XKill, kill grafico com GDialog

Atualização do md300-claro

Fecha janelas

Papéis de parede aleatórios direto da internet

Racha-cuca (jogo)


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts