VPF::[Pascal] Математические функции - Форум программистов

Sunvas

Дата 26.11.2006, 21:42 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

volvo877

Дата 26.11.2006, 23:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Ну, здесь гораздо проще:

Код


type
  complex = record
    re, im: real;
  end;
  coeff = record
    a, b, c: complex;
  end;

procedure Value(p: coeff; x: complex; var y: complex);

  procedure mult(var res: complex; _1, _2: complex);
  begin
    res.re := _1.re*_2.re - _1.im*_2.im;
    res.im := _1.re*_2.im + _2.re*_1.im;
  end;
  procedure add(var res: complex; _1, _2: complex);
  begin
    res.re := _1.re + _2.re;
    res.im := _1.im + _2.im;
  end;

var
  T1, T2: complex;

begin
  mult(T1, x, x);
  mult(T1, p.a, T1); { T1 = a * x^2 }

  mult(T2, p.b, x);  { T2 = b * x }
  add(y, T1, T2);
  add(y, y, p.c)


end;
 
{ Тестовые значения: }
const
  test: coeff = (
    a:(re:2; im:3);
    b:(re:4; im:2);
    c:(re:5; im:7)
  );
  x: complex = (
    re:1; im:2
  );

var
  res: complex;
begin
  Value(test, x, res);
  writeln('complex value = ', res.re:6:2, ' + i*':2, res.im:6:2);
end.

(можно, конечно, сделать еще и процедурку красивого вывода, но насколько видно из задания - это не главное, задача стоит - написать процедуру Value) smile

Sunvas

Дата 27.11.2006, 00:34 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Спасибо еще раз volvo877! Будь всегда таким щедрым.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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