Вывод цветного текста в графическом режиме

@brainstorm · Регистрация: 25.02.2010

Студворк — интернет-сервис помощи студентам

Помогите написать задачку) Юзаю PascalABC))
Суть: Вводится слово. Вывести гласные буквы слова красным цветом, а звонкие и глухие согласные разными оттенками синего цвета (например можно использовать clDarkBlue и clLightBlue). Посчитать количество согласных букв во введенном слове.

Вот что то недоделанное:

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
Uses GraphABC;
Var     St,g,z,t: string;
    n,i,k,p,y,q: integer;
Begin
    Writeln('введите строку текста - St');
    Readln(St);
    writeln(St);
    n:=length(St);
    g:= 'ЁУЕЭОАЫЯИЮёуеэоаыяию';
    z:= 'БВГДЖЗЙЛМНРбвгджзйлмнр';
    t:= 'ПФКТШСХЦЩпфктшсхцщ';
    SetFontName('Couier New');
    For i:=1 to n do
    begin
        p:=pos(st[i],g);
        if p<>0 then
        begin
            SetFontColor(clRed);
            TextOut(10*i,50,st[i]);
        end
        else
        begin
      y:=pos(st[i],z);
            SetFontColor(clBlue);
            TextOut(10*i,50,st[i]);
            k:=k+1;
        end;
    end;
        SetFontColor(clGreen);
        writeln('количество согласных букв равно  ', k);
End.

С цветами помогите разобраццо плиз...

@Unrealler · 25.02.2010, 20:33

А зачем тебе graph? Это и в CRT можно сделать:
textcolor(натуральное число)

@brainstorm · 25.02.2010, 23:04 **[ТС]**

Нужно именно в Graphe... Help plz....

