tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу на
Написать программу на pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "сергей" и проверить работо на компьютере( то есть проверить будет ли работать программа)
Dima1234567y
1 18.06.2019 23:30
0
Ответы
sergo196
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
chechia
25.03.2019 06:40
Декодируйте тексты с кодовой таблицы кои-8 215 197 203 32 214 201 215 201 44 32 215 197 203 32 213 222 201 211 216 46...
anshul
07.09.2019 06:40
Сообщение занимает 3 страницы по 25 строк. в каждой строке по 60 символ, всё сообщение 1125 байтов....
mawa18
07.09.2019 06:40
Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов. каков информационный объем текста?...
Pro100darik
07.09.2019 06:40
Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 4. программа получает на вход количество чисел в последовательности, а затем...
vladisden
30.05.2019 22:00
Написать программу которая вычисляет сумму n/1 чисел...
Tigor111
12.08.2019 09:40
Написать алгоритмы вычислений выражений и вычислить по ним результат 123+(444+16*16)=...
flymisflymis
12.08.2019 09:40
Последовательно ввести n чисел.найти среднее арифметическое,среднее ,среднее гармоническое...
catnoir227
02.07.2019 19:50
2х значное число, записанное в 3 сс, при перестановке цифр становится числом, выражающим то же количество, но уже в 5 сс. найти число?...
Mawa1993
06.09.2019 16:20
Напишите члены предложения : своя рубашка ближе к телу.2своя воля-царя боле.3свой своему поневоле брат.4за морем веселье,да чужое,ах у нас и горе,да своё...
Nik228tyto4ki
06.09.2019 16:20
1) используя каждую из цифр 4,2,7,3 только один раз запишите все числа которые при округлении до сотен равно число 4300. 2) используя каждую из цифр 1,2,5,6 только один раз запишите...
Популярные вопросы
25 choose the appropriate forms of the verbs to complete the sentences. andy...
1
Надо составить все возможные нулевые многчлены стандартного вида используя каждый...
3
Точка d- середина стороны ac треугольника abc. de и df - биссектрисы треугольников...
2
Твір переказ чому не розуміють?...
2
53 ) викривальний пафос в пісні г.сковороди всякому місту ...
2
Сочинение на тему мой папа, где есть предложение с причастным оборотом...
1
Таблица по .по произведению каританская дочка. события,. поступки,. речь героя.савельичч...
1
Придумайте 3 отрицательных предложений(doesn’t,don’t)со словами i.people here.our...
2
М.н.перова №90. какие гири нужно взять, чтобы взвесить 35 г молотого перца?...
1
Проследите по тексту, как проводил свой день онегин и какие чувства при этом...
3
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.