Prova 1.0
Publicado por Romulo 27/08/2003
[ Hits: 6.804 ]
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. 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.
getgazette - script para baixar a Linux Gazette
Script para Montar Partição/Unidade ...
Criando contas de usuario em varios servidores ao mesmo tempo
Comando grub2-update no Fedora
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Porblema com MergeList [RESOLVIDO] (10)
Melhor hospedagem em nuvem para projetos Laravel com baixo custo? [RES... (7)
Como baixar os drivers de áudio no linux mint? (7)
Como posso localizar o arquivo HTML da página inicial do GLPI dentro d... (2)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta