Тема: помогите пожалуйста составить алгоритм
Показать сообщение отдельно
  #2  
Старый 22.04.2009, 23:06
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
  
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
По умолчанию
Код:
var i,j:integer;
begin
 for j:=1 to 3 do
  begin
   B[j]:=0;
   for i:=1 to 3 do B[j]:=B[j]+f[i]*z[i,j];
  end;
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
Ответить с цитированием