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

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

19.10.2015, 17:31. Показов 1089. Ответов 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

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

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

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

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

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

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

2
Модератор
Эксперт по электронике
7621 / 3789 / 1478
Регистрация: 01.02.2015
Сообщений: 11,759
Записей в блоге: 2
19.10.2015, 17:37 2
Поясните, почему такое сложное решение - через деки? Или вам без разницы как решить?
0
0 / 0 / 0
Регистрация: 21.09.2015
Сообщений: 2
20.10.2015, 17:55  [ТС] 3
Да, нужно решение через деки.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2015, 17:55

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

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

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

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

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


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

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

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