Как поменять цвет текста в паскале

Как поменять цвет текста в паскале

Нужна помощь,
как мне сделать так чтобы при правильном ответе паскаль менял цвет ответа, тоесть if c=a-b перекрасить вводимое число пользователем (с) в зелёный цвет
else в красный?

program rand; uses crt; var a,b,c,c1:integer; begin textbackground(black); ClrScr; TextColor (white); writeln('Дано выражение:'); while true do begin randomize; TextColor (white); a := random(100)+1; b := random(a)+1; write(a,'-',b,'='); readln(c); if c=a-b; then begin textcolor (green); writeln('Да'); delay(500); end else begin textcolor (red); writeln('Нет'); delay(1000); end;end;end.

Последний раз редактировалось _fynjy_; 13.12.2010 в 22:13 .
Delphi Warrior
Регистрация: 15.08.2008
Сообщений: 2,502
Только с помощью gotoxy ставте курсор на место числа и выводите заного!

Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq — 636-954-303

Hacker19_90

Посмотреть профиль

Найти ещё сообщения от Hacker19_90

Пользователь
Регистрация: 20.11.2010
Сообщений: 50
мы такого не проходили(
Delphi Warrior
Регистрация: 15.08.2008
Сообщений: 2,502

gotoxy( x, y: integer)
Этой функции передаёшь координаты! Координаты в досе начинаются с левого верхнего угла!
Вот смотришь на какой строчке стоит нужная строка = это координата y, потом скок отступ от края =это координата x! Запомни считаются координаты не по пикселям а по символам!
Ну вот нашёл координаты! Теперь меняешь координату курсора, цвет текста, и выводишь текст! Он перерисует старый на новый.

Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq — 636-954-303

Hacker19_90

Посмотреть профиль

Найти ещё сообщения от Hacker19_90

Пользователь
Регистрация: 20.11.2010
Сообщений: 50
Спасибо, поробую сначала на простом примере

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как менять цвет компонента по условию	kenta	Общие вопросы Delphi	1	20.02.2010 20:53
Как с помощью JavaScript изменить цвет фона ячеек в таблице,так что бы можно было выбрать цвет из списка	Gotessa	JavaScript, Ajax	1	09.05.2009 16:05
Можно ли своей функцей менять цвет ячейки в которую эта фу-я вставлена?	maeglah	Microsoft Office Excel	3	21.04.2009 05:23
Image не хочет цвет менять	Roof	Компоненты Delphi	3	04.08.2008 01:33
как менять стили??	oLMeR	Свободное общение	3	10.11.2006 14:27

PASCAL для начинающих

Стили шрифта:
fsNormal – обычный;
fsBold – жирный;
fsItalic – наклонный;
fsBoldItalic – жирный наклонный;
fsUnderline – подчеркнутый;
fsBoldUnderline – жирный подчеркнутый;
fsItalicUnderline – наклонный подчеркнутый;
fsBoldItalicUnderline – жирный наклонный подчеркнутый.

Пример программы, выводящей слово ‘Привет!» в окно, начиная с точки (10,10) с заданным цветом, размером и стилем.

begin
SetFontColor(clRed);
SetFontSize(48);
SetFontStyle(fsBold);
TextOut(10,10,’Привет!’)
end.

Задание 1. Измените положение текста, его размер, цвет и стиль.
Задание 2. Напишите программу, выводящую следующий текст:

Для вывода используйте цикл! Цвет текста задается случайным образом.

2. Дополнительно о шрифте

tw:=TextWidth(s) — возвращает ширину строки s в пикселях при текущих настройках шрифта;
th:=TextHeight(s) — возвращает высоту строки s в пикселях при текущих настройках шрифта.

Пример программы, выводящей текст по центру окна. Обратите внимание на процедуры SetWindowCaption и CenterWindow.
uses GraphABC;
var
s: string;
tw,th: integer;
begin
SetWindowCaption(‘Текст по центру’); //задает заголовок окна
s:=’Width & Height’;
SetWindowSize(700,300);
CenterWindow; // Центрирует графическое окно по центру экрана
SetFontName(‘Times’); SetFontSize(50);
tw:=TextWidth(s); th:=TextHeight(s);
TextOut(WindowWidth div 2 — tw div 2,WindowHeight div 2 — th div 2,s);
end.

Задание 3. Измените программу таким образом, чтобы текст вписывался в верхнюю четверть окна (точно по центру). Возможно надо будет изменить и размер шрифта.
Задание 4. Напишите программу, выводящую 4 строки в центр каждой из четырех четвертей окна (см. картинку).

Цвет текста, Pascal ABC

Перевести код Pascal ABC NET в Pascal ABC
Помогите, плиз Сделал на Pascal ABC NET, но нужно его открыть в обычном Pascal ABC. Не компилит.

Перевод из Pascal ABC.net в Pascal ABC
Помогите, пожалуйста, перевести программу в Pascal ABC с Pascal ABC.net; если не трудно, объясните.

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt.

3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966

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

uses crt; begin textBackground(0); textcolor(1); writeln('12345'); textcolor(2); writeln('12345'); textcolor(3); writeln('12345'); textcolor(4); writeln('12345'); textcolor(5); writeln('12345'); textcolor(6); writeln('12345'); textcolor(7); writeln('12345'); textcolor(8); writeln('12345'); textcolor(9); writeln('12345'); textcolor(10); writeln('12345'); textcolor(11); writeln('12345'); textcolor(12); writeln('12345'); textcolor(13); writeln('12345'); textcolor(14); writeln('12345'); textcolor(15); writeln('12345'); end.

Добавлено через 4 минуты
поправил..

Добавлено через 4 минуты
или можно использовать цветовые константы

Black=0; Blue=1; Green=2; Cyan=3;
Red=4; Magenta=5; Brown=6; LightGray=7;
DarkGray=8; LightBlue=9; LightGreen=10; LightCyan=11;
LightRed=12; LightMagenta=13; Yellow=14; White=15;

Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится текст. Процедура Window задает окно, в котором будет выводиться текст.

program number4; uses crt; begin clrscr; Window (20,5,60,20); Textbackground (14); Textcolor (1); writeln(‘Это сообщение выводится синим цветом на желтом фоне’); readln end.

Строка №2. Подключаем к программе модуль Crt. Мы уже упоминали этот модуль, когда использовали процедуру очистки экрана Clrscr. Помимо этого данный модуль подключается к программе для управления способами вывода на экран. Он позволяет устанавливать курсор в нужную позицию на экране (gotoxy), устанавливать цвет фона (textbackground) и цвет выводимых символов (textcolor) и многое другое. В конце обязательно ставится точка с запятой.

Строка №5. Записываем процедуру Window. Эта процедура определяет, где на экране будет находиться текстовое окно. Window (x1, y1, x2, y2): (x1, y1) — координаты для верхнего левого угла окна. (x2,y2) – координаты для нижнего правого угла окна. Таким образом, запись Window (20,5,60,20) означает, что у нас задается окно. Его координаты: левый верхний угол (20,5) и нижний правый угол (60,20). Ниже дана простая схема.

Самый большой черный прямоугольник – это весь экран. В компиляторе Turbo Pascal ширина экрана равна 80 столбцам и 43 строкам (для Free Pascal — 80 столбцов и 38 строк). Красный прямоугольник внутри – это экран, определяемый процедурой Window (20,5,60,20). Самое главное здесь – запомнить, что координаты отмеряются с верхнего левого угла. Теперь все действия, которые будут производится в программе (например, вывод сообщения на экран) будут производится в этом окне.

В строке №6 записываем процедуру Textbackground, которая устанавливает цвет для фона, на котором будет выводиться текст. После записи слова Textbackground в скобках указывается значение. Мы указали значение 14. Это число соответствует желтому цвету в палитре цветов Паскаля. Ниже находится таблица, в которой указаны все 16 цветов, входящих в палитру цветов Паскаля.

В строке №7 записываем процедуру Textcolor. Эта процедура устанавливает цвет для выводимого на экран текста. После записи Textcolor в скобках записываем значение 1, что соответствует синему цвету.

Строка №8. Выводим на экран сообщение.

Теперь набрем программу в Паскале и запустим ее.

У нас выводится сообщение. Обратите внимание, что оно выводится не в начале экрана, а в начале невидимого экрана, определенного процедурой Window. Кроме того, сообщение выводится, синим цветом, на желтом фоне. Это действие Textbackground и Textcolor.

Дополнение к материалу.

CRT – английская аббревиатура, которая обозначает электронно-лучевую трубку. Таким образом, название модуля Crt подчеркивает, что он умеет управлять способами вывода на экран.