Написать программу на Pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "Сергей" и проверить работоспособность на компьютере( то есть проверить будет ли работать программа)
Написать программу на Pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "Сергей" и проверить работоспособность на компьютере( то есть проверить будет ли работать программа)
Ответ(ы) на вопрос:
Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:
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 ABC.NET. Пожалуйста, проверьте, работает ли она в вашем Pascal.
Не нашли ответ?
Похожие вопросы