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

Переписать содержимое исходного текстового файла в файл-результат_2

04.01.2016, 15:43. Показов 1368. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Напишите программу, которая переписывает содержимого исходного текстового файла в
файл-результат, но во всех словах, имеющих одинаковые первую и последнюю латинскую
букву, эти буквы переводятся в верхний регистр. Длина слова не превышает 50 символов.
Под словом понимается любая последовательность символов, не включающая пробелы и
переходы на новые строки.
0
Лучшие ответы (1)
04.01.2016, 15:43
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.01.2016, 15:43
Ответы с готовыми решениями:

Переписать содержимое исходного текстового файла в файл-результат_1
Напишите программу, которая переписывает содержимого исходного текстового файла в файл-результат, но во всех словах, имеющих нечетную...

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

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

1
52 / 10 / 12
Регистрация: 28.12.2015
Сообщений: 41
04.01.2016, 22:10 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
{ В полной аналогии }
program task;
type
    list = ^chain;
    chain = record
        item: char;
        next: list
    end;
var
    t1, t2: text;
    l: list;
    spacecount: integer;
    c: char;
    flag, ok: boolean;
    
function makelist( var t: text; var l: list; 
    var spacecount: integer; flag: boolean ): boolean;
{ Формирую список из букв слова. Значение функции - true, если слово
  имеет одинаковые первую и последнюю латинскую букву. В переменной 
  spacecount -  количество пробелов перед словом. В переменной flag - 
  false, если указатель установлен на начало строки и true иначе }
var
    q: list;
    count: integer;
    c1, c2: char;
begin
    c1 := ' ';
    c2 := ' ';
    if flag then
        if c = ' ' then spacecount := spacecount + 1;
    if not eoln( t ) then begin
        read( t, c );
        while ( c = ' ' ) and not eoln( t ) do begin
            read( t,c );
            spacecount := spacecount + 1;
        end;
        if c = ' ' then spacecount := spacecount + 1;
        if c <> ' ' then begin
            if ( c >= 'a' ) and ( c <= 'z' ) then begin
                c1 := c;
                c2 := c;
            end;
            new( l );
            l^.item := c;
            l^.next := nil;
            q := l;
            while not eoln( t ) and ( c <> ' ' )  do begin
                read( t, c );
                if ( c >= 'a' ) and ( c <= 'z' ) then begin
                    if ( c1 = ' ' ) then c1 := c;
                    c2 := c;    
                end;
                if c <> ' ' then begin
                    new( q^.next );
                    q := q^.next;
                    q^.item := c;
                    q^.next := nil
                end;
            end;
        end;
        makelist := c1 = c2;
    end
    else
        makelist := false;
end;
 
procedure writelisttofile( var t: text; l: list; ok: boolean );
{ Переписываю слово в файл t2 согласно условию }
var
    c: char;
begin
    if l <> nil then begin
        if ok then begin
            c := l^.item;
            c := chr( ord( 'A' ) - ord ( 'a' ) + ord( c ) );
            write( t, c );
            l := l^.next;
            if l <> nil then begin
                while l^.next <> nil do begin
                    write( t, l^.item );
                    l := l^.next;
                end;
                c := l^.item;
                c := chr( ord( 'A' ) - ord ( 'a' ) + ord( c ) );
                write( t, c );
            end;
        end
        else begin
            write( t, l^.item );
            l := l^.next;
            while l <> nil do begin
                write( t, l^.item );
                l := l^.next;
            end;
        end;
    end;
end;
 
procedure writespace( var t: text; n: integer );
begin
    while n <> 0 do begin
        write( t, ' ' );
        n := n - 1;
    end;
end;
 
procedure deletelist( var l: list );
begin
    if l <> nil then begin
        deletelist( l^.next );
        dispose( l );
        l := nil;
    end;
end;
    
begin
assign( t1, 'u: t1.txt' );
assign( t2, 'u: t2.txt' );
reset( t1 );
rewrite( t2 );
l := nil;
spacecount := 0;
flag := false;
while not eof( t1 ) do begin
    ok := makelist( t1, l, spacecount, flag );
    flag := true;
    writespace( t2, spacecount );
    writelisttofile( t2, l, ok );
    deletelist( l );
    if eoln( t1 ) then begin
        flag := false;
        readln( t1 );
        writeln( t2 );
    end;
    spacecount := 0;
end;
close( t1 );
close( t2 );
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.01.2016, 22:10
Помогаю со студенческими работами здесь

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

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

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

Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки
Здравствуйте! Используя очередь, решить следующую задачу. Содержимое текстового файла f, разделенное на строки, переписать в...

Из исходного текстового файла все повторяющиеся слова переписать в другой файл удалив их из исходного
из исходного текстового файла все повторяющиеся слова переписать в другой файл удалив их из исходного. Дополнительных массивов не...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Отличия между let и var в JavaScript
hw_wired 12.02.2025
Работа с переменными - один из основных моментов при написании программ на JavaScript. От правильного объявления и использования переменных зависит не только читаемость кода, но и его надежность, а. . .
Подключение файла JavaScript в других файлах JavaScript
hw_wired 12.02.2025
Самый современный и рекомендуемый способ подключения JavaScript-файлов - использование системы модулей ES6 с ключевыми словами 'import' и 'export'. Этот подход позволяет явно указывать зависимости. . .
Отмена изменений, не внесенных в индекс Git
hw_wired 12.02.2025
Управление изменениями в Git - одна из важнейших задач при разработке программного обеспечения. В процессе работы часто возникают ситуации, когда нужно отменить внесенные изменения, которые еще не. . .
Что такое px, dip, dp, and sp в Android
hw_wired 12.02.2025
При разработке мобильных приложений для Android одним из ключевых вызовов становится адаптация интерфейса под различные устройства. А ведь их действительно немало - от компактных смартфонов до. . .
Отличия POST и PUT в HTTP
hw_wired 12.02.2025
В основе современного интернета лежит протокол HTTP, который определяет правила взаимодействия между клиентами и серверами. Этот протокол предоставляет набор методов, позволяющих клиентам выполнять. . .
Перемещение последних коммитов в новую ветку Git
hw_wired 12.02.2025
В процессе разработки иногда возникает ситуация, когда последние изменения в основной ветке нужно переместить в отдельную ветку разработки. Может оказаться, что вы внесли несколько коммитов в ветку. . .
GraphQL в Go (Golang)
stackoverflow 11.02.2025
В веб-разработке традиционные REST API постепенно уступают место более гибким и эффективным решениям. GraphQL - мощное средство для создания гибких API, которое позволяет клиентам запрашивать именно. . .
GraphQL и TypeScript
stackoverflow 11.02.2025
В мире современной веб-разработки GraphQL прочно занял место одного из самых перспективных подходов к созданию API. Этот язык запросов, созданный для оптимизации взаимодействия между клиентом и. . .
Переход на Composition API в Vue.js
stackoverflow 11.02.2025
Фронтенд разработчики, работающие с Vue. js, часто сталкиваются с проблемой организации логики в компонентах при использовании классического Options API. Знаете ли вы, что происходит, когда ваш. . .
Архитектура и внутреннее устройство современных процессоров
stackoverflow 11.02.2025
От первых электронных вычислительных машин, занимавших целые комнаты, до современных многоядерных процессоров размером с почтовую марку - путь развития вычислительной техники поражает воображение. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru