Вывести таблицу умножения
Требуется вывести на экран двумерную таблицу умножения.
Решение
Нередко ставится задача построить на экране какую-нибудь двумерную таблицу. Подобное реализуется с помощью двух циклов. При этом один цикл должен быть вложен в другой.
Например, в коде ниже внешний цикл for отвечает за формирование строк. Всего их будет 9, значит количество повторений цикла должно быть равно 9.
Внутренний цикл for формирует каждое значение в строке. Всего значений в строке 9. Значит и число его повторений должно быть 9.
В теле вложенного цикла for происходит формирование значения очередного элемента таблицы путем умножения текущего значения счетчика внешнего цикла на текущее значение счетчика внутреннего цикла. Поскольку на протяжении десяти повторений внутреннего цикла, значение счетчика внешнего цикла не меняется, то получается строка, где числа от 1 до 9 умножаются на одно и то же число.
После выхода из внутреннего цикла, перед следующей итерацией внешнего цикла требуется осуществить переход на новую строку. Иначе все значения будут записаны не в виде таблицы, а в виде одной строки.
Результат выполнения программы:
Вариант программы построения таблицы с подсветкой заголовков строк и столбцов. Размерность таблицы задается с клавиатуры:
Вывести на экран таблицу умножения
Вывести на экран таблицу умножения (от 1 до 9).
Перебрать во внешнем цикле числа от 1 до 9. Для каждого из них перебрать во внутреннем цикле числа от 1 до 9. Во внутреннем цикле выполнять умножение переменных-счетчиков внешнего и внутреннего циклов. Таким образом на одну итерацию внешнего цикла произойдет девять итераций внутреннего, и сформируется одна строка таблицы умножения. После каждой строки надо перейти на новую. Это делается во внешнем цикле, после того как закончится выполняться внутренний.
Для построения таблицы необходимо использовать форматированный вывод, т.е. задавать ширину столбцов, иначе произойдет сдвиг, т.к. количество цифр в каждой строке различно.
таблица умножения pascal abc Написать полную таблицу умножения в столбик. Чтобы она выводилась в блокнот. Pascal abc
Легко!
Jurii Высший разум (173458) Держи! 
var
res: integer;
begin
write(‘ ‘);
for var a := 2 to 9 do
begin
if a = 9 then
writeln(a:3)
else
write(a:3);
end;
for var a := 2 to 9 do
begin
for var b := 2 to 9 do
begin
if b = 2 then write(a:3);
res := a * b;
if b = 9 then
writeln(res:3)
else
write(res:3);
end;
end;
readln;
end.
uses crt;
var n,i:integer;
begin
readln(n);
for i:=1 to 10 do writeln(n,’*’,i,’=’,i*n);
end.