0 / 0 / 0
Регистрация: 15.03.2013
Сообщений: 21
1

Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины (в обратном порядке)

15.03.2013, 22:21. Показов 4212. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины (в обратном порядке).
Дана строка S и текстовый файл. Заменить в файле все пустые строки на строку S.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2013, 22:21
Ответы с готовыми решениями:

Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины
Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла...

Создать новый файл, содержащий все строки исходного файла наибольшей длины в обратном порядке
Дан текстовый файл. Создать новый файл, содержащий все строки исходного файла наибольшей длины в...

Создать строковый файл, содержащий все слова длины N из исходного файла
Дано целое число N и текстовый файл. Создать строковый файл, содержащий все слова длины N из...

Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины
Всем привет! Кто может помочь с двумя небольшими програмками по работе с файлами? Очень буду...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,587
Записей в блоге: 1
16.03.2013, 10:12 2
Лучший ответ Сообщение было отмечено Equally как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Var f,g:text;
    s,max,s1:string;
    i:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    max:='';
    While not Eof(f) do
    Begin
      readln(f,s);
      if Length(s)>Length(max) then max:=s;
    End;
    Close(f);Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      if Length(s)=Length(max) then
      Begin
        s1:='';
        For i:=1 to Length(s) do
         s1:=s[i]+s1;
        writeln(g,s1);
      End;
    End;
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.
0
16.03.2013, 10:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.03.2013, 10:12
Помогаю со студенческими работами здесь

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

Создать новый строковый файл, содержащий все строки исходного файла наименьшей длины
Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наименьшей...

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все...

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла, начинающиеся этой буквой
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru