Ir ao conteúdo
  • Cadastre-se
ines 17

Pascal programa P J C

Recommended Posts

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

 

 

Alguém me pode ajudar?

 

Obrigada

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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..

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

É 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.

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×