Question

Напишите на Pascal plz

Answer 1

Ответ:

Я сделал так:

Program TextAndStars;

Uses Crt, Graph;

Var

graphicsDriver, graphicsMode, i : Integer;

TextToDisplay: String;

StarX, StarY: Integer;

// Процедура для рисования звезды по заданным координатам

Procedure DrawStar(X, Y: Integer);

Begin

Line(X, Y - 10, X, Y + 10); // Вертикальная линия

Line(X - 10, Y, X + 10, Y); // Горизонтальная линия

Line(X - 7, Y - 7, X + 7, Y + 7); // Диагональ слева-направо

Line(X - 7, Y + 7, X + 7, Y - 7); // Диагональ справа-налево

End;

Begin

// Запрос текста у пользователя

Write('Введите текст для отображения в рамке: ');

Readln(TextToDisplay);

graphicsDriver := Detect;

InitGraph(graphicsDriver, graphicsMode, '');

SetFillStyle(SolidFill, White);

Bar(0, 0, GetMaxX, GetMaxY); // Заполняем окно выбранным цветом

Randomize;

SetColor(Black);

rectangle(10, 10, 200, 200);

// Вычисление координат центра рамки

StarX := (10 + 200) div 2;

StarY := ((10 + 200) div 2)+10;

// Отображение текста в рамке

SetColor(Red);

OutTextXY(95, 95, TextToDisplay);

// Отображение звезды в центре рамки

SetColor(Blue);

DrawStar(StarX, StarY);

DrawStar(StarX+10, StarY);

DrawStar(StarX-10, StarY);

DrawStar(StarX, StarY-30);

DrawStar(StarX+10, StarY-30);

DrawStar(StarX-10, StarY-30);

DrawStar(StarX+20, StarY-10);

DrawStar(StarX-20, StarY-10);

Readln;

CloseGraph;

End.