Pascal/Delphi Dados em uma mesma linha

[Alan Matos Lourenço]

Boa noite!

 

Como eu faço para inserir vários dados em uma mesma linha na hora que o algoritmo está rodando? 

 

Por exemplo, preciso que o usuário digite 5 números, mas não quero que fique saindo de uma linha para outra, mas que fique a instrução na mesma linha e o usuário digitando os dados nela. 

[Simon Viegas]

Olá @Alan Matos Lourenço.

 

1 hora atrás, Alan Matos Lourenço disse:

Por exemplo, preciso que o usuário digite 5 números, mas não quero que fique saindo de uma linha para outra, mas que fique a instrução na mesma linha e o usuário digitando os dados nela. 

 

Vide comandos GotoXY(), ClrEol, ClrScr; WhereX, WhereY... podem ajudar.

 

No aguardo

[Alan Matos Lourenço]

Valeu! Consegui com gotoXY. 

[Simon Viegas]

Olá @Alan Matos Lourenço.

 

Por favor, poste o trecho do código para analisarmos e também poder servi de base para outros usuários.

 

 

No aguardo.

[Alan Matos Lourenço]

Segue:

Begin 
  write('Digite a dimensão da matriz: ');
  readln(n);
  writeln('');    
  writeln('');
  writeln('');
  
  for i:= 1 to n do
  begin
    for j:=1 to n do
    begin                                                                   
      gotoxy(1,4);
      write('Digite o valor de A [', i, ',', j, ']: ');   
      read(a[i,j]); 
    end;
  end;
End.

 

[Simon Viegas]

Olá @Alan Matos Lourenço.

 

1) READ X READLN

6 horas atrás, Alan Matos Lourenço disse:

read(a[i,j]);

 

Resumidamente seria: não use read, use apenas readln. Mais sobre o tem, favor acessar tópico abaixo:

 

 

 

2) LIMPEZA DADO ANTERIOR

Pelo que eu vi, ao terminar de ler um número e voltar para ler o próximo, o número digitado ainda permanecerá na tela. Para "corrigir" isso, verifique o funcionamento do ClrEol. Pode ser útil.

 

 

No aguardo.

[Alan Matos Lourenço]

@Simon Viegas Eu nunca tinha notado a diferença entre Read e Readln no Pascalzim, por isso às vezes usava o read, mas agora vou usar só o Readln mesmo. 

 

Segue trecho do código com as mudanças: 

Begin
  write('Digite a dimensão da matriz: ');
  readln(n);
  writeln;    
  writeln;
  writeln;
  
  for i:= 1 to n do
  begin
    for j:=1 to n do
    begin                                                                   
      gotoxy(1,4);
      clreol;
      write('Digite o valor de A [', i, ',', j, ']: ');   
      readln(a[i,j]); 
    end;
  end;
End.