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

Localizador não interativo do Mozilla Firefox para Slackware

Script para atualização de hora

Script que conta quantas barras tem em um diretorio

Shell para extrair informações de impressoras Brother

Pegar ip dinamico enviar para ftp

Nenhum comentário foi encontrado.