16.12.2010, 03:57 | #1 (permalink) |
Новичок
Регистрация: 16.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста с задачей
Нужно составить программу, выводящую строку "первое слово лесенкой", а остальные в строку...Например, Фамилия под углом лесенкой, имя отчество в строку...В программе должен быть обеспечен ввод строки и вывод на экран результатов. По окончании каждого расчета и просмотра результатов предусмотреть очистку экрана,возобновление расчетов с другой строкой("бесконечный цикл") или выход из программы. Вот такая задача...Очень прошу помочь решить...ну или может вы знаете, где решались похожие задачи...что бы хотя бы посмотреть...а то уже давно весь паскаль из головы вылетел |
16.12.2010, 03:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные темы являются схожими с вашей темой Помогите пожалуйста с задачей по C++ Помогите с задачей на php-код Помогите с задачей на С++ очень срочно нужно...пожалуйста Помогите с задачей. Ряд Тейлора. |
16.12.2010, 04:43 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Для решения нужно использовать расширенный набор строковых функций из библиотеки crt.
Если никто не напишет - будет вам листинг.
__________________
Убить всех человеков! |
16.12.2010, 09:50 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses CRT; VAR S:String; i:Byte; j:Integer; BEGIN Repeat ClrScr; WriteLn('Enter the string:'); ReadLn(S); If S<>'' then begin i:=1; repeat for j:=1 to (i-1) do Write(' '); WriteLn(S[i]); Inc(i); until S[i]=' '; repeat Inc(i); until S[i]<>' '; for j:=1 to i do Write(' '); for j:=i to Length(S) do Write(S[j]); WriteLn; ReadLn; end; Until S=''; END. |
|
27.12.2010, 02:13 | #4 (permalink) |
Новичок
Регистрация: 16.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо)))
Но почему-то у меня программа выводит просто слово в столбик а потом повторяет его Я например пишу Иванов Иван Иванович и программа мне выводит Иванов в столбик а потом повторяет... А как сделать что бы Иванов было диагонально т.е лесницей каждая буква как по ступеням а потом писалось два остальных слова в строчку?? Заранее спасибо))) |
27.12.2010, 09:43 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Даже и не знаю, чем помочь - тут явные "задвиги" транслятора. P.S. Впрочем, подозреваю, что дело тут не в трансляторе, а в том, что Вы пытаетесь смотреть результат каким-то вьюером, который попросту автоматически срубает пробелы в начале строки. А вот насчет того, что "повторяет" - тут совсем идей нет. На всякий случай - поясню алгоритм работы программы. 1. Вводится строка. Если она пустая - программа прерывается, если нет - едет дальше. 2. Символы строки, расположенные до первого пробела, выводятся так: а) каждый - в своей строке; б) перед выводом очередного символа на экран выводятся пробелы в количестве (номер символа)-1. 3. Символы строки, стоящие после первого пробела, выводятся в одну строку подряд, начиная с позиции конца "лесенки" плюс 1. Вот, собственно, и всё. Примитивно - даже и ошибкам-то взяться неоткуда! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.12.2010, 22:36 | #6 (permalink) |
Новичок
Регистрация: 16.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ясно..Попробую еще раз...может действительно что-то с программой...Еще раз спасибо))))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
задача, паскаль |
|
|