Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Кирилл Пушкарев
12 / 12 / 12
Регистрация: 13.11.2013
Сообщений: 24
1

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

16.04.2014, 06:13. Просмотров 818. Ответов 4
Метки нет (Все метки)

Напечатать в обратном порядке заданный в файле текст(текст заканчивается точкой).Использовать рекурсивную процедуру.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2014, 06:13
Ответы с готовыми решениями:

Строковый тип данных: Напечатать заданный текст в обратном порядке, удваивая при этом все буквы "е".
Напечатать заданный текст в обратном порядке, удваивая при этом все буквы "е".

Напечатать убывающие серии последовательных целых чисел в обратном порядке (используя стек)
Напечатать убывающие серии последовательных целых чисел в обратном порядке...

напечатать в обратном порядке заданный во входном файле текст (за текстом следует точка ).
напечатать в обратном порядке заданный во входном файле текст (за текстом...

Заданный во входном файле текст (за ним следует точка) распечатать в обратном порядке
2.Заданный во входном файле текст (за ним следует точка) распечатать в обратном...

Динамические структуры. Заданный во входном файле текст(за ним следует точка) распечатать в обратном порядке
Тема: Динамические структуры. Заданный во входном файле текст (за ним следует...

4
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
16.04.2014, 12:13 2
Pascal
1
2
3
4
5
6
7
8
9
10
...
Procedure Revers(S : String);
Begin
  If Length(S)>0 then
  Begin
    Write(S[Length(S)]);
    Revers(Copy(S,1,Length(S)-1));
  end else Writeln;
end;
...
3
JzDoIt
0 / 0 / 0
Регистрация: 18.11.2016
Сообщений: 3
21.11.2016, 18:06 3
можете поподробнее объяснить как работает эта процедура? в свой код подставил все работает, но как именно этот кусок выполняется не могу понять
0
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
21.11.2016, 20:37 4
JzDoIt, чтобы понять как это работает достаточно запустить выполнение в пошаговом режим с контролем значений переменных. Это достаточно хорошо поможет пониманию.
0
Puporev
Модератор
54575 / 42085 / 29057
Регистрация: 18.05.2008
Сообщений: 99,244
21.11.2016, 21:08 5
Если в файле не 1 строка.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var f:text;
procedure recc;
var  c:char;
begin
read(f,c);
if c<>'.'then
 begin
  Recc;
  if c<>#13 then write(c)
 end
else  writeln('Содержание файла в обратном порядке: ');
end;
begin
assign(f,'1.txt');
reset(f);
recc;
close(f);
end.
1
21.11.2016, 21:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 21:08

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

Дана строка текста, оканчивающаяся точкой. Напечатать этот текст в обратном порядке
Дана строка текста, оканчивающаяся точкой. Напечатать этот текст в обратном...

Напечатать в обратном порядке латинские буквы, входящие в текст, заменяя маленькие латинские буквы большими
Дан текст — последовательность символов, возможно, пустая, за которой следует...


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

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

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