Untitled

 avatar
unknown
plain_text
a year ago
1.3 kB
1
Indexable
program DrawNumber;

var
  digit, width, height: integer;

procedure DrawDigitOne(height, width: integer);
var
  i, j: integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to width do
    begin
      if (j = (width + 1) div 2) or (i = height) then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
end;

procedure DrawDigitTwo(height, width: integer);
var
  i, j: integer;
begin
  for i := 1 to height do
  begin
    for j := 1 to width do
    begin
      if (j = 1) or (j = width) or ((i = 1) and (j <= width div 2)) or
        ((i = height) and (j >= width div 2 + 1)) or
        (i = (height + 1) div 2) then
        write('*')
      else
        write(' ');
    end;
    writeln;
  end;
end;

// Добавьте аналогичные процедуры для других цифр

begin
  writeln('Введите желаемую цифру (от 1 до 9): ');
  readln(digit);

  writeln('Введите ширину: ');
  readln(width);

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

  case digit of
    1: DrawDigitOne(height, width);
    2: DrawDigitTwo(height, width);
    // Добавьте аналогичные case для других цифр
  else
    writeln('Неверный ввод. Введите число от 1 до 9.');
  end;
end.
Leave a Comment