Program Pzim

Program Pzim ;
{Desenvolva um software que receba o nome de um aluno com suas 4 notas bimestrais, receba também a média para aprovação da instituição, e mostre o nome do aluno e sua situação: aprovado ou reprovado.} var nota1,nota2,nota3,nota4,mediaFinal,soma,divisao: real;
Begin
write('Digite as suas quatro notas: '); read(nota1,nota2,nota3,nota4); soma:=(nota1+nota2+nota3+nota4); divisao:=(soma/4); if (mediaFinal>7) then write('Você está aprovado(a)') else if (mediaFinal<7) then write('Você está reprovado(a)'); readkey; End.

[ Responder esse comentário ] [Novo Comentário]

Questão 3) - 30/03/15 11:05

[Ver perfil]

Program Pzim ;
{3)Dada a idade de um nadador, informe, informe a sua categoria: Infantil (até 10 anos),
Juvenil (até 17 anos) ou Sênior (acima de 17 anos).} var idade: integer;
Begin
write('Digite a sua idade: ') ; readln(idade) ; if (idade>0) and (idade<=10) then write('Categoria: Infantil') else if (idade>10) and (idade<=17) then write('Categoria: Juvenil') else if(idade>17) then write('Categoria: Sênior') else write('Idade Inválida');
End.

[Mostrar primeiro comentário] [ Responder esse comentário ] [Novo Comentário]

Pascal. Ex11 - 30/03/15 11:05

[Ver perfil]

Program Exer11;
{11. Elaborar um algoritmo que leia o nome e a idade de duas pessoas, e retorne o nome e a idade da mais velha.} var nome1,nome2: string; idade1,idade2: integer;
Begin
write('Digite o nome da 1 pessoa: ' ) ; readln(nome1 ) ; write('Digite a idade da 1 pessoa: ' ) ; readln(idade1 ) ; clrscr; write('Digite o nome da 2 pessoa: ' ) ; readln(nome2 ) ; write('Digite a idade da 2 pessoa: ' ) ; readln(idade2 ) ; clrscr; if (idade1>idade2 ) then write(nome1,' e mais velho que ',nome2 ) else if (idade1=idade2 ) then write(nome1,' tem a mesmo idade ',nome2 ) else write(nome2,' e mais velho que ',nome1 ) ; readkey; End.