|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2008, 21:38 | #1 |
Регистрация: 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. Однако, вывод происходит в столбец , а не в строку. Можно ли это как то исправить? |
27.12.2008, 22:16 | #2 |
Форумчанин
Регистрация: 16.11.2008
Сообщений: 192
|
Просто измени вот эту строку:
Код:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Хотел узнать. | Nezn | Microsoft Office Excel | 5 | 29.05.2009 15:48 |
Вопрос по поводу сайтов. | Saniller | PHP | 6 | 16.03.2008 12:51 |
Вопрос по поводу StringList(а) | KAMENYKA | Компоненты Delphi | 4 | 07.12.2007 13:01 |
Вопрос по поводу записей (Record) | werser | Помощь студентам | 13 | 05.09.2007 23:11 |
Вопрос по поводу типов | werser | Помощь студентам | 4 | 23.06.2007 14:18 |