Условие задачи : Написать программу которая выведет на экран таблицу умножения (Язык 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.
