Prova 1.0

Publicado por Romulo 27/08/2003

[ Hits: 6.523 ]

Download prova01.pas




Software desenvolvido na linguagem Pascal e compilado com software 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

Removendo arquivos com primeiro caracter especial

Menu que chama outros scripts

Desklets DoItYourself como monitor do sistema

Colocar palavras em maiúsculas

Adicionar usuários no Samba


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário