Prova 1.0
Publicado por Romulo 30/08/2003
[ Hits: 5.047 ]
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.
Mudar aleatoriamente o papel de parede no GNOME 3
Remover/Exibir Arquivo/Diretório de uma estrutura de diretórios
Catsort - Concatenar resultado filtrando e removendo repetidas
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
alterar o tamanho da tela do monitor via xrandr (2)
Dificuldade de instalar Apache Office no Zorin17 (0)
Acesso remoto via SSH por Script numa virtualbox (1)
Notebuxo positivo vaio VJFE43F11X Something has gone seriously wrong... (9)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (35)