Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
ViT(Vet@l)
29 / 28 / 7
Регистрация: 13.12.2010
Сообщений: 334
1

В тексте все полиндромы выделить красным цветом с увеличеной яркостью

28.02.2011, 16:24. Просмотров 678. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста.
Задача не тяжелая, но не могу понять как выделить в самом тексте.
Напишите код пожалуйста, если не сложно
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2011, 16:24
Ответы с готовыми решениями:

Строка. Выделить все русские слова красным цветом
Помогите с заданием. Нужно в строке выделить все русские слова красным цветом.

Найти наибольший элемент, лежащий на главной диагонали. Главную диагональ выделить красным цветом
Дана целочисленная квадратная матрица А порядка N (N - заданное натуральное число). Найти...

Указать максимальную разность между двумя соседними элементами массива и выделить при выводе эти элементы красным цветом
Задача 3.1. Заполнить одномерный массив из 15 элементов целыми числами. Указать максимальную...

Выделить буквы "р" в последнем слове теста красным цветом
Задано текст. Выделить буквы "р" в последнем слове теста красным цветом. -Использовать модули...

Все числа, кратные 5, в массиве a[1.4;1.8] с числами в диапазоне 0.100 выделить цветом
Все числа, кратные 5 в массиве a с числами в диапазоне 0..100 выделить цветом. В каком столбце их...

2
Puporev
Модератор
55045 / 42318 / 29224
Регистрация: 18.05.2008
Сообщений: 100,003
28.02.2011, 17:12 2
Лучший ответ Сообщение было отмечено ViT(Vet@l) как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses crt;
const rz=['_',':',';',',',' ','.','?','!'];//разделители
var s,s1,s2:string;//строки
    a:array[byte] of byte;//битовый массив
    i,j,k,n:byte;
begin
clrscr;
writeln('Введите текст');
readln(s);
n:=length(s);
i:=1;
while i<=length(s) do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  s2:='';
  for j:=length(s1) downto 1 do
  s2:=s2+s1[j];
  if s1=s2 then {если палиндром пишем в битовый массив единицы}
  for j:=i to i+length(s1)-1 do
  a[j]:=1
  else//иначе пишем ноли
  for j:=i to i+length(s1)-1 do
  a[j]:=0;
  i:=i+length(s1);{перепрыгиваем}
 end
else//если разделители, пропускаем, пишем ноли
 begin
  i:=i+1;
  a[i]:=0;
 end;
for i:=1 to n do
 begin
  if a[i]=1 then
   begin
    textattr:=red;//палиндромы ярко-красным, можно просто textcolor(12);
    highvideo;
   end
  else textcolor(15);
  write(s[i]);
 end;
readln
end.
1
ViT(Vet@l)
29 / 28 / 7
Регистрация: 13.12.2010
Сообщений: 334
28.02.2011, 17:25  [ТС] 3
Спасибо!
Приезжайте в Закарпатье, с меня "Закарпатский коньяк"

Добавлено через 19 секунд
Особо порадовали комментарии
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 17:25

Выделить нужный текст другим цветом цветом
как выделить a,a, a другим цветом

Переставить в обратном порядке все четные по значениям элементы массива и выделить их при выводе зеленым цветом
Заполнить одномерный массив из N элементов целыми числами. Переставить в обратном порядке все...

Выделить на экране зеленым цветом все элементы матрицы А, которые больше максимального элемента матрицы В
доброго времени суток, очень нужна помощь в написании данной программы: Программа заполняет...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru