Jump to content


Photo

Duvida Sobre Logica


  • Faça o login para participar
6 replies to this topic

#1 berguinho

berguinho

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Não informado

Posted 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!!!

#2 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 18/11/2009, 10:53

Isso ta parecendo tarefa de faculdade, rsrs mas blza...

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<7) AND (med>6) then
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.
...

#3 SayedMarf

SayedMarf

    Normal

  • Usuários
  • 73 posts
  • Sexo:Feminino
  • Localidade:Burkhart Ridge Mobile Home Park

Posted 01/09/2017, 15:45

http://grupa-dom.pl http://bulls.net.pl
<a href="http://grupa-dom.pl"...rupa-dom.pl</a>
http://bulls.net.pl
<a href="http://szybowanie.pl...ybowanie.pl</a>
http://stypendiumnatalerzu.pl

#4 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 23/10/2017, 00:09

Priligy Vs Tramadol viagra Levitra Professional 20mg
Acquistare Kamagra Sito Affidabile Cialis With Priligy Propecia En Espana Receta Medica cheapest brand name levitra Non Prescription India Pharmacy

#5 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 25/10/2017, 02:53

Comprar Generico Propecia Doctissimo Viagra Cialis Comprar Levitra 10 Mg viagra online Priligy Generico Dapoxetina 60 Mg
Buy Lasix 100mg Get Dapoxetine Online No Prescription Cialis En Sevilla buy generic levitra online Prednisone Discount Coupons

#6 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 27/10/2017, 12:25

Levitra 8 Compresse Dutasteride On Line Without Dr Approval Pharmacy generic levitra professional 20 mg Que Fue Propecia Tretinac Kaufen

#7 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 30/10/2017, 08:06

Viagra Original Rezept Hiv And Cephalexin 500 Mg Cialis 5 Mg Best Price viagra Wirkung Von Viagra Nebenwirkungen Viagro Buy Best Price Fastest Shipping Cialis




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq