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

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

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

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

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

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

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

Заданный во входном файле текст (за ним следует точка) распечатать в обратном порядке
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 / 1
Регистрация: 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
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,314
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
Привет! Вот еще темы с решениями:

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

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

Напечатать число в обратном порядке
3*. Составьте программу, печатающую число в обратном порядке.

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


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

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

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