Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kuku1337
18.02.2023 16:11 •
Информатика
Написать программу на pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "сергей" и проверить работо на компьютере( то есть проверить будет ли работать программа)
Ответ:
sem212
15.07.2020 12:22
Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:
uses GraphABC;
var x0, y0, x1, y1: integer;
begin
SetWindowSize(400, 400);//устанавливаем размер окна
x0 := WindowWidth;//ширина окна
y0 := WindowHeight;//высота окна
SetFontColor(clRed);//Устанавливаем цвет текста
TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу
x1 := WindowWidth div 2; //половина ширины окна
y1 := WindowHeight div 2;//половина высоты окна
SetFontColor(clBlue);
TextOut(x1, y1, 'Сергей');//Надпись посередине
SetFontColor(clYellow);
TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу
SetFontColor(clPurple);
TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу
SetFontColor(clGreen);
TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.
Программа была написана в проверьте, работает ли она в вашем Pascal.
0,0
(0 оценок)
Популярные вопросы: Информатика
Masha72011
14.12.2021 21:29
16 Яке значення отримає змінна А в результаті виконання послідовності інструкцій присвоєння: B:=5; A:=10; C:=-В; A:=C; О-5 o-10 О-15...
Эliна
10.09.2021 00:35
50 ! 1. создать список из 15 елементов, которые выбираються случайно из интервала(-20,35).найти сумму елементов меньших числа 11, и количество елементов больших 21. 2. создать...
timon7901
04.10.2021 07:23
Python Написать программу, выводящую на консоль все числа от 1 до 1000. Найти сумму всех чисел...
Джерико
30.09.2021 16:33
Создайте базу данных «Мои друзья», используя следующие типы полей: текстовое, числовое, дата / время, логическое...
yuliyamusatova1
09.08.2020 12:04
Людям каких профессий приходится сталкиваться с кодированием и декодирование информации А)секретным агентамБ)учителямВ) депутатамГ...
Dengires
06.02.2022 16:39
Операционная система – это 1)комплекс программ, обеспечивающих совместное функционирование всех устройств компьютера и представляющих пользователю доступ к ресурсам компьютера...
думка3
22.04.2020 16:03
Визуальную информацию несет...
mrPool10
01.10.2022 20:28
Устройство ввода информации...
tkalenko03
09.04.2022 09:13
8 КЛАСС НАДО (ПОСЛЕДНИЕ 4 ПРИМЕРА)...
russianbutcher2
28.04.2023 12:09
Главное правило: Сколько энергии вы расходуете, столько вы и должны получать с пищей. Если получаете с пищей энергии больше, чем расходуете – ожирение. Если меньше, чем...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
uses GraphABC;
var x0, y0, x1, y1: integer;
begin
SetWindowSize(400, 400);//устанавливаем размер окна
x0 := WindowWidth;//ширина окна
y0 := WindowHeight;//высота окна
SetFontColor(clRed);//Устанавливаем цвет текста
TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу
x1 := WindowWidth div 2; //половина ширины окна
y1 := WindowHeight div 2;//половина высоты окна
SetFontColor(clBlue);
TextOut(x1, y1, 'Сергей');//Надпись посередине
SetFontColor(clYellow);
TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу
SetFontColor(clPurple);
TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу
SetFontColor(clGreen);
TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.
Программа была написана в проверьте, работает ли она в вашем Pascal.