Prova 1.0
Publicado por Romulo 30/08/2003
[ Hits: 5.038 ]
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.
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.
Instalação Android Studio no Linux
Medir tempo de acesso a internet no log do Squid
Baixando arquivos do Megaupload
Converter slides swf baixados do slideshare para pdf
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba