Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Формирование матрицы в TP.

Автор: Gavalex 25.5.2005, 08:00

Задали в универе задачу решить:

Сформирвать матрицу A (4x4), где:
d[i,j]={sin (i+j) при i<j,
{ 1 при i=j
{(i+j)/(2i+3j) при i>j
это система общая, я просто не знаю, как объединить.

Так вот матрицу я сформировал, теперь не знаю, как ввести дальнейшие условия. Я Turbo Pascal только начал изучать, помогите пожалуйста. smile

Автор: ~FoX~ 25.5.2005, 09:10

Примерно так.

Код


var
  i, j: integer;
  d: Array[1..4, 1..4] of real;
begin
  for i := 1 to 4 do 
    for j := 1 to 4 do begin
      if i<j then d[i,j] := sin (i+j)
      else if i=j then d[i,j] := 1
      else if i>j then d[i,j] := (i+j)/(2*i+3*j);
    end;
end;

Набирал в браузере, так что мог гдето ошибиться.

Автор: Gavalex 25.5.2005, 17:40

Спасибо огромное, я перед тобой в долгу.