Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 1
1

Написать программу, которая меняет порядок следования строк файла на обратный, используя стек (Delphi)

09.01.2017, 11:54. Показов 1027. Ответов 2

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

Составить программу, которая меняет порядок следования элементов на обратный
Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок...

Составить программу, которая меняет порядок следования элементов в массиве на обратный для линейных таблиц Х[12] и Y[10]
Составить программу, которая меняет порядок следования элементов в массиве на обратный для линейных...

Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок следования элементов на обратный
Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок...

Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок следования элементов на обратный.
Дан одномерный массив А, состоящий из N целых чисел. Составить программу, которая меняет порядок...

2
Житель Земли
2965 / 2933 / 389
Регистрация: 26.07.2011
Сообщений: 11,279
Записей в блоге: 1
09.01.2017, 15:33 2
стек - TStringList
читаешь в него файл построчно, затем сохраняешь, начиная с последней строки до первой
0
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
09.01.2017, 16:14 3
Лучший ответ Сообщение было отмечено Dmitry3213 как решение

Решение

тип стек
Delphi
1
2
3
4
5
  TStack = ^PStack;
  PStack = record
    Data : integer;
    Child : TStack;
  end;
операции со стеком
Delphi
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
function empty(st : TStack) : Boolean;
begin
  empty := st = nil;
end;
 
procedure Push(var tSt : TStack; Value : Integer);
var
  tmp : TStack;
begin
  New(tmp);
  tmp^.Data := Value;
  tmp^.Child := tSt;
  tSt := tmp;
end;
 
function Pop(var tSt : TStack; var aData : integer) :  Boolean;
var
  tmp : TStack;
begin
  Pop := false;                             
  if empty(tSt) then Exit;
  tmp := tSt;
  tSt := tmp^.Child;
  aData := tmp^.Data;
  Dispose(tmp);
  Pop := True;
end;
вывод данных из стека в грид
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure Vivod(const tST : TStack; sg : TStringGrid);
var
  tmp : TStack;
  i : Integer;
begin
  if empty(tST) then Exit;
  i := 0;
  tmp := Tst;
  While tmp <> nil do
  begin
    sg.Cells[0, i] := IntToStr(tmp^.Data);
    inc(i);
    tmp := tmp^.Child;
  end;
end;
остальное доделать - думаю разберетесь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2017, 16:14

Функция, которая меняет порядок на обратный, не используя reverse
Проясните некоторые детали этой непростой функции(функция - полностью рабочая), пожалуйста: ...

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

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

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


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

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

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