2 replies to this topic

[lopes2]

podem ver se este pseudocodigo está correcto?

o problema é o seguinte:

Escreva um algoristo que diga qual a nota mais alta, a mais baixa e quantas negativas
e positivas houve.

Inicio
cont:=0
maior:=0
menor:=0
negativas:=0
positivas:=0
Escrever('Insira o número de alunos');
Ler(total)
cont:=cont+1
Escrever('Insira a nota do aluno nº 1')
Ler(NR)
maior:=NR
menor:=NR
Se NR>=10 então positivas=positivas+1
Se NR<10 então negativas=negativas+1
Repetir
cont:=cont+1
Escrever('Insira a nota do aluno nº',cont,)
Ler(NR)
Se NR>=10 então positivas=positivas+1
Se NR<10 então negativas=negativas+1
Se NR>maior então NR:=Maior
Se NR<menor então NR:=Menor
Até cont=total
Escrever=('A nota mais baixa foi',menor,'e a mais alta foi',maior,' e houve',positivas,'positivas
,' e ',negativas,'Negativas)
Fim


Obrigado

[LeoB]

Nunca escrevi esses pseudocódigos, mas como a matéria é lógica, vamos ver se eu ajudo. Escrevi em pascal, o que é bem parecido com esse seu algoritmo. Acho que vai dá pra entender.

Cont := 0;
Positivas := 0;
Negativas := 0;

Writeln('Insira o número de alunos');
Readln(Total);

Repeat
   Inc(Cont);
   Writeln('Insira a nota do aluno nº', Cont);
   Readln(NR);
   if Cont = 1 then begin
      Maior := NR;
      Menor := NR;
   end;
   if NR >= 10 then
      Inc(Positivas);
   else
      Inc(Negativas);
   if NR > Maior then Maior := NR;
   if NR < Menor then Menor := NR;
Until Cont = Total

Writeln('A nota mais baixa foi ', Menor, ' e a mais alta foi ', Maior, ' e houve ', Positivas, ' positivas, ' e ', Negativas, ' negativas.');

[lopes2]

obrigadão