Question

С помощью процедуры из этого упражнения сделать ряд треугольников вдоль верхнего края графического окна

Answer 1

Ответ:

uses GraphABC;

var n, x, y, a : integer;

procedure pr_treug (x, y, a,

b : integer);

var x_c, y_c:integer;

begin

line(x, y, x + a,y); line(x, y, x, y + b);

line(x + a, y, x, y + b);

x_c:= x + 2; y_c := y + 2; FloodFill(x_c,y_c, clRandom);

end;

begin

SetWindowSize(800, 600); // устанавливаем размер окна

writeln('Введите количество треугольников:'); read(n); writeln (n);

writeln('Введите длину катета:'); read(a); writeln (a);

x := 0; // начальная координата X

y := 0; // начальная координата Y

for var i := 1 to n do

begin

pr_treug(x, y, a, a); // создаем треугольник в текущих координатах

x := x + a + 10; // увеличиваем координату X для следующего треугольника

end;

end.

В этой программе мы устанавливаем размер графического окна, задаем количество и размер треугольников, а затем создаем ряд треугольников вдоль верхнего края окна, увеличивая координату X для каждого следующего треугольника и добавляя небольшой отступ между ними.