Таблица Пифагора Pascal(Паскаль)

Таблица Пифагора — одна из форм представления таблицы умножения.

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

program PythagorasTable;
var
  col, row, i: integer;
begin
  writeln('Таблица Пифагора');
  writeln;
  for row := 1 to 9 do
    begin
      for col := 1 to 9 do
        begin
          if col = 1 then                {для первого столбца таблицы}
            if row = 1 then
              write('х':3, '│')          {выводим разметку в виде линии}
            else
              write(row:3, '│')
          else
            write((col*row):4);          {результат умножения}
        end;
      writeln;
      if row = 1 then                    {для первой строки горизонтальная линия}
        begin
          write('─┼':4);
          for i := 1 to 32 do
            write('─');
          writeln;
        end;
    end;
  readln;
end.

Leave a Comment