Войти
Регистрация
Спроси ai-bota
ZheniaBabich
14.10.2020 20:10
Написать программу на pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "сергей" и проверить работо на компьютере( то есть проверить будет ли работать программа)
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
SonyaPlaystation
03.10.2022 03:51
с информатикой. Произвести расчеты с клиентом за купленный товар с учетом времени оплаты, которая может осуществляться частью в форме предоплаты (в размере не менее...
vovazvyagin
24.07.2020 01:37
Нужно нарисовать схему на этот код в С++ #include #include using namespace std; int main() { setlocale(LC_CTYPE, ); cout n; if (n 2) { cout введено слишком маленькое...
annwolf246
03.11.2022 00:45
При каком наименьшем введенном числе d после выполнения программы будет напечатано 63? var n, s, d: integer; begin readln(d); n : = 3; s : = 57; while s = 1200 do...
1970nata
24.12.2020 10:30
Переведите числа 1110111,2 в двоичную систему счисления...
alexanikulina2
24.12.2020 10:30
Кто знает в паскаль abc можно задать цвет тексту и как?...
OtlicnikKZ1337
24.12.2020 10:30
Как бы вы объяснили с позиций моделирования фразу хотели как лучше, а получилось как всегда?...
MAXXB
24.12.2020 10:30
Сколько памяти в мб нужно для хранения 128-ти цветного растрового изображения размером в 64 на 256 точек?...
Помагатель1998
18.09.2021 23:23
Производится одноканальная (моно) звукозапись с частотой дискретизации 16 кгц и 32-битным разрешением. запись длится 4 минуты, ее результаты записываются в файл,...
alenavol2005
14.08.2021 06:28
Вexcel-е найти длину самого длинного слова в строке....
Logicsmile007
26.10.2022 17:44
Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку C8. =$A5+B$2 =$A$5+$B$2 =$A$5+B$2 =A$5+B$2 =A$5+$B2...
Ответ:
lyalyajan
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота