Comando específico

[Antoniossssss]

Olá,Em um programa de pesquisa, digita-se algo, e recebe-se respostas d'antes declaradas em uma variável. Inseri duas perguntas, e para isso criei duas variáveis,mas o problema é que quando a pesquisada segunda variável é feita, os resultados também pesquisados da primeira variável não são mostrados. Estou usando o if-then, e gostaria de saber sobre algum comando que possa associar valores de variáveis diferentes, ou outra coisa......

Exemplo:

-programa-

declaração de variáveis

          -

          -

writeln......tal

          -

          -

readLn.......tal {respectiva variável}

          -

          -

writeLn.......tal

          -

          -

readLn........tal {respectiva variável}

          -

          -

begin

if......      {declaração de todos valores da primeira variável associada ao primeiro writeLn e todos os seus elses}

end;

begin

if........{declaração de todos valores da segunda variável associada ao segundo writeLn e todos os seus elses}

end;

end.

* Isso tudo porque deseja-se obter asrespostas após todas as perguntas (primeira e segunda) serem efetuadas. Funciona, mas os resultados da primeira pesquisadeveriam ser "somados"  ao da segunda e não é o que acontece, eles são excluídos.

Se alguém souber, obrigado.

[pebat]

Esplica-te mas claramente sff, so precebi que queres um programar que tem duas variaveis e vai lelas e vai da respota... de resto nao precebi nada

[Sota]

e se podesse tabem por o teu codigo era melhor  😉

[Antoniossssss]

Explicitando melhor....

program ba;

var

K: string;

S: string;

ch: char;

begin

 

  textbackground(5);                                                {Daqui até....}

  Clrscr;

  GotoXY (30,12);

  textcolor (white);

  writeLn ('Digite o seu nome');

  end;

  begin

 

GotoXY (30,15);

textcolor (white);                        {Aqui le-se a variável K} 

readLn (K);                                   

end;

 

  begin

  readkey;

GotoXY (30,15);                             

writeLn ('Pressione Enter para continuar');

ch := readkey;

if ch = #13

then

Clrscr;

begin

GotoXY (30,12);

writeLn ('Digite sua cor preferida');                   

  end;                                                                   

  begin

GotoXY (30,15);

readLn (S);

textcolor (white);                              {Aqui le-se a variável S}     

  Clrscr;

  end;                                                              {....aqui, o programa espera a digitação para DEPOIS dar as

                                                                        respostas}

begin

if K = 'Patrícia'

then

begin

      Clrscr;

  GotoXY (40,15);

  textcolor (blue);

writeLn ('Cheia de malícia....');

  end

else 

if K = 'Gervásio'

then

begin

  Clrscr;

  GotoXY (40,10);

  textcolor (red);

writeLn ('Nominho feio hein....');

end;

 

  begin

if S = '100'

then

begin

      Clrscr;                                      {Detalhe: Se digito na primeira tela Patrícia e no lugar dopeso não digito nada,

  GotoXY (40,15);                            o programa dá o resultado Cheia de malícia...., porém se digito Patrícia e na

  textcolor (blue);                            segunda tela digito 100, a pesquisa retornasomente o Estásgordo hein.....

writeLn ('Estás gordo....');      Preciso que apareçam tanto os resultados da variável K como também os da

end;                                                  variável S. Usei duas variáveis, porque precisava que os resultados fossem

end;                                                  apresentados somente depois de duas ou mais telas de pesquisa, senão seria

end;                                                  fácil começar o novo procedimento após a primeira pesquisa, mas deseja-se

end;                                                  obte-los com o seguinte resultado: Patrícia Cheia de malícia....Estás gordo....}

end;                                                                                                                                                                          end.

                                                              {Ou melhor, algum comando que pudesse conter mais que um valor fixo,

                                                                como por exemplo, If K= Patrícia and S= 100 then write Cheia de malícia..

                                                                Estás gordo.... Sei que não funciona, gostaria de saber algum comando específico para PODER COLOCAR SOMENTE NO FINAL DA PESQUISA TODOS OS RESULTADOS ASSOCIADOS}

Obrigado