14 / 14 / 11
Регистрация: 02.10.2013
Сообщений: 57
1

Используя стек создать другой файл в котором строки были бы записаны в обратном порядке

11.10.2013, 14:34. Показов 3899. Ответов 10
Метки нет (Все метки)

создать текстовый файл содержащий некоторую информацию . Используя стек создать другой файл в котором строки были бы записаны в обратном порядке
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.10.2013, 14:34
Ответы с готовыми решениями:

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

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

Создать новый файл, в котором строки исходного будут записаны в обратном порядке
спасайте! Текстовый файл содержит три строки символов. Создать новый файл, в котором эти строки...

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

10
694 / 568 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
11.10.2013, 15:04 2
nikita19, Перевернуть файл
Создать текстовый файл и записать копию в обратном порядке
1
993 / 520 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
11.10.2013, 15:16 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
type stack=^internal_stack_record;
    internal_stack_record=record
      el:string;{вообще говоря, что угодно, вплоть до других стеков, принцип не меняется}
      next:stack;
    end;
    Procedure Push(var x:stack;element:string); {Положить element в стек x}
    var t:stack;
    begin
      new(t); {Создаем новый элемент списка}
      t^.el:=element; {Заполняем значение тем, которое нам подарили в параметре}
      t^.next:=x;  {Связываем новый элемент с остальным списком, даже если он пуст}
      x:=t;  {Сдвигаем голову, теперь она указывает на только что созданный элемент}
    end; {Все...}
    Procedure Pop(var x:stack;var element:string); {Обратная операция}
    var t:stack;
    begin
      t:=x; {Сохраняем голову, она еще понадобится}
      if t=nil then begin
        writeln('Error in stack operation, stack is empty in POP!');
        exit {Аварийный выход из процедуры}
      end; {Та самая проверка на ошибки. Может быть имеет смысл положить что-либо в результат...
            Сейчас он не определен, точнее не изменен.}
      element:=t^.el; {Возвращаем значение}
      x:=t^.next; {Выкидываем голову из остального списка, мы ее обработали}
      dispose(t); {Чистим за собой память, пока этого не сделали, Паскаль будет считать место занятым, хотя оно уже ни к чему не привязано}
    end;
    
    var f_in,f_out:text ;
        str:string;
        my_stack:stack;
    begin
    Assign(f_in,'in.txt');
    Reset(f_in);
    Assign(f_out, 'out.txt');
    Rewrite(f_out);
      
      while not eof(f_in) do {пока не конец файла}
      begin
       readln(f_in,str);
       push(my_stack,str);
      end;
      
      while (my_stack<>nil) do
      begin
       pop(my_stack,str);
       writeln(f_out,str);
      end;
      
      close(f_in);
      close(f_out);
    end.
2
14 / 14 / 11
Регистрация: 02.10.2013
Сообщений: 57
11.10.2013, 17:16  [ТС] 4
У меня есть 1 вопрос, почему в исходном файле точно такие же как и в конечном?
Я пытался делать сам и у меня не получалось сделать так что бы в другом файле записывалать уже перевёрнутая строка т.е Исходный (123), а в горовом должно быть (321). Подскажите как так сделать?
0
993 / 520 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
11.10.2013, 17:20 5
Не понял вопроса если честно. Код, который я вам написал делает так как нужно.
Что вы сами пытались сделать я не знаю. соответственно не могу сказать, почему у вас не получилось.
0
14 / 14 / 11
Регистрация: 02.10.2013
Сообщений: 57
11.10.2013, 18:15  [ТС] 6
Цитата Сообщение от chizz Посмотреть сообщение
Не понял вопроса если честно. Код, который я вам написал делает так как нужно.
Что вы сами пытались сделать я не знаю. соответственно не могу сказать, почему у вас не получилось.
Цитата Сообщение от nikita19 Посмотреть сообщение
строки были бы записаны в обратном порядке
Мне необходимо сделать так что бы при создании второго файла в нём строки были бы записаны в обратном порядке
0
993 / 520 / 102
Регистрация: 19.03.2013
Сообщений: 3,113
Записей в блоге: 19
11.10.2013, 18:20 7
Они записываются в обратном порядке.
In.txt
1
2
3
4
5

Out

5
4
3
2
1

Если вам надо чтобы в предложении слова были записаны в обратном порядке, то это другая задача.

Добавлено через 15 секунд
Они записываются в обратном порядке.
In.txt
1
2
3
4
5

Out

5
4
3
2
1

Если вам надо чтобы в предложении слова были записаны в обратном порядке, то это другая задача.
1
14 / 14 / 11
Регистрация: 02.10.2013
Сообщений: 57
11.10.2013, 18:33  [ТС] 8
ой извиняюсь, я сам затупил и вводил в одну строку, Спасибо!
1
0 / 0 / 0
Регистрация: 29.05.2018
Сообщений: 1
29.05.2018, 07:10 9
почему у меня не находит сам текст? хотя я создаю его на рабочем столе и в документах.
в паскале выдает ошибку ввода, мол не найден текст
0
5017 / 2605 / 2331
Регистрация: 10.12.2014
Сообщений: 9,922
29.05.2018, 07:37 10
Потому, что TP не умеет работать с длинными именами файлов и каталогов…
Ему нужно только коротки подсовывать формата 8.3
0
0 / 0 / 0
Регистрация: 06.02.2018
Сообщений: 6
21.12.2018, 01:48 11
Спасибо огромное , буду считать вас гуру )
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2018, 01:48
Помогаю со студенческими работами здесь

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

В файл записать данные в обратном порядке используя стек
У меня задача со стеком: К примеру есть документ a.txt, в нем есть запись. надо в b.txt записать...

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

Считать элементы в том порядке в котором были записаны в HashSet
Привет всем. Подскажите можно ли считать элементы в том порядке в котором были записаны в HashSet?...

Изменить программу так, чтобы слова в предложении были записаны в обратном порядке
Добрался я до уроков со строками. Есть пример: class Program { static void...

Функция. Переписать строку s так, чтобы символы в ней были записаны в обратном порядке
поможете:) переписать строку s так, чтобы символы в ней были записаны в обратном порядке: ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru