Question

Записать текст в файл F. Переписать компоненты файла F в файл H , вставляя в начало каждого слова по двум пробела. Паскаль

Answer 1

Program primer;
Var
       f,h:text;
       I: integer;   
      S: string;   
 Begin
Assign(f,'F.txt');
Assign(h,'H.txt');
rewrite(f);

Writeln('текст в файл F: ');

readln(s);
writeln(f,s);   //Записать текст в файл F
close(f);
Rewrite(h);
Reset(f);
Readln(f,s);
write(h,'  ');
For i:=1 to length(s) do        
                                          begin
                                              write(h,s[i]);  //Переписать компоненты файла F в файл H 
                                              if (s[i]=' ') then            
                                         begin 
                                             write(h,'  ');   //вставляя в начало каждого слова по двум пробела
                                         end;
                                         end;        

close(f);
close(h);
end.
// Паскаль ABC

Answer 2

Запись текста в файл F

Для записи текста в файл F в языке программирования Паскаль можно использовать процедуру `Append`, которая добавляет новые данные в конец файла. Вот пример кода, который выполняет эту задачу:

var
  F: TextFile;
  text: string;
begin
  AssignFile(F, 'F.txt');
  Append(F);
  
  // Ввод текста
  WriteLn('Введите текст:');
  ReadLn(text);
  
  // Запись текста в файл
  WriteLn(F, text);
  
  CloseFile(F);
end.

В этом примере мы используем `AssignFile` для связывания переменной `F` с файлом `F.txt`. Затем мы открываем файл с помощью `Append(F)`, чтобы добавить новые данные в конец файла. После этого мы запрашиваем у пользователя ввод текста и записываем его в файл с помощью `WriteLn(F, text)`. Наконец, мы закрываем файл с помощью `CloseFile(F)`.

Перепись компонентов файла F в файл H

Для переписи компонентов файла F в файл H с добавлением двух пробелов в начало каждого слова в Паскале можно использовать следующий код:

var
  F, H: TextFile;
  line, word: string;
begin
  AssignFile(F, 'F.txt');
  AssignFile(H, 'H.txt');
  Reset(F);
  Rewrite(H);
  
  while not Eof(F) do
  begin
    ReadLn(F, line);
    
    // Разделение строки на слова
    while line <> '' do
    begin
      word := Trim(ExtractWord(1, line, [' ']));
      
      // Добавление двух пробелов в начало каждого слова
      word := '  ' + word;
      
      // Запись слова в файл H
      Write(H, word);
      
      // Удаление записанного слова из строки
      Delete(line, 1, Length(word));
      
      // Запись пробела в файл H, если строка не пустая
      if line <> '' then
        Write(H, '  ');
    end;
    
    // Переход на новую строку в файле H
    WriteLn(H);
  end;
  
  CloseFile(F);
  CloseFile(H);
end.

В этом примере мы используем `AssignFile` для связывания переменных `F` и `H` с файлами `F.txt` и `H.txt` соответственно. Затем мы открываем файл F с помощью `Reset(F)` и файл H с помощью `Rewrite(H)`. Затем мы начинаем цикл, который будет выполняться до тех пор, пока не будет достигнут конец файла F (`Eof(F)`).

Внутри цикла мы считываем строку из файла F с помощью `ReadLn(F, line)`. Затем мы разделяем строку на отдельные слова с помощью `ExtractWord` и циклически обрабатываем каждое слово. Мы добавляем два пробела в начало каждого слова с помощью `word := ' ' + word` и записываем его в файл H с помощью `Write(H, word)`. Затем мы удаляем записанное слово из строки с помощью `Delete(line, 1, Length(word))`. Если строка не пустая, мы записываем пробел в файл H с помощью `Write(H, ' ')`. После обработки всех слов в строке, мы переходим на новую строку в файле H с помощью `WriteLn(H)`.

Наконец, мы закрываем файлы F и H с помощью `CloseFile(F)` и `CloseFile(H)`.

Примечание: Пожалуйста, убедитесь, что файлы F.txt и H.txt существуют в той же директории, где находится ваша программа на Паскале.