Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 21.09.2015
Сообщений: 2

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

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

Студворк — интернет-сервис помощи студентам
Содержимое текстового файла 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
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8665 / 4502 / 1670
Регистрация: 01.02.2015
Сообщений: 13,931
Записей в блоге: 13
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
Ответ Создать тему
Новые блоги и статьи
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru