dizer se o aluno passou ou nao
Publicado por NewLinuxer 13/12/2005
[ Hits: 3.695 ]
progrma que recebe a média de cada aluno e armazena em um vetor, após isso, calcula a média geral da turma, mostra quem passou, ou seja, com média >=70 e quem nao passou.
program exercicio15; uses crt; var nota: array[1..10] of real; contador, repr: integer; geral:real; begin clrscr; geral:=0; repr:=0; For contador:= 1 to 10 do begin Write('Digite a nota do aluno ',contador:2,': '); readln(nota[contador]); geral:= geral+nota[contador]; if nota[contador] < 7 then repr := repr+1; end; writeln; writeln('A media da classe foi: ',geral/10:0:2); writeln; writeln('A quantidade de alunos aprovados : ',10-repr); writeln('A quantidade de alunos reprovados : ',repr); readkey; end.
Coleta de dados de alunos em Pascal
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
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
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
erro ao clonar repo github (5)
Problema Envio email GLPI Versao 10.0.15 (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (25)
[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