Как написать таблицу умножения в паскале
Перейти к содержимому

Как написать таблицу умножения в паскале

  • автор:

Вывести таблицу умножения

Требуется вывести на экран двумерную таблицу умножения.

Нередко ставится задача построить на экране какую-нибудь двумерную таблицу. Подобное реализуется с помощью двух циклов. При этом один цикл должен быть вложен в другой.

Например, в коде ниже внешний цикл for отвечает за формирование строк. Всего их будет 9, значит количество повторений цикла должно быть равно 9.

Внутренний цикл for формирует каждое значение в строке. Всего значений в строке 9. Значит и число его повторений должно быть 9.

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

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

var i, j: integer; begin for i := 1 to 9 do begin for j := 1 to 9 do write((i * j):3); writeln; end; end.

Результат выполнения программы:

 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 16 24 32 40 48 56 64 72 9 18 27 36 45 54 63 72 81

Вариант программы построения таблицы с подсветкой заголовков строк и столбцов. Размерность таблицы задается с клавиатуры:

uses crt; var i, j, n: integer; begin readln(n); for i := 1 to n do begin for j := 1 to n do begin if (i = 1) or (j = 1) then textcolor(lightgreen) else textcolor(white); write((i * j):4); end; writeln; end; end.

Как написать таблицу умножения в паскале

Пользователь

Регистрация: 17.11.2011

Сообщений: 14

Вывести на экран таблицу умножения на 9. pascal

Вывести на экран таблицу умножения на 9.
Пример:
9*1=9
9*2=18

9*9=81

Форумчанин

Регистрация: 22.10.2010

Сообщений: 145

program nineunm; var i,dev : integer ; begin for i:=1 to 9 do begin dev:=i*9; writeln('9*',i,'=',dev); end; end.

До последней точки с запятой в коде.

Последний раз редактировалось Necare; 20.11.2011 в 14:45 .

Форумчанин

Регистрация: 19.03.2009

Сообщений: 784

без переменной dev

var i:integer; begin for i:=1 to 9 do writeln('9*',i,'=',i*9); readln; end.
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести таблицу умножения от 2 до 9. Ромиk Паскаль, Turbo Pascal, PascalABC.NET 14 20.09.2011 11:47
вывести таблицу умножения от 2 до 10 (Паскаль) iliuska Паскаль, Turbo Pascal, PascalABC.NET 7 16.03.2011 11:44
Delphi вывести на экран таблицу значений функции rager06 Помощь студентам 6 11.09.2010 15:51
Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для x изменяющихся. EVIL Помощь студентам 3 22.11.2009 02:37
Delphi. вывести на экран таблицу world12_tk Помощь студентам 2 18.10.2009 17:26

Написать программу в Паскале, выводящую на экран таблицу умножения на 2 (используя цикл с параметром).

begin
clrscr;
for i:=1 to 10 do
writeln(i,’ x 2 = ‘,2*i);
writeln; writeln;
i:=1;
while i begin
writeln(i,’ x 2 = ‘,2*i);
inc(i)
end;
writeln; writeln;
i:=1;
repeat
writeln(i,’ x 2 = ‘,2*i);
inc(i)
until i>10;
readkey
end.

Первый цикл с параметром, второй предусловие, третий постусловие.

P.S. Если запустить эту программу, то на экране увидите работу только второго и первого циклов. Я так полагаю, Вам нужно разбивать эту программу на три. Надеюсь Вы это сможете сделать сами.

Вывести таблицу значений функции

Используя цикл написать программу, которая выводит на экран таблицу значений функции y = 5 — x 2 /2 на отрезке [-5; 5] с шагом 0.5.

Алгоритм решения задачи:

  1. Присвоить переменной x значение начала отрезка.
  2. Пока x не достигнет конца отрезка
    1. вычислять значение y по формуле,
    2. вывести на экран значение x и y ,
    3. увеличить x на заданный шаг.

    Программа на языке Паскаль:

    var x, y: real; begin x := -5; writeln(' x y '); while x 

    Результат выполнения программы:

     x y -5.0 | -7.50 -4.5 | -5.13 -4.0 | -3.00 -3.5 | -1.13 -3.0 | 0.50 -2.5 | 1.88 -2.0 | 3.00 -1.5 | 3.88 -1.0 | 4.50 -0.5 | 4.88 0.0 | 5.00 0.5 | 4.88 1.0 | 4.50 1.5 | 3.88 2.0 | 3.00 2.5 | 1.88 3.0 | 0.50 3.5 | -1.13 4.0 | -3.00 4.5 | -5.13 5.0 | -7.50

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *