Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 25.02.2014
Сообщений: 30
1

С текстового файла f переписать в файл g только симметричные строки

03.04.2014, 14:21. Показов 788. Ответов 5
Метки нет (Все метки)

Помогите написать код.

С текстового файла f переписать в файл g только симметричные строки.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2014, 14:21
Ответы с готовыми решениями:

С текстового файла f переписать в файл g только симметричные строки
С текстового файла f переписать в файл g только симметричные строки.

Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g
Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при...

Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g
Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при...

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

5
1643 / 1072 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
03.04.2014, 15:05 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
Function Simetric(S : String) : Boolean;
Begin
  Simetric:=
  (Copy(S,1,Length(S) div 2)=ReverseString(Copy(S,(Length(S)-Length(S) div 2)+1,Length(S) div 2)));
End;
...
While not EOF(f) do
Begin
  Readln(f,St);
  If Simetric(St) then Writeln(g,St);
End;
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31148 / 20357 / 7928
Регистрация: 22.10.2011
Сообщений: 35,287
Записей в блоге: 6
03.04.2014, 16:26 3
Возможности .NET:
Pascal
1
2
3
4
5
6
7
8
uses System.IO, System.Collections.Generic;
begin
  var f := &File.ReadAllLines('D:\test\1.txt');
  
  var lst := new System.Collections.Generic.List<string>;
  foreach var s : string in f do if s = ReverseString(s) then lst.Add(s);
  &File.WriteAllLines('D:\test\2.txt', lst.ToArray());
end.
0
APALoff
03.04.2014, 17:03
  #4

Не по теме:

Цитата Сообщение от UI Посмотреть сообщение
Возможности .NET:
Я после таких постов от тебя все больше и больше удивляюсь этим возможностям... надо осваивать...

0
0 / 0 / 0
Регистрация: 08.02.2014
Сообщений: 12
10.04.2014, 14:34 5
Переиенная F- что означает?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31148 / 20357 / 7928
Регистрация: 22.10.2011
Сообщений: 35,287
Записей в блоге: 6
10.04.2014, 14:54 6
Компилятор сам разберется (по типу возвращаемого функцией ReadAllLines значения), в какую переменную это присвоить. На самом деле там будет:
Pascal
1
var f : array of string := &File.ReadAllLines('D:\test\1.txt');
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2014, 14:54

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Переписать строки одного текстового файла в том же порядке в другой файл
Имеется текстовый файл. Переписать его строки в другой файл. Порядок во втором файле должен...

Содержимое текстового файла ƒ, разделенное на строки, переписать в текстовый файл g
Используя очередь, решить следующую задачу. Содержимое текстового файла ƒ, разделенное на...

Из файла текстового типа переписать строки в порядке возрастания их длин в другой файл.
Из файла текстового типа переписать строки в порядке возрастания их длин в другой файл.

Переписать строки текстового файла в обратном порядке (справа налево) в другой файл
Имеется текстовый файл. Переписать его строки в обратном порядке (справа налево) в другой файл....

Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все цифры, входящие в него
Составное текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при...

Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки
Здравствуйте! Используя очередь, решить следующую задачу. Содержимое текстового файла f,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.