Question

Подключите графический режим. Задайте параметры шрифта для текста «Как тебя зовут?» и выводимого текста. (создать программу на Паскаль)

Answer 1

Подключаем графический режим строчкой uses GraphABC;. Для строки «Как тебя зовут?» установим стиль шрифта подчёркнутый командой SetFontStyle(fsUnderline);, затем установим наклонный шрифт SetFontStyle(fsItalic);, название шрифта «Comic Sans MS» SetFontName('Comic Sans MS');, размер 15 SetFontSize(15); и розовый цвет SetFontColor(clPink); для строки «Привет, », а для строки с именем установим синий цвет SetFontColor(clBlue);и снова розовый для строчки «. Приятно познакомиться».

uses GraphABC;
var imja: string;
begin
 SetFontStyle(fsUnderline);
 writeln ('Как тебя зовут?');
 readln(imja);
 SetFontStyle(fsItalic);
 SetFontName('Comic Sans MS');
 SetFontSize(15);
 SetFontColor(clPink);
 write ('Привет, ');
 SetFontColor(clBlue);
 write (imja);
 SetFontColor(clPink);
 write ('. Приятно познакомиться.');
end.