Lista de exercicio

UniCEUB – Engenharia da Computação
Linguagens e Técnicas de Programação I - Prof. Claudionor Tusco

As conversões de português estruturado para Pascal foram feitas pelo aluno Cleber
Alves e ainda não foram todas implementadas e testadas.
Algoritmo para calcular a idade média dos alunos
Faça um programa estruturado para determinar:
(a) a quantidade de alunos do sexo masculino
(b) a quantidade de alunas do sexo feminino
(c) a idade média dos alunos
(d) a idade média das alunas
Português estruturado
Início
//Declaração de variáveis
Inteiro: iMasc, iFem, iSomaMasc, iSomaFem, iIdade;
Real: rMediaMasc, rMediaFem, rMedia;
Caracter: cSexo;
// Início das variáveis iMasc ← 0; iFem ← 0; iSomaMasc ← 0; iSomaFem ← 0;
Leia (iIdade, cSexo);
Enquanto idade > 0 faça
Se cSexo = ‘M’ então iMasc ← iMasc + 1 iSomaMasc ← iSomaMasc + iIdade;
Senão
iFem ← iFem + 1; iSomaFem ← iSomaFem + iIdade;
Fim_se
Leia (iIdade, cSexo)
Fim_enquanto.
// Saída dos resultados rMediaMasc ← iSomaMasc/ iMasc; rMediaFem ← iSomaFem/ iFem; rMedia ← [(iSomaMasc + iSomaFem) / (iMasc + iFem)];
Escreva (iMasc, rMediaMasc, iFem, rMediaFem, iMasc + iFem, rMedia); Fim

1

UniCEUB – Engenharia da Computação
Linguagens e Técnicas de Programação I - Prof. Claudionor Tusco

Pascal
Program nome_do_programa;
Uses crt;
Var
{Declaração de variáveis} iMasc, iFem, iSomaMasc, iSomaFem, iIdade : Integer; rMediaMasc, rMediaFem, rMedia : Real; cSexo : Char;
Begin
{Início das variáveis} iMasc := 0; iFem := 0; iSomaMasc := 0; iSomaFem := 0;
Readln (iIdade, cSexo);
While idade > 0 do
Begin
If cSexo = ‘M’ then
Begin
iMasc := iMasc + 1; iSomaMasc := iSomaMasc + iIdade;
End
Else
Begin
iFem := iFem + 1; iSomaFem := iSomaFem + iIdade;
End;
Readln (iIdade, cSexo)
End;
{Saída dos resultados} rMediaMasc := iSomaMasc / iMasc; rMediaFem := iSomaFem / iFem; rMedia := [(iSomaMasc + iSomaFem) / (iMasc + iFem)];
Writeln (iMasc, rMediaMasc, iFem, rMediaFem, iMasc + iFem,