Question

Нарисуйте елочку из звездочек длины 30 заполненнуя внутри на языке pascal.

Answer 1

===== PascalABC.NET =====

begin

 loop 3 do

 begin

   for var i := 8 downto 1 do

     Println(i * ' ' + (2 * (9 - i) - 1) * '*');

   Println(17 * '*')

 end;

 loop 6 do

   Println(8 * ' ' + '*')

end.

Answer 2

Конечно! Вот пример рисования елочки из звездочек внутри на языке Pascal:

pascalCopy code
program ChristmasTree;
uses crt;

procedure DrawTree(height: integer);
var
  row, space, star: integer;
begin
  // Рисуем каждую строку елочки
  for row := 1 to height do
  begin
    // Рисуем пробелы перед звездочками
    for space := 1 to height - row do
      write(' ');
      
    // Рисуем звездочки
    for star := 1 to (2 * row - 1) do
      write('*');
      
    // Переходим на следующую строку
    writeln;
  end;
end;

begin
  clrscr;
  DrawTree(30);
  readln;
end.

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

Программа использует модуль crt для очистки экрана (clrscr) и ожидания ввода (readln), чтобы окно консоли не закрылось сразу после выполнения программы. Если вы используете другую среду разработки, вам может потребоваться удалить или изменить эти строки.

Помните, что этот пример предназначен для языка Pascal, поэтому вам может потребоваться использовать компилятор Pascal для его выполнения.