Prova 1.0
Publicado por Romulo 27/08/2003
[ Hits: 6.578 ]
Software desenvolvido na linguagem Pascal e compilado com software Free Pascal.
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.
Script para módulo de bateria do GKrellm
arcade.sh - front-end para AdvanceMAME
Ubuntu - Removendo kernels antigos
Nenhum comentário foi encontrado.
Desenvolvedor Java - pleno (0)
Analista de sistemas pleno (0)
Semana da Programação Shell Linux, com o Prof. Julio Neves (1)
Rodando um aplicativo em modo Kiosk no Ubuntu Linux 20.04
Instalação do Gentoo em HD Externo para dual boot com Windows
Instalação do OCS Inventory (última versão, 2.9.2 - 2022) no Debian 11
VOIP - Interceptando tráfego de pacotes
Sistemas de proteção de acesso a dados do seu HD, será efetivo?
Arduino IDE não reconhece portas USB no Ubuntu 22.04
Passando parâmetros do cliente SSH para o GIT
Auto indentar linhas selecionadas no Vim
Som estourado ou falhando na Steam com Proton
Habilitando a compilação JIT (Just In Time) para o PHP8 no Ubuntu
Problema com partição - Não consigo montar nem unir com /home (3)
Erro na compilação de driver com o comando linux, algo conflitando com... (5)