0 / 0 / 0
Регистрация: 21.09.2015
Сообщений: 2

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

19.10.2015, 17:31. Показов 1514. Ответов 2
Метки нет (Все метки)

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

Вот сам код задачи, который нужно перевести на паскаль :
C
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
#include <stdio.h>
#include <ctype.h>
#include <string.h>
 
typedef struct _deque {
    char*  buf;
    size_t left;
    size_t right;
    size_t cnt;
} deque_t;
 
void  deque_init(deque_t* deq, char* _pbuf);
int   deque_offset(deque_t* deq, const char* s, size_t size);
void  deque_add_front(deque_t* deq, char c);
void  deque_add_back(deque_t* deq, char c);
char* deque_c_str(deque_t* deq);
 
 
int part_pcopy(FILE* fin, FILE* fout){
    char    buf[512], dbuf[512], *s;
    size_t  len;
    deque_t deq;
 
    deque_init(&deq, dbuf);
 
    while(fgets(buf, sizeof(buf), fin)){
 
        len = strlen(buf);
        if((len > 0) && (buf[len - 1] == '\n'))
            buf[--len] = '\0';
 
        if(deque_offset(&deq, buf, len)){
 
            for(s = &buf[0]; *s; ++s){
                if(isdigit(*s))
                    deque_add_back(&deq, *s);
                else
                    deque_add_front(&deq, *s);
            }
 
            fputs(deque_c_str(&deq), fout);
        } else
            fputs(buf, fout);
        
        if(! feof(fin))
            fputc('\n', fout);
    }
    fflush(fout);
    return 1;
}
 
 
int main(void){
    FILE* fin  = fopen("input.txt",  "r");
    FILE* fout = fopen("output.txt", "w+");
    part_pcopy(fin, fout);
    fclose(fin);
    fclose(fout);
    return 0;
}
 
 
void deque_init(deque_t* deq, char* _pbuf){
    deq->buf   = _pbuf;
    deq->left  = 0;
    deq->right = 0;
    deq->cnt   = 0;
}
 
int deque_offset(deque_t* deq, const char* s, size_t size){
    deq->left  = 0;
    deq->right = size;
    deq->cnt   = size;
 
    while(*s){
        if(isdigit(*s++))
            --(deq->right);
    }
    return (deq->right != size);
}
 
void deque_add_front(deque_t* deq, char c){
    deq->buf[deq->left++] = c;
}
 
void deque_add_back(deque_t* deq, char c){
    deq->buf[deq->right++] = c;
}
 
char* deque_c_str(deque_t* deq){
    deq->buf[deq->cnt] = '\0';
    return deq->buf;
}
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.10.2015, 17:31
Ответы с готовыми решениями:

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

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

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

2
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8594 / 4440 / 1658
Регистрация: 01.02.2015
Сообщений: 13,772
Записей в блоге: 9
19.10.2015, 17:37
Поясните, почему такое сложное решение - через деки? Или вам без разницы как решить?
0
0 / 0 / 0
Регистрация: 21.09.2015
Сообщений: 2
20.10.2015, 17:55  [ТС]
Да, нужно решение через деки.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.10.2015, 17:55
Помогаю со студенческими работами здесь

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

Переписать в текстовый файл т1 содержимое текстового файла т2 но без пустых строк
написать программу которая переписывает в текстовый файл т1 содержимое текстового файла т2 но без пустых строк

Переписать в текстовый файл t1 содержимое текстового файла t2 без пустых строк
Описать процедуру npuce(t1, t2), переписывающую в текстовый файл t1 содержимое текстового файла t2, но без пустых строк. Пожалуйста,...

Переписать в текстовый файл Т2 содержимое текстового файла Т1 без строк, содержащих цифры
Help. Чистый си Разработать программу, переписывающую в текстовый файл Т2 содержимое текстового файла Т1, но без строк, содержащих...

Файл: Переписать содержимое текстового файла a.txt диска С в текстовый файл в.txt без пробелов
1.Переписать содержимое текстового файла a.txt диска С в текстовый файл в.txt без пробелов 2.Дан текст.файл C:\Program Files\2.txt,в...


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

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

Новые блоги и статьи
MVC фреймворк в PHP
Jason-Webb 19.04.2025
Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .
Dictionary Comprehensions в Python
py-thonny 19.04.2025
Python славится своей выразительностью и лаконичностью, что позволяет писать чистый и понятный код. Среди множества синтаксических конструкций языка особое место занимают словарные включения. . .
Шаблоны и протоколы для создания устойчивых микросервисов
ArchitectMsa 19.04.2025
Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .
Изменяемые и неизменяемые типы в Python
py-thonny 19.04.2025
Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru