Задачи по Pascal. Таблица умножения

Задачи по Pascal

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

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий