0

упражняюсь в простых примерах на паскале, есть рабочий код, который отрисовывает алмаз. Высоту задаёт пользователь:

program diamontest;

procedure PrintSpaces (count : integer);
var i : integer;
begin
   for i := 1 to count do
      write(' ')
end;

procedure PrintStars (count : integer);
var i : integer;
begin
   for i := 1 to count do
      write('*')
end;

procedure PrintLineOfDiamonds (k, n : integer);
begin
   PrintStars(n + 2 - k);
   write(' ');
   if (k > 1) then
   begin
      PrintSpaces(2*k -2);
   end;
   PrintStars(n + 2 - k);
   writeln
end;

var n, k, h : integer;
begin
   repeat
      write('Enter the diamond''s height (positive odd): ');
      readln(h)
   until (h > 0) and (h mod 2 = 1);
   n:= h div 2;
   PrintStars(h + 2);
   writeln;
   for k:= 1 to n + 1 do
      PrintLineOfDiamonds(k, n);
   for k := n downto 1 do
      PrintLineOfDiamonds(k, n);
   PrintStars(h+2);
end.

Вывод:

  *
 * *
*   *
 * *
  *

Подскажите, как сделать так, чтобы результат мог выдавать несколько рисунков через пробел, чтобы количество тоже можно было задать? Не пойму как дальше отрисовать.

  *     *     *
 * *   * *   * *
*   * *   * *   *
 * *   * *   * *
  *     *     *
1
  • 1
    Дойти до управления положением каретки и использовать этот механизм для точечного вывода видится мне самым правильным решением, но вам придется выкинуть тот код что у вас есть :) 7 сен 2022 в 10:39

1 ответ 1

1

Весь код:

procedure Diamonds(size, num: Integer);
var
  line, i, h, t: Integer;
begin
  h := size div 2;
  for line := 1 to size do begin
    for i := 1 to num do begin
       if (line = 1) or (line = size) then
         Write(StringOfChar(' ', h) + '*' + StringOfChar(' ', h))
       else begin
         t := abs(h + 1 - line);
         Write(StringOfChar(' ', t) + '*' +StringOfChar(' ', size-2-2*t)+ '*' +StringOfChar(' ', t));
       end;
    end;
    Writeln;
  end;
end;

begin
  Diamonds(7,3);
  Readln;

   *      *      *
  * *    * *    * *
 *   *  *   *  *   *
*     **     **     *
 *   *  *   *  *   *
  * *    * *    * *
   *      *      *
2
  • Отличное решение. Спасибо большое. Это красиво. Но у меня башка перегревается, когда пытаюсь понять как это работает
    – Илья
    8 сен 2022 в 11:37
  • Ну мне кажется , что не очень сложно. Н половина размера, на этой позиции рисуется одна звёздочка вверху и внизу. Далее позиция и размер строки пробелов уменьшается шаг за шагом. Строка пробелов одинаковая справа и слева, так что среднюю пустую строку рассчитываем как разность размера, двух звёзд, двух крайних пробельных строк
    – MBo
    8 сен 2022 в 12:03

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.