Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Кирилл Пушкарев
12 / 12 / 4
Регистрация: 13.11.2013
Сообщений: 24
#1

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

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

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

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

напечатать в обратном порядке заданный во входном файле текст (за текстом следует точка ). - Pascal
напечатать в обратном порядке заданный во входном файле текст (за текстом следует точка ). Помогите плз Добавлено через 3 минуты ...

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

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

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

Дана строка текста, оканчивающаяся точкой. Напечатать этот текст в обратном порядке - Pascal
Дана строка текста, оканчивающаяся точкой. Напечатать этот текст в обратном порядке. Помогите, пожалуйста, решить с помощью рекурсий на...

4
APALoff
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
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
1636 / 1065 / 470
Регистрация: 03.07.2013
Сообщений: 4,506
21.11.2016, 20:37 #4
JzDoIt, чтобы понять как это работает достаточно запустить выполнение в пошаговом режим с контролем значений переменных. Это достаточно хорошо поможет пониманию.
0
Puporev
Модератор
52828 / 40639 / 13887
Регистрация: 18.05.2008
Сообщений: 94,272
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
Привет! Вот еще темы с ответами:

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

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

Напечатать последовательность слов, но в обратном порядке - Pascal ABC
Дана последовательность, содержащая от 1 до 30 слов, в каждой из которых от 1 до 5 строчных латинских букв; между соседними словами –...

Напечатать второе слово предложения в обратном порядке - Pascal ABC
Напечатать второе слово предложения в обратном порядке.


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

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

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