Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 27.12.2008, 21:38   #1
GUnt
 
Регистрация: 27.12.2008
Сообщений: 4
По умолчанию Хотел бы задать вопрос по поводу рекурсивной программы

Дана задача, ее нужно решить через процедуру:Составить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке, используя рекурсивную подпрограмму. Например, для числа 1234 получаем ответ 4321.
Мой код:var n:integer;
procedure reverse (n:integer);
begin
writeln (n mod 10);
if (n div 10) <> 0 then reverse (n div 10);
end;
begin
writeln('vvedite natur tchislo');readln(n);
reverse(n);writeln;readln;
end.

Однако, вывод происходит в столбец , а не в строку. Можно ли это как то исправить?
GUnt вне форума Ответить с цитированием
Старый 27.12.2008, 22:16   #2
pomoshnic
Форумчанин
 
Аватар для pomoshnic
 
Регистрация: 16.11.2008
Сообщений: 192
По умолчанию

Просто измени вот эту строку:
Код:
writeln (n mod 10);
на:
Код:
write (n mod 10);
pomoshnic вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Хотел узнать. Nezn Microsoft Office Excel 5 29.05.2009 14:48
Вопрос по поводу сайтов. Saniller PHP 6 16.03.2008 12:51
Вопрос по поводу StringList(а) KAMENYKA Компоненты Delphi 4 07.12.2007 13:01
Вопрос по поводу записей (Record) werser Помощь студентам 13 05.09.2007 22:11
Вопрос по поводу типов werser Помощь студентам 4 23.06.2007 13:18


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS