Войти
Регистрация
Спроси ai-bota
viamell
28.01.2020 17:41
Написать программу на pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "сергей" и проверить работо на компьютере( то есть проверить будет ли работать программа)
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Мирималистка
10.12.2022 09:27
Что получим в результате выполнения следующего фрагмента: s: =0; k: =2; repeat s: =s+k; k: =k+1; until k 5; writeln(s);...
dimaonisko
21.01.2022 08:36
Дана последовательность чисел, вводимых с клавиатуры и оканчивающаяся нулем. составьте программу вычисления: a. суммы всех чисел последовательности; b. среднего арифметического...
Yoshimura
09.12.2020 08:01
с информатикой дайте точный ответ. Дано: :=1 65 При первом выполнении тела цикла =. * Дано: :=1 65 При последнем выполнении тела цикла =. * Сколько раз будет выполнен...
битика
16.09.2021 14:26
Можно ли тренироватся в Страстную Пятницу?...
josen337
12.03.2020 06:52
Заполните массив 20 числами от -30 до 10. Найдите индекс и значение первого положительного элемента массива. Вывести на экран массив, а затем индекс и значение первого...
Еденорожка666
22.07.2021 07:11
Определите вид отношения. Лещ - это рыба. 1. Бинарное 2. Тринарное ?...
NastjaKucera13
28.02.2021 20:00
1 задание У исполнителя Омега две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них,...
sbelikova44
11.11.2020 06:29
Написать программу, которая вычисляет число x6 с трех операций умноженияПодсказка: Вычислить рациональным т.е. за минимальное количество операций: y = x6 (y = (x3 )...
Gamonga
26.09.2022 14:53
Что будет выведено на экран после выполнения фрагмента программы? begin a:=3; if a=3 then a:=5 else a:=1; writeln (a); end....
terminator27
18.07.2022 02:43
3. Запишите логические выражения, соответствующие следующим высказываниям: А) Ботаника изучает растения и ботаника изучает животных; Б) В состав атома входят электроны...
Ответ:
Me2mini
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-бота