Помощь - Поиск - Пользователи - Календарь
Полная версия: векторы и матрицы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Darkmax
помогите пожалуйста просто горю пора здовать а у мне не получается написать
написать эти проги зарание блогодарен:

1) Ввести число срок и столбцов и заполнить матрицу по спирали примерно так :
1 2 3 4 5 6
20 21 22 23 24 7
19 32 30 34 25 8
18 31 36 35 26 9
17 30 29 28 27 10
16 15 14 13 12 11

2) Заданы два вектора X и Y и матрица А. Найти сумму двух векторов C и D
где С есть произведение вектора X на матрицу А , а вектор D произведения вектора Y на матрицу А. Вычислить произведения вектора на матрицу оформить в виде подпрограммы.

PLIZZZZ HELPPPPP !!!!!
Altair
Darkmax, решение первой задачи есть в FAQ'e
http://forum.pascal.net.ru/index.php?showtopic=2694
АП
я не знаю, сто значит умножить вектор на матрицу, но по линейной алгебре я такую прогу делал, и по ней контрольную писал. прода на дельфи

Код

procedure TForm1.Button1Click(Sender: TObject);


procedure  {*}peremnoshit{*};
Begin

k:=0;
 for i:=1 to strtoint(bb.Text) do    {строки 1}

 for l:=1 to strtoint(aa2.Text) do     {столбцы 2}
 begin
 k:=k+1;
 for j:=1 to strtoint(aa.Text) do  {столбцы 1}
 begin
   s[k]:=s[k]+FloatToStr(matr[j,i])+'*'+FloatToStr(matr2[l,j]);     {ход решения}
   otv[k]:=otv[k]+matr[j,i]*matr2[l,j];                  {реальное умножение}
   if j<strtoint(aa.Text) then s[k]:=s[k]+'+'
   else  s[k]:=s[k]+' | '+inttostr(i)+inttostr(l);


 end;


Исходники заключаем в теги [ code ] [ /code ]
Darkmax
СПОСИБО ВСЕМ В ПОМОЩИ НЕ ПЕРЕВЕЛИСЬ ЕЩЕ ХОРОШИЕ ПРОГРАММЕРЫ
И ДОБРЫЕ ЛЮДИ ВОТ ТОЛЬКО ВОПРОС ЕСЛИ Я ДАПУСТИМ ПРОГУ КРУТУЮ НАПИСАЛ ИЛИ МНЕ ДАЛ КТО, (ПОЛЕЗНУЮ ИЛИ БЕСПОЛЕЗНУЮ) ЕЕ МОЖНО КУДАНИБУДЬ СКИНУТЬ
Флогримм
Цитата
ЕЕ МОЖНО КУДАНИБУДЬ СКИНУТЬ

можна! на форуме есть раздел "Файлы" <http://forum.pascal.net.ru/index.php?act=Downloads>, вон туды и кидаешь!
Цитата
ПОЛЕЗНУЮ ИЛИ БЕСПОЛЕЗНУЮ

бнсплдезную ненадо! лучше полезную, ага :yes: :yes: ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.