Question

Как нартсовать елку в паскале

Answer 1

Ёлочка с шариками********

Answer 2

Чтобы нарисовать елку на языке Pascal, можно использовать символы ASCII для создания графического представления. Вот пример кода, который рисует елку:

pascalCopy code
program DrawChristmasTree;

uses
  crt;

procedure DrawTree(height: Integer);
var
  i, j: Integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to height - i do
      write(' ');
    for j := 1 to 2 * i - 1 do
      write('*');
    writeln;
  end;

  for i := 1 to 2 do
  begin
    for j := 1 to height - 1 do
      write(' ');
    writeln('*');
  end;
end;

begin
  clrscr;
  DrawTree(5); // Укажите желаемую высоту елки
  readln;
end.

Эта программа определяет процедуру DrawTree, которая принимает параметр height (высоту елки) и рисует елку на основе этого значения. В основной части программы вызывается DrawTree с заданной высотой елки (в данном примере - 5).

После запуска программы вы увидите елку, нарисованную с использованием символов * и пробелов. Вы можете изменить значение параметра height в функции DrawTree, чтобы получить елку нужной высоты.