Untitled

mail@pastecode.io avatar
unknown
plain_text
2 months ago
1.4 kB
2
Indexable
Never
program DrawNumber;

var
  inputNumber, height, width, i, j, k: integer;

procedure DrawDigit(digit: integer);
var
  digitArray: array[0..9, 0..4] of string =
    (('* * *', '*   *', '*   *', '*   *', '* * *'),  // 0
     ('  *  ', ' **  ', '  *  ', '  *  ', ' ***'),  // 1
     ('* * *', '    *', '* * *', '*    ', '* * *'),  // 2
     ('* * *', '    *', '* * *', '    *', '* * *'),  // 3
     ('*   *', '*   *', '* * *', '    *', '    *'),  // 4
     ('* * *', '*    ', '* * *', '    *', '* * *'),  // 5
     ('* * *', '*    ', '* * *', '*   *', '* * *'),  // 6
     ('* * *', '    *', '   * ', '   * ', '   * '),  // 7
     ('* * *', '*   *', '* * *', '*   *', '* * *'),  // 8
     ('* * *', '*   *', '* * *', '    *', '* * *')); // 9

var
  row: integer;
begin
  for row := 0 to 4 do
  begin
    for k := 1 to width do
    begin
      for j := 1 to length(IntToStr(inputNumber)) do
      begin
        write(digitArray[StrToInt(IntToStr(inputNumber)[j]), row]);
        if j <> length(IntToStr(inputNumber)) then
          write(' ' : length('* * *'));
      end;
      writeln;
    end;
  end;
end;

begin
  // Ввод числа
  write('Введите цифру: ');
  readln(inputNumber);

  // Ввод высоты
  write('Введите высоту: ');
  readln(height);

  // Ввод ширины
  write('Введите ширину: ');
  readln(width);

  // Отображение числа
  DrawDigit(inputNumber);
end.
Leave a Comment