Зполните экран зеленым цветом. Введите строку с клавиатуры. Введите строку в центре экрана (Pascsl abc,) помогите

Question

Информатика

Иакинф

8 июня, 02:26

Зполните экран зеленым цветом. Введите строку с клавиатуры. Введите строку в центре экрана (Pascsl abc,) помогите

+3

Ответы (1)

Знаете ответ на вопрос?

Артюня · Answer 1

Uses GraphABC;

const

w=800;

h=600;

var

s:string;

x, y:integer;

begin

SetWindowSize (w, h) ;

ClearWindow (clGreen) ;

Write ('Введите текст') ; Read (s) ;

ClearWindow (clGreen) ;

SetFontSize (24) ;

SetFontColor (clRed) ;

x: = (w-TextWidth (s)) div 2;

y: = (h-TextHeight (s)) div 2;

TextOut (x, y, s) ;

end.