Pascal/Delphi (Para hoje) Descobrir quantas letras tem a maior palavra de um arquivo de texto

Pedroso90 · 10 de março de 2022

Alguém poderia por favor me ajudar nessa questão, comecei a estudar agora arquivos de texto no pascal e estou com bastante dificuldade de como fazer esse exercício:

Um arquivo origem.txt contém um texto (distribuído em várias linhas) cujas palavras estão separadas por um ou mais espaços em branco. Faça um programa em Pascal que determine quantas letras tem a maior palavra contida no texto. Favor desconsiderar todo e qualquer caractere que não seja uma letra ou um espaço em branco.

Fiz bem pouca coisa pois estou muito perdido pra falar a verdade, e tenho que entregar essa tarefa ainda hoje

Program ex2;
var
  arqv:text;
  texto,letra:string;
  tamanho,i:integer;

begin
Assign(arqv,'C:\Exercicios\origem.txt');
Append(arqv);
writeln('Digite um texto: ');
read  (texto);
writeln(arqv,texto);

while not EOF(arqv) do 
  begin
  writeln(arqv,texto);
  tamanho:= length(texto);

  for i:= 1 to tamanho do
    begin
    letra:=texto[i]
    end;

  writeln(letra);
  end;

Close(arqv);
end.

Simon Viegas · 10 de março de 2022

52 minutos atrás, Pedroso90 disse:

Um arquivo origem.txt contém um texto (distribuído em várias linhas) cujas palavras estão separadas por um ou mais espaços em branco. Faça um programa em Pascal que determine quantas letras tem a maior palavra contida no texto. Favor desconsiderar todo e qualquer caractere que não seja uma letra ou um espaço em branco.

Sugiro fazer o programa por etapas. Por exemplo: primeiro faça simplesmente um programa que leia as linhas de um arquivo txt e escreve elas na tela. Consegue fazer isso?

Pedroso90 · 11 de março de 2022

Em 09/03/2022 às 18:38, Simon Viegas disse:

Sugiro fazer o programa por etapas. Por exemplo: primeiro faça simplesmente um programa que leia as linhas de um arquivo txt e escreve elas na tela. Consegue fazer isso?

Seria isso?

program ex2;
uses crt;
var Ch: char;
      Txt: TEXT;		{ definição do arquivo tipo texto }
begin
  clrscr;
  Assign(Txt, 'C:\Users\Windows\Desktop\Exercicios\origem.Txt');
//  rewrite(txt);
  append(txt);
  writeln(txt,'Isso eh apenas um teste.');
  close(txt);
  Reset(Txt);
  while not Eof(Txt) do			{ lê o arquivo até o final }
  begin
    while not Eoln(Txt) do			{ lê uma linha completa do arquivo }
    begin
      Read(Txt, Ch);				{ lê um caractere do texto }
      write(Ch);
      delay(50);
    end;
    writeln;
    Readln(Txt); 				{ posiciona na próxima linha do texto }
  end;
  Close(Txt);
  readkey;
end.