Из текстового файла f переписать в файл g все строки, содержащие более 30 символов

@Xelinel32 · Регистрация: 19.04.2016

Студворк — интернет-сервис помощи студентам

Дан текстовый файл f. Переписать в файл g все строки файла f, содержащие более 30 символов. Файл f.txt создается пользователем.Нужно перевести с С++ и изменить немного под мою задачку)

C++

#include <fstream>
#include <iostream>
#include <cstdio>
#include <cstdlib>
#include<string.h>
 
using namespace std;
 
int main (){
  ifstream in("test.txt"); // Открыли файл
  ofstream out("out.txt");
  //Проверка на ошибки
  if(!in || !out){
    cout<<"Failed to open file\n";
    system ("PAUSE");
    return 1;
  }
  string buf; // переменная, в которую будем считывать данные
  while(!in.eof()){
    getline(in,buf); // Считали
    if(buf.size()>30)
      out<<buf;
  }
  in.close();
  out.close();
  system ("PAUSE"); // Смотрим результаты работы программы
  return 0;
}

@bormant · 27.04.2016, 19:35

Сообщение от Xelinel32

Нужно перевести с С++

Не нужно.

Pascal

var f, g: Text; s: String;
begin
  Assign(f,'f.txt'); Assign(g,'g.txt');
  Reset(f); Rewrite(g);
  while not EoF(f) do begin
    ReadLn(f,s); if Length(s)>30 then WriteLn(g,s);
  end;
  Close(f); Close(g);
end.

Добавлено через 1 минуту
Или даже:

Pascal

var s: String;
begin
  Assign(input,'f.txt'); Assign(output,'g.txt');
  Reset(input); Rewrite(output);
  while not EoF do begin
    ReadLn(s); if Length(s)>30 then WriteLn(s);
  end;
  Close(input); Close(output);
end.

Опции темы

Из текстового файла f переписать в файл g все строки, содержащие более 30 символов

Решение