|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.10.2012, 21:34 | #1 |
Пользователь
Регистрация: 13.09.2012
Сообщений: 25
|
рекурсивная программа вывода алфавита
Написать рекурсивную программу вывода алфавита следующим образом:
ABCDE...VWXYZ BCDE...VWXY CDE...VWX ... CDE...VWX BCDE...VWXY ABCDE...VWXYZ В самом среднем ряду должно выводиться N букв (0<N<=26, определяется случайным образом). У меня получилось лишь выведение 1 строчки: program z3; var n:integer;p:byte; i: char; procedure rec(n: integer;p:byte); var i: char; begin for i:='A' to 'Z' do writeln(' '); for i:='A' to 'Z' do write(i); writeln; if (N<26) then begin rec(n+1,p-1); for i:='A' to 'Z' do writeln(' '); for i:='A' to 'Z' do write(i); end; end; BEGIN REC(n,p); END. |
11.10.2012, 21:51 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определите сколько слов заданного текста составлено из букв русского алфавита, а сколько из букв латинского алфавита. Слова, в кот | potemos | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 18.04.2012 13:14 |
Программа, которая выводит на экран прописные буквы латинского алфавита (assembler) | Kallycta | Помощь студентам | 2 | 20.02.2012 21:56 |
Массив МхN содержит буквы русского алфавита, расположенные хаотично. Нужна программа проверки, можно ли составить слово S (Delphi) | Галенька | Помощь студентам | 3 | 20.01.2012 10:18 |
Рекурсивная программа для вычисления функции | Чайник.ру | Помощь студентам | 1 | 08.06.2011 15:21 |
Рекурсивная программа в Dephi:множество кантора | Katya_Pesec | Помощь студентам | 0 | 12.06.2010 21:11 |