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

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

19.10.2015, 17:31. Показов 1597. Ответов 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
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8647 / 4482 / 1669
Регистрация: 01.02.2015
Сообщений: 13,889
Записей в блоге: 11
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
Ответ Создать тему
Новые блоги и статьи
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru