1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Написал программу, но мне надо чтобы буква "а" выделялась красным лишь в последнем слове...Подскажите что можно сделать.
Program textus; Uses CRT; const z = ['a']; Var text, s1 : string; i: byte; BEGIN Write ('Введите текст: '); Readln (text); For i:=1 To length(text) Do If text[i] In z Then begin highvideo; TextColor(4); write(text[i]); end else begin TextColor(7); write(text[i]); end; Readkey; END.
Сначала пройти по тексту от конца к началу, и найти (и запомнить) позицию последнего разделителя (что там ты считаешь словом? Чем слова разделяются? Только пробелами? Значит, пробела), а уж потом - идти от начала, и "если буква - та, что нужна И позиция больше, чем позиция последнего разделителя", то выделять красным.
p := 0; i := length(text); repeat { если буква - разделитель (я проверяю только на пробелы, надо - добавь другие символы), то запомнить, где она находится } if text[i] in [' '] then p := i else dec(i); until (p > 0) or (i = 0); { Из этого цикла только 2 выхода: если дошли до начала строки и i = 0, или если нашли последний разделитель, и p <> 0 }
{ Сначала печатаем все, что было перед последним словом } for i := 1 to p do write(text[i]);
{ а теперь - в последнем слове проверяем наличие нужного символа } for i := p + 1 to length(text) do begin if text[i] in z then begin highvideo; textcolor(red); end else begin normvideo; textcolor(lightgray); end; write(text[i]); end;
В конце программы не забудь установить серый цвет для вывода... Это правило хорошего тона...