Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Евгешаточкару2006
01.12.2022 13:43 •
Информатика
Написать программу на pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "сергей" и проверить работо на компьютере( то есть проверить будет ли работать программа)
Ответ:
Skripp
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 оценок)
Популярные вопросы: Информатика
Trololo2289878
07.07.2022 10:46
Даны два различных вещественных числа. Определить: а) какое из них больше; б) какое из них меньше. python...
Goodsteve31
02.01.2020 14:53
Составьте программу которая формирует массив из 7 случайных чисел из промежутка [5; 10] и вычисляет их сумму...
teymurvalikhan1
20.08.2022 05:21
Информатика Определите виды информации...
qwwwq0
01.11.2021 02:12
Ақпарат ұсынатын нысан қалай аталады...
yasmina2534
11.05.2021 07:57
Написать программу, которая находит сумму четных чисел до ввода цифры 0....
катя5092
01.01.2022 13:23
Ввести на экран дисплея 3 числа введённых с клавиатуры возрастающем порядке...
prohorowanyura
24.02.2020 01:13
Скажите если наклеить защитное стекло на уже треснувший экран трещина будет расползаться?...
Alinka24092006
13.09.2022 13:25
Автомобиль шёл 2 ч со скоростью 56 км/ ч и 3 ч со скоростью на 9 км/ч меньше первоначальной.найди расстояние пройденное автомобилей...
nastic2k2
13.09.2022 13:25
Площадь основания прямо угольной призмы 18 квадратных см, а высота 8 см. найди объём призмы. какая формула использована в этой ?...
Coolboy1213
13.09.2022 13:25
Решить системи уравнений . знайти два числа , сума яких дорівнює 146, а різниця 28....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.