Prova 1.0
Publicado por Romulo 30/08/2003
[ Hits: 5.046 ]
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.
Instalar emuladores no Fedora 22
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
NOTEBUXO POSITIVO VAIO VJFE43F11X Something has gone seriously wrong... (0)
Como faço pra um script ser executado apenas abrindo um terminal e dan... (8)
O Programa Configurações Sumiu no Ubuntu 22.04 [RESOLVIDO] (5)