1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

duvida no pascal..

Discussão em 'Programação' iniciada por Garfield-PT-PT, 11 de Março de 2009. (Respostas: 1; Visualizações: 437)

  1. Garfield-PT-PT

    Garfield-PT-PT Power Member

    Boas pessoal !

    Eu estou na aula de programação , fiz um programa com os arrays, e tenho aqui um problema...

    ----------------------------------------------------------------------------------------
    program ftm4exe6;
    uses crt;

    var notas: array [1..2] of integer;
    nome: array[1..4] of string ;
    i, j, n, contapos, contaneg:integer;

    begin
    n:=1;
    clrscr;
    contapos:= 0;
    contaneg:= 0;
    for i:=1 to 4 do
    for j:=1 to 2 do
    begin

    write('Insira o ',n,'. nome: ');
    readln (nome);

    write('Insira a nota do ',nome,': ');
    readln (notas[j]);

    if notas[j] >= 10 then contapos:=contapos + 1
    else contaneg := contaneg + 1 ;

    end ;
    writeln ('A nota do ',nome,' e de: ',notas[j]);

    writeln ('Foram inseridos ',contapos,' notas positivas');
    writeln ('Foram inseridos ',contaneg,' notas negativas');


    readln;

    end.

    -------------------------------------------------------------------------------------

    Segundo a ficha , tenho de pedir o nome e a nota, que depois na saida tenho de dizer a nota de cada aluno que pus.


    Alguem ajuda ai ? :x2:

    Abraços [[[]]]
     
  2. syqe

    syqe Power Member

    Não percebi o tamanho dos arrays.

    Utilizando essa metodologia, queres dois arrays com o mesmo tamanho N (número máximo de alunos), um de Integer outro de String.
    Corres o ciclo N vezes e preenches os dois arrays em cada iteração, um com o nome outro com a nota.

    No final corres de novo o ciclo N vezes e imprimes os dois arrays.

    Era isso?
     

Partilhar esta Página