Таблица умножения на Паскале

чт, 02/10/2011 - 22:21 — tech

Темы учебника

Циклы в Паскале

Задача:

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

Допустим, нам требуется вывести на экран таблицу умножения.

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

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

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

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

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

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

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

ответить

Пнд, 05/12/2014 - 22:57 — Гость

ОШИБКИ

ПРОГРАММА ПРИ ЗАПУСК Е ПОКАЗЫВАЕТ ОШИБКИ...КАКОВО...

ответить

вс, 11/24/2013 - 11:49 — Гость

program

program multiplication_table;
uses crt;
var i,j,n,k: integer;
begin
writeln('vvedite chislo');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
k:=j*i;
writeln(i, '*', j, '=',k);
end;
writeln;
end;
end.

ответить

Втр, 02/25/2014 - 18:00 — Гость

Тадааам

с украшениями

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

ответить

чт, 01/31/2013 - 19:27 — Гость

Решение

Такое решение будет верным?

var
i,b:integer;
BEGIN
for i:=1 to 10 do
begin
writeln('Таблица умножения числа ', i);
for b:=1 to 10 do
writeln(i*b);
writeln(' ');
end;
END.

ответить

ср, 03/07/2012 - 19:22 — Гость (не проверено)

uses wincrt; var

uses
  wincrt;
var
  x,y:0..10;
  s:integer;
begin
  for x:= 0 to 10 do
    for y:= 0 to 10 do
      begin
        s:=(x+1)*(y+1);
        write(s:5);
      end;
   writeln;
end.

как то так

ответить

сб, 09/01/2012 - 18:26 — Гость