VPF::Задача с матрицами - Форум программистов

Magomed

Дата 21.4.2011, 01:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 11.8.2009

Репутация: нет
Всего: нет

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

Код


dim n as integer
input n
dim a(n,n), b(n,n), c(n,n) as integer
for i=1 to n
for j=1 to n
print "vvedite a", i, j
input a(i,j)
print "vvedite b", i, j
input b(i,j)
next
next

for i=1 to n
for j=1 to n
for k=1 to n
p=p*a(j,k)
next
c(i,j)=a(i,j)+p
next
next

Данкинг

Дата 21.4.2011, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Что значит "Бейсик" - как такового бейсика нет, есть всякие диалекты вроде того же Турбо, Qbasic и т.п. Но с чего ты взял, что данный коде не станет работать на Турбо-Бейсике? Разве что хорошо бы, конечно, после NEXT указывать соответствующую переменную. И никаких integer'ов вроде бы там не было.

Код


input n
dim a(n,n), b(n,n), c(n,n) 
for i=1 to n
for j=1 to n
print "vvedite a", i, j
input a(i,j)
print "vvedite b", i, j
input b(i,j)
next j
next i
for i=1 to n
for j=1 to n
for k=1 to n
p=p*a(j,k)
next
c(i,j)=a(i,j)+p
next j
next i

--------------------

There's nothing left but silent epitaphs.

Magomed

Дата 21.4.2011, 01:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 11.8.2009

Репутация: нет
Всего: нет

В задаче сказано использовать функции.

Так правильно?

Код


function myfun(j, n)
p=0
for k=1 to n
p=p*a(j,k)
next k
myfun=p
end function

input n
dim a(n,n), b(n,n), c(n,n)
for i=1 to n
for j=1 to n
print "vvedite a", i, j
input a(i,j)
print "vvedite b", i, j
input b(i,j)
next j
next i

for i=1 to n
for j=1 to n
c(i,j)=a(i,j)+myfun(j, n)
next j
next i

Данкинг

Дата 21.4.2011, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(Magomed @ 21.4.2011, 02:48

)

Так правильно?

Пример работает? Если да - то правильно.

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Другие языки \| Следующая тема »