Помогите пожалуйста решить задачку на построение матрице. Суть задачи такова:
Изобразите на экране матрицу А(5,7), где элементы первой строки обозначаются значением 2j+3, элементы второй строки j-3/(2+i/j) . Каждый следующий элемент строки это сумма двух верхних элементов строк. Найдите сколько целых чисел в матрице?
За ранее всем благодарна
Полная версия: Задача на матрицу
Tatjanka
откуда берется j - ясно, это номер элемента в строке. А вот откуда взять i ?
Цитата
j-3/(2+i/j)
откуда берется j - ясно, это номер элемента в строке. А вот откуда взять i ?
volvo
A(5,7) eto zna4it A(i,j) t.e
i-kol-vo stolbtsov,
j-kol-vo strok
A(5,7) eto zna4it A(i,j) t.e
i-kol-vo stolbtsov,
j-kol-vo strok
volvo
А может имеется ввиду, что i-это число строк, а j-число столбцов в матрице!
Тоесть если A(5,7), то i=5, j=7!
А может имеется ввиду, что i-это число строк, а j-число столбцов в матрице!
Тоесть если A(5,7), то i=5, j=7!
:P Jahnerus
нее вроде наоборот
нее вроде наоборот
Tatjanka
Что-то с заданием не в порядке. Скорее всего вот так:
var
a: array[1 .. 5, 1 .. 7] of real;
i, j: integer;
count: integer;
begin
i := 2;
for j := 1 to 7 do
begin
a[1, j] := 2 * j + 3;
a[2, j] := j-3/(2+i/j)
end;
for i := 3 to 5 do
for j := 1 to 7 do
a[i, j] := a[i-2, j] + a[i-1, j];
count := 0;
for i := 1 to 5 do
begin
for j := 1 to 7 do
begin
if frac(a[i, j]) = 0
then inc(count);
write(a[i, j]:8:3)
end;
writeln
end;
writeln( count, ' integers' )
end.
Что-то с заданием не в порядке. Скорее всего вот так:
Код
var
a: array[1 .. 5, 1 .. 7] of real;
i, j: integer;
count: integer;
begin
i := 2;
for j := 1 to 7 do
begin
a[1, j] := 2 * j + 3;
a[2, j] := j-3/(2+i/j)
end;
for i := 3 to 5 do
for j := 1 to 7 do
a[i, j] := a[i-2, j] + a[i-1, j];
count := 0;
for i := 1 to 5 do
begin
for j := 1 to 7 do
begin
if frac(a[i, j]) = 0
then inc(count);
write(a[i, j]:8:3)
end;
writeln
end;
writeln( count, ' integers' )
end.
volvo
А можно как - нибудь код скопировать прямо в паскаль, а то просто так он не копируется? Или только писать надо?
А можно как - нибудь код скопировать прямо в паскаль, а то просто так он не копируется? Или только писать надо?
Tatjanka
Надоже а я всегда думал, что если есть матрица a(i,j), то i-это число строк, а j-столбцы! Неужели я так глубоко ошибался кто-нибудь поправте меня если я не прав... 
А чтобы сохранить можно всё в блокном кинуть и сохранить с расширением .pas ну а дальше уже открывать в Паскале
Цитата
Jahnerus
нее вроде наоборот
нее вроде наоборот
Надоже а я всегда думал, что если есть матрица a(i,j), то i-это число строк, а j-столбцы! Неужели я так глубоко ошибался кто-нибудь поправте меня если я не прав... А чтобы сохранить можно всё в блокном кинуть и сохранить с расширением .pas ну а дальше уже открывать в Паскале
volvo
все замечательно работает. Ты просто гений. Спасибо тебе за помощь :flowers:
все замечательно работает. Ты просто гений. Спасибо тебе за помощь :flowers:
Jahnerus
:yes:
Меня тоже посетила такая мысль (и именно так я пишу все программы)
:yes:
Цитата
если есть матрица a(i,j), то i-это число строк, а j-столбцы!
Меня тоже посетила такая мысль (и именно так я пишу все программы)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.