VPF::Формирование матрицы в TP. - Форум программистов

Gavalex

Дата 25.5.2005, 08:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Сформирвать матрицу 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 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

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

Код


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;

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

Это сообщение отредактировал(а) ~FoX~ - 25.5.2005, 09:13

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

…множественность никогда не следует полагать без необходимости…

Gavalex

Дата 25.5.2005, 17:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

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