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

Pascal ( Ciclos e Arrays ) HELP ME!

Discussão em 'Programação' iniciada por Diamond_Sux, 12 de Fevereiro de 2009. (Respostas: 2; Visualizações: 785)

  1. Boas, estou a criar um programa que me indica o numero de pessoas que gostaram ou não gostaram de um produto, este programa está a ser feito com a ambição de ser perfeito. Estou farto de procurar e perguntar mas não encontro assim nada de jeito. Estou a tentar fazer um repetição do programa todo,e nessa repetição, as variáveis iram ficar armazenadas, já que dividi o programa em 2 partes, 1 parte para o sexo masculino e outro para o feminino.
    Bem, vou vos passar o código, por favor ajudem-me neste quebra-cabeças :kfold:
    Código:
    program Projectonovoproduto;
    uses crt;
    Var A: integer;
        B: char;
        C: integer;
        D: char;
        E: integer;
        F: Char;
        S: char;
        N: char;
        M: Char;
        H: integer;
        G: char;
        i: integer;
        CountN: integer;
        CountS: integer;
        CountM: integer;
        CountF: integer;
    
    Begin
    
      CountN:=0;
      CountS:=0;
      CountF:=0;
      CountM:=0;
    
    
      Writeln('introduza o sexo da pessoa que vai intruduzir [M/F]');
       Readln(B);
     While (B<>'M') and (B<>'F') do
      Begin
       Writeln('introduza o sexo da pessoa que vai intruduzir [M/F]');
       Readln(B);
       clrscr;
      End;
     If (B=M) then
      CountM:=CountM+1;
      Begin
        writeln('Introduza o numero de pessoas que quer intruduzir');
        Readln(C);
    
        for i:=1 To C Do
         Begin
          Writeln('introduza se gostou(S) ou se nao gostou(N) do produto');
           Readln(D);
    
          If (D='S') then
           CountS:=CountS+1;
          If (D='N') Then
           CountN:=CountN+1;
         End
       End;
    
    
       If B='F' then
        CountF:=CountF+1;
        Begin
         writeln('Intrudoza o numero de valores que quer intruduzir');
         Readln(H);
    
          for i:=1 To H Do
          Begin
           Writeln('intrudoza se gostou(S) ou se nao gostou(N) do produto');
            Readln(G);
    
           If (G='S') then
            CountS:=CountS+1;
           If (G='N') Then
            CountN:=CountN+1;
          End
       End;
     
     Writeln( CountS,' Pessoas do gostaram do produto');
     Writeln( CountN,' Pessoas não gostaram do produto');
    
    
     Readln;
    End.





    Ele ainda está um pouco incompleto....

     
    Última edição pelo moderador: 12 de Fevereiro de 2009
  2. poes uma condiçao do tipo

    Repeat
    Writeln ('Deseja repetir? S/N');
    Readln (ch);
    Until (ch=S) or (ch=N);




    poes um repeat antes dos contadores e o until ch=N antes do ultimo end.

    Espero ter ajudado
     
  3. thanks nightwalker....podias era ter levantado o rabo da cadeira e vir ao meu pc me ajudar... já que és da minha turma xD
     

Partilhar esta Página