@][акер · 26.02.2010, 01:13

У меня не PascalABC, у меня Turbo Pascal. Могу сбросить код.

Добавлено через 1 час 14 минут

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
uses graph;
const
  g: set of char = ['У','Е','А','О','Э','Я','И','Ю','Ё'];
  zv: set of char = ['Й','Н','Г','З','В','Р','Л','Д','Ж','М','Б'];
  gl: set of char = ['Ц','К','Х','Ф','П','Ч','С','Т'];
var
  a,b: integer;
  s: string;
begin
  readln(s);
  a := detect;
  InitGraph(a,b,'');
  a := GraphResult;
  if a <> 0 then write(GraphErrorMsg(a))
  else
  begin
    OutTextXY(50,50,'');
    for b := 1 to length(s) do
    begin
      if UpCase(s[b]) in g then begin SetColor(red); OutText(s[b]) end;
      if UpCase(s[b]) in zv then begin SetColor(Blue); OutText(s[b]) end;
      if UpCase(s[b]) in gl then begin SetColor(LightBlue); OutText(s[b]) end
    end;
  end;
  readln;
  CloseGraph
end.

@brainstorm · 27.02.2010, 01:44 **[ТС]**

Хэлп. Немного доделайте мой код кто нибудь который в первом посте... Очень нужно... У меня нету Turbo. Мне нужно только в ABC

@Puporev · 27.02.2010, 08:44

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
Uses GraphABC;
Var     St,g,z,t: string;
        n,i,k,p,y,q: integer;
Begin
        Writeln('введите строку текста - St');
        Readln(St);
        writeln(St);
        n:=length(St);
        g:= 'ЁУЕЭОАЫЯИЮёуеэоаыяию';
        z:= 'БВГДЖЗЙЛМНРбвгджзйлмнр';
        t:= 'ПФКТШСХЦЩпфктшсхцщ';
        SetFontName('Couier New');
        For i:=1 to n do
         begin
          p:=pos(st[i],g);
          if p<>0 then
           begin
            SetFontColor(clRed);
            TextOut(10*i,50,st[i]);
           end;
          y:=pos(st[i],z);
          if y<>0 then
           begin
            SetFontColor(clNavy);
            TextOut(10*i,50,st[i]);
           end;
          q:=pos(st[i],t);
          if q<>0 then
           begin
            SetFontColor(clSkyBlue);
            TextOut(10*i,50,st[i]);
           end;
          k:=k+1;
        end;
     Str(k,t);
     SetFontColor(clGreen);
     TextOut(20,100,'количество согласных букв равно  '+t);
End.

@brainstorm · 27.02.2010, 14:58 **[ТС]**

Спасибо!!! Но он считает все буквы, а мне нужно только согласные!

@Puporev · 27.02.2010, 15:00

brainstorm, Ну так и сделай что считал что нужно, что за претензии.
Вот Ваш вопрос

С цветами помогите разобраццо плиз...

@brainstorm · 27.02.2010, 15:21 **[ТС]**

Ну просто в моем примере работал подсчет согласных. А в Вашем уже нет.

@Puporev · 27.02.2010, 15:30

Вы хоть чуть разбираетесь в своей программе, или вообще не сами писали?
Просто напишете так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For i:=1 to n do
         begin
          p:=pos(st[i],g);
          if p<>0 then
           begin
            SetFontColor(clRed);
            TextOut(10*i,50,st[i]);
           end;
          y:=pos(st[i],z);
          if y<>0 then
           begin
            SetFontColor(clNavy);
            TextOut(10*i,50,st[i]);
            k:=k+1;
           end;
          q:=pos(st[i],t);
          if q<>0 then
           begin
            SetFontColor(clSkyBlue);
            TextOut(10*i,50,st[i]);
            k:=k+1;
           end;
         end;

@Алексей9912 · 15.03.2018, 14:53

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
Uses GraphABC;
Var     St,g,z,t: string;
        n,i,k,p,y,q: integer;
Begin
        Writeln('введите строку текста - St');
        Readln(St);
        writeln(St);
        n:=length(St);
        g:= 'ЁУЕЭОАЫЯИЮёуеэоаыяию';
        z:= 'БВГДЖЗЙЛМНРбвгджзйлмнр';
        t:= 'ПФКТШСХЦЩпфктшсхцщ';
        SetFontName('Couier New');
        For i:=1 to n do
         begin
          p:=pos(st[i],g);
          if p<>0 then
           begin
            SetFontColor(clRed);
            TextOut(10*i,50,st[i]);
           end
           else Inc(k);
          y:=pos(st[i],z);
          if y<>0 then
           begin
            SetFontColor(clNavy);
            TextOut(10*i,50,st[i]);
           end;
          q:=pos(st[i],t);
          if q<>0 then
           begin
            SetFontColor(clSkyBlue);
            TextOut(10*i,50,st[i]);
           end;
           
        end;
     Str(k,t);
     SetFontColor(clGreen);
     TextOut(20,100,'количество согласных букв равно  '+t);
End.

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@Unrealler 654 / 352 / 113 Регистрация: 11.12.2009 Сообщений: 508
	25.02.2010, 20:33
	А зачем тебе graph? Это и в CRT можно сделать: textcolor(натуральное число) 0

@brainstorm 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 6
	25.02.2010, 23:04 [ТС]
	Нужно именно в Graphe... Help plz.... 0

@brainstorm 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 6
	27.02.2010, 01:44 [ТС]
	Хэлп. Немного доделайте мой код кто нибудь который в первом посте... Очень нужно... У меня нету Turbo. Мне нужно только в ABC 0

@brainstorm 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 6
	27.02.2010, 14:58 [ТС]
	Спасибо!!! Но он считает все буквы, а мне нужно только согласные! 0

@brainstorm 0 / 0 / 0 Регистрация: 25.02.2010 Сообщений: 6
	27.02.2010, 15:21 [ТС]
	Ну просто в моем примере работал подсчет согласных. А в Вашем уже нет. 0

Вывод цветного текста в графическом режиме

Решение