Текстовые файлы

[Rooben Good]

Привет всем! Очень нужна помощь.....в Pascal ABC.

Взяв за основу свой вариант из контрольной работы № 6, реализовать ввод из текстового файла и обработку символьных последовательностей, состоящих из любых символов. В программе должны быть предусмотрены соответствующие процедуры и функции, корректно обрабатывающие входные данные, согласно своему варианту. Результат должен запоминаться тоже в текстовом файле и в понятном для интерпретации виде.

Вот код предыдущей программы в работе №6....

var
str:string;   
words:array[1..30] of string; 
count:array[1..30] of integer;
i,j,k:integer;

begin
  writeln('Vvedite stroku');
  readln(str);
  k:=1;                        
  
  for i:=1 to length(str)do  

  begin
    if str[i]=','then     
      inc(k)
    else 
      words[k]:=words[k]+str[i];     
  end;
  
  for i:= 1 to k  begin
    for j:=1 to k do                        
    begin
      if words[i]=words[j] then        
      begin
        inc (count[i]);               
        if(i<>j)then                  
        count[j]:=0;                  
      end;
    end;
  end;
  
  for i:=1 to k do                   
  begin
  if(count[i]<>0)then                
    writeln(words[i],' count:=', count[i]);    
  end;
    
  readln;                               
end.

Результат:

Vvedite stroku
Lena,Igor,Lena,Andrey,Mark,Lena,Ale x
Igor count:=1
Andrey count:=1
Mark count:=1
Lena count:=3
Alex count:=1

Что нужно сделать?

[Serge_Bliznykov]

Что нужно сделать?

а нам тоже непонятно, что ВАМ нужно сделать...
может быть, начать с того, что взять задание по своему варианту?..

[Rooben Good]

Лаба 6. Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику конкретного варианта.
5) все различные слова, указав для каждого из них число его вхождений в последовательность; - ЭТО предыдущая лабораторная.....а вот это:

ЦЕЛЬ РАБОТЫ. Взяв за основу свой вариант из контрольной работы № 6, реализовать ввод из текстового файла и обработку символьных последовательностей, состоящих из любых символов. В программе должны быть предусмотрены соответствующие процедуры и функции, корректно обрабатывающие входные данные, согласно своему варианту. Результат должен запоминаться тоже в текстовом файле и в понятном для интерпретации виде.
К сожалению это все что есть(

[Rooben Good]

Код,который я скинул Вам,это задание из Лабы 6....и на ее основе нужно сделать задание...

[Rooben Good]

Так что,поможете?

[GetMax]

Очевидно вам нужно считать строку из файла. Сделать это очень просто

Var
  f : Text;
Begin
   Assign(f,"InputFile.txt"); //связываем переменную с имеющимся у вас текстовым файлом(точный путь зададите самостоятельно)
  Reset(f); //Открываем файл для чтения
  Readln(f, str); //считываем строку из файла в переменную str
  Close(f); //закрываем файл
  ..... //тут алгоритм обработки строки
  Assign(f,"OutputFile.txt"); //связываем переменную с выходным файлом
  Rewrite(f); //Открываем его для записи
   for i:=1 to k do                   
  begin
  if(count[i]<>0)then                
    writeln(f,words[i],' count:=', count[i]);    //записываем в файл
  end;
  Close(f)
End;

Могут быть отличия в синтаксисе, но алгоритм в целом должен быть понятен. Случай, когда в файле несколько строк, оставлю на самостоятельное рассмотрение

[Rooben Good]

Спасибо