Exercícios de programação

1 – Faça um programa que receba duas notas de seis aluno, calcule e mostre:

a) A média aritmética das duas notas de cada aluno;
b) A mensagem que está na tabela a seguir;
c) O total de alunos aprovados;
d) O total de alunos de exame;
e) A média da classe.

Média Aritmética Mensagem

Até 3 Reprovado Entre 3 e 7 Exame De 7 para cima Aprovado

2 – Faça um programa que receba um número inteiro maior que 1, verifique se o número fornecido é primo ou não e mostre uma mensagem afirmando isso. Um número é primo quando é divisível apenas por 1 e ele mesmo. Ex.: 5 é um número primo.

3 – Faça um programa para calcular a área de um triângulo.

4 – Utilizando a mesma estrutura do exercício 3, faça o mesmo programa, mas que não permita que o usuário insira números inválidos, ou seja, números menores ou iguais a zero. Utilize a estrutura REPEAT.

5 – Faça um programa que receba a quantidade de números que o usuário deseja digitar e com esses números digitados calcule e mostre na tela a SOMA, a MÉDIA e o número maior e menor digitados pelo usuário.

1)

PROGRAM calcular_notas;

VAR cont, tot_apr, tot_exa, tot_repr: INTEGER; n1, n2, media, media_classe, total_classe: REAL;

BEGIN

total_classe := 0;
FOR cont := 1 TO 6 DO
BEGIN
WRITELN('Digite as duas notas do ',cont,'§ aluno');
READLN(n1, n2); media := (n1 + n2) /2;
WRITELN('Média do ',cont,'§ aluno = ',media:5:2);
IF media <= 3
THEN BEGIN tot_repr := tot_repr + 1;
WRITELN('Reprovado');
END;
IF (media > 3) AND (media < 7)
THEN BEGIN tot_exa := tot_exa + 1; WRITELN('Exame'); END;
IF (media >= 7)
THEN BEGIN tot_apr := tot_apr + 1; WRITELN('Aprovado'); END; total_classe := total_classe + media; WRITELN (' ');
END;
WRITELN('Total de reprovados = ',tot_repr);
WRITELN('Total de exames =