Pascal/Delphi programa P J C

[ines 17]

Olá, este programa é novo para mim e não estou a conseguir fazer o seguinte trabalho:

 

 

Alguém me pode ajudar?

 

Obrigada

[Simon Viegas]

Está com dúvida em qual parte?

 

É relativamente simples... basta seguir o enunciado: basicamente vai ler um monte de string. Use um repeat. Depois vai exibir essas string na tela. Use um for.

 

Aí é especificado alguns critérios, no qual a condição de parada é encontrar uma linha com 'EOF', ou seja, vai ficar lendo até que o conteúdo da linha seja igual EOF'. Outra limitação é que só pode ler até 1000 string, ou seja, a outra condição para parar de ler é o contador ser maior ou igual a 1000.

 

 

Segue uma base:

program FCdH;
{
Neste trabalho deverá pedir ao utilizador um conjunto de linhas até que seja 
introduzida a string EOF sozinha numa linha, que faz o programa acabar . O 
programa deverá depois disso voltar a escrever as strings introduzidas até então. 
}
var
  linha    :string;                    //linha lida
  contLinha:integer;                   //contador de linhas lidas
  {vetLinha :array [1..1000] of string; //vetor para armazenar as linhas}
  vetLinha :array [1..5] of string;    //vetor para armazenar as linhas
  i        :integer;                   //controlar os laços for
begin
contLinha:=0;






readln;
end.

Então, para testar, você vai configurar o programa ler até 5 string. Quanto tive pronto muda para 1000.

 

 

No aguardo..

[ines 17]

obrigada pela sua resposta, mas ainda não percebi como é que se para aparecer todas as string inseridas anteriormente.

Envio Prt Sc do que já fiz

 

[Simon Viegas]

É quase isso, mas é necessário armazenar as linhas em algum lugar para assim ter acesso a elas para exibir depois. No caso, pode usar um vetor.

 

Uma base do que você precisa está no código que postei. A depender pode usar ele. Insere o repeat para ler as linhas e depois e um for para exibir elas.

6 horas atrás, Simon Viegas disse:

program FCdH;
{
Neste trabalho deverá pedir ao utilizador um conjunto de linhas até que seja 
introduzida a string EOF sozinha numa linha, que faz o programa acabar . O 
programa deverá depois disso voltar a escrever as strings introduzidas até então. 
}
var
  linha    :string;                    //linha lida
  contLinha:integer;                   //contador de linhas lidas
  {vetLinha :array [1..1000] of string; //vetor para armazenar as linhas}
  vetLinha :array [1..5] of string;    //vetor para armazenar as linhas
  i        :integer;                   //controlar os laços for
begin
contLinha:=0;






readln;
end.

 

A base do repeat é como do seu código, mas após ler a linha faça seguinte: se linha diferente de 'EOF', então atualiza o contador de linhas (contLinha:=contLinha+1) e armazena no vetor o conteúdo da linha na posição equivalente ao contador (vetLinha[contLinha]:=linha).

 

As condições do until serão, além do que você usou, também contLinha = 1000, ou seja, ou sai quando encontrar 'EOF" na linha OU sai quando contLinha chegar a 1000.

 

Obs.1: como sugerido no código acima, testes usando um limite de 5 linhas;

Obs. 2: em vez de postar um print da tela do programa, poste o texto do código;

Obs. 3: para postar códigos, clique no botão "<>" que fica na barra de ferramentas acima e cole o texto na tela que vai abrir.

 

 

Qualquer dúvida é só perguntar.

 

No aguardo.