Jump to content


berguinho

Member Since 22/11/2008
Offline Last Active 27/11/2008, 22:48
-----

Topics I've Started

Logica Uma Ajudinha Por Favor!

22/11/2008, 19:40

Iai galera, eu preciso da ajuda de vcs para resolver um exercicio.
Ele é o seguinte fornecer o nome de um aluno e duas notas dele para saber ser ele passou "media 7"... até ai blz, mas ai é que complica, tem que sair esses textos: se ele tirou nota maior que 7 " Aluno aprovado", se ele tirou nota menor que 7 "aluno reprovado" e se ele tirou nota entre 6 e 7 "aluno em recuperação"!

Eu consegui até aqui, mas dá problema para mostra se ele tirou nota entre >=6 e <7
Program Pzim ;
var
nm: string;
n1,n2,med: real;
Begin
writeln ('Informe o nome do aluno: ');
read (nm);
writeln ('Digite a primeira nota: ');
read (n1);
writeln ('Digite a segunda nota: ');
read (n2);
med:= (n1+n2)/2;
if med > 7 then
begin
writeln ('O aluno ,', nm, ' foi aprovado porque sua média é superior a 7.0.');
writeln ('Nota final ', med);
end;

if med >=6 then o probema e aqui!!!!
begin
writeln ('O aluno ,', nm, ' está de recuperação, porque sua média é está entre 6.0 e 6.9.');
writeln ('Nota final ', med);
end;

End.

Como eu faria isso???
Obrigado!!!

Duvida Sobre Logica

22/11/2008, 19:36

Iai galera, eu preciso da ajuda de vcs para resolver um exercicio.
Ele é o seguinte fornecer o nome de um aluno e duas notas dele para saber ser ele passou "media 7"... até ai blz, mas ai é que complica, tem que sair esses textos: se ele tirou nota maior que 7 " Aluno aprovado", se ele tirou nota menor que 7 "aluno reprovado" e se ele tirou nota entre 6 e 7 "aluno em recuperação"!

Eu consegui até aqui, mas dá problema para mostra se ele tirou nota entre >=6 e <7
Program Pzim ;
var
nm: string;
n1,n2,med: real;
Begin
writeln ('Informe o nome do aluno: ');
read (nm);
writeln ('Digite a primeira nota: ');
read (n1);
writeln ('Digite a segunda nota: ');
read (n2);
med:= (n1+n2)/2;
if med > 7 then
begin
writeln ('O aluno ,', nm, ' foi aprovado porque sua média é superior a 7.0.');
writeln ('Nota final ', med);
end;

if med >=6 then o probema e aqui!!!!
begin
writeln ('O aluno ,', nm, ' está de recuperação, porque sua média é está entre 6.0 e 6.9.');
writeln ('Nota final ', med);
end;

End.

Como eu faria isso???
Obrigado!!!

IPB Skin By Virteq