матрицы в виде таблицы

[изо]

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

[GetMax]

Помогите создать текст программы на TURBO PASKAL

Ты начинай, а мы поможем если что непонятно будет.

элементы строк и столбцов переменные, то есть их можно получать по изначально заданным формулам.

И что же это за формулы? Где их можно увидеть?

[изо]

Сообщение от GetMax

Ты начинай, а мы поможем если что непонятно будет.

И что же это за формулы? Где их можно увидеть?

Спасибо за то, что откликнулись!
Изначально стоит такая задача: Есть два ряда i = 0,1,2,3,4.... и j=0,1,2,3,4...последовательности чисел. Один ряд является элементами горизонтальной верхушки таблицы, а второй левой боковой частью той же таблицы. Сама таблица содержит числа, являющиеся произведением i-того числа и j-числа и находятся на перекрестье i-того столбца и j-той строчки, соответственно.
Основная задача состоит в том, что вместо рядов i и j располагать другие ряды чисел, например x(i) = 2*i+1, y(j)=2*j+1 или x(i) = (2*i+1)/9, y(j)=(2*j+1)/9 и другие ряды чисел полученных с помощью любых других формул. Сама таблица должна содержать произведение уже этих чисел

[phomm]

Вот, но без обвязки, и не в лоб, а с функциями, полагаю, именно так сказал преподаватель.
Интересует полное решение без возни - см. сюда http://programmersforum.ru/showthread.php?t=142216 тему целиком и пост №7.

функции от аргументов выбрал первые, заменить труда не должно составить

function x(num : integer): integer;
begin
x := 2*num+1;
end;

function y(num : integer): integer;
begin
y := 2*num+1;
end;

вызов
for i := 0 to 4
  do for j := 0 to 4
    do a[j,i] := x(i)*y(j);

[изо]

Почему не работает (не рапечатывает) созданнная программа
USES Crt;
Var
a:array[1..25,1..20] of integer;
i,j: byte;
function x(num : integer): integer;
begin
x := 2*num+1;
end;
function y(num : integer): integer;
begin
y := 2*num+1;
end;
begin
for i := 0 to 20
do for j := 0 to 25
do a[j,i] := x(i)*y(j);
Write(a[j,i]:4);
end.

[phomm]

write(a[j,i]); надо поставить в цикл :

begin
for i := 0 to 20
do for j := 0 to 25
do begin
a[j,i] := x(i)*y(j);
Write(a[j,i]:4);
end;
end.

в конце надо поставить readln;
а то, наверное, просто не видно как "моргает" окно.

а так вроде всё правильно (собственно, особо ведь ничего не добавлено)

[GetMax]

Почему не работает (не рапечатывает) созданнная программа

Допиши после вывода матрицы Readln. Это приостановит выполнение программы до нажатия клавиши Enter и ты увидишь свою матрицу.
К тому же у тебя ошибка при создании матрицы. Исправь на это

begin
for i := 1 to 20 do
Begin
  for j := 1 to 25 do
  Begin
    a[i,j] := x(i)*y(j);
    Write(a[i,j]:4);
  End;
  Writeln
End;
Readln
End.

Ну и убавь число строк и столбцов в матрице. Не очень то наглядной она у тебя получится при таком количестве

[изо]

Уважаемые коллеги!
Я пытаюсь выполнить Ваши рекомендации, но всё равно ничего не получается.
Может быть я немного туповат, но убедительно прошу Вас откорректируйте как надо, пожалуйста данную программу в уже представленном тексте. Вот что у меня лично получилось:
USES Crt;
Var
a:array[1..5,1..10] of integer;
i,j: byte;
x,y:integer;
begin
x := 2*i+1;
y := 2*j+1;
for i := 1 to 5 do
Begin
for j := 1 to 10 do
Begin
a[i,j] := x(i)*y(j);
Write(a[i,j]:4);
End;
Writeln
End;
Readln
End.

[GetMax]

У тебя же были описаны функции х и у. Куда они делась? Верни их на свое место(а именно перед основной программой), а вот это из основной программы убери

x := 2*i+1;
y := 2*j+1;

И будет тебе счастье