Условие задачи : Написать программу которая выведет на экран таблицу умножения (Язык Pascal)
Сложность : легкая .
Решение задачи :
Давайте создадим каркас нашей программы :
const x = 10 ; y = 9 ; var i , j : integer ; begin end.
x и y у нас являются постоянными значениями и они будут отвечать за размер нашей таблицы умножения, i и j будут нужны нам для циклов, т.е. это числа которые мы будем перемножать.
У нас будет два цикла. Для начала давайте просто сделаем цикл по одной строке.
for j:= 1 to x do write((1*j):4);
У нас выведутся числа от 1 до 10. Теперь давайте пустим второй цикл. Вместо единицы уже будем подставлять номер строки:
write('':4); {делаем отступ} for i := 1 to x do write(i:4); {выводим числа от 1 до 10} writeln; {отступ} writeln; {отступ} for i := 1 to y do begin write(i:4); {выводим числа от 1 до 9} for j:= 1 to x do write((i*j):4); writeln; end;
Тут вроде бы нечего трудного, просто цикл в цикле, сначала мы берем первую строку и номер строки умножаем на каждое число в этой строке, т.е. от 1 до 10. Потом мы подставляем следующую строку и так до 9.
Всё решение задачи Pascal :
uses crt; const x = 10 ; y = 9 ; var i , j : integer ; begin clrscr; write('':4); for i := 1 to x do write(i:4); writeln; writeln; for i := 1 to y do begin write(i:4); for j:= 1 to x do write((i*j):4); writeln; end; readln; end.