Pascal.Умножние комплексных чисел.Рекурсия

[starlet]

Используя модульный принцип, оформить рекурсивную процедуру или функцию.

Задание:
n
П (a[i])
i=1
a[i]- это комплексные числа


помогите,пожалуйста с задачей... не понимаю как формируются эти а[i]..

[Sazary]

А как представлено комплексное число? Структурой?
Как-нибудь так:

complex = record
Re : real;
Im : real;
end;

Ну вот и вводите вещественную и мнимую часть для каждого числа.
В этом случае a будет массивом структур.

[starlet]

это у меня есть...а как будет формироваться число,когда программа будет выполнятся..как его инициализировать?

[starlet]

у меня пока что тольковот такая муть получилась:
UNIT Cmpl;



INTERFACE
Type
Complex= RECORD
Re, Im:real;
END;

Procedure InitC (R,I: real; var c:complex);
Procedure MultC (c1,c2:complex; var r:complex);
Procedure PrintC (c:complex);
{Procedure MultAll(i:integer); }



IMPLEMENTATION

{1} Procedure InitC (R,I: real; var c:complex);
Begin
with C do
begin
Re:=R;
Im:=I;
end;
End;

{2} Procedure MultC (c1,c2:complex; var r:complex);
Begin
with R do
begin
Re:=c1.Re*c2.Re-c1.Im*c2.Im;
Im:=c1.Re*c2.Im+c2.Re*c1.Im
end;
End;

{3}Procedure PrintC (c:complex);
Begin
with C do
begin
write(Re);
if Im=0 then exit;
if Im>0 then write('+');
write(Im);
write('i');
end;
End;

[Sazary]

Ну вот как я сделал:

uses crt;
type
complex = record
Re, Im : real;
end;
var
a : array[1..100] of complex;
i,n : integer;
rez : complex;

procedure P(var rez : complex; t : integer);
var tmp : complex;
begin
tmp.Re := rez.Re*a[t].Re - rez.Im*a[t].Im;
tmp.Im := rez.Im*a[t].Re + rez.Re*a[t].Im;
rez := tmp;
if t<n then P(rez,t+1);
end;

begin
clrscr;
write('N = ');
readln(n);
for i:=1 to n do
 begin
 write('Enter next complex: ');
 readln(a[i].Re,a[i].Im);
 end;

rez := a[1];
P(rez,2);

writeln('Rez = ',rez.Re:0:0,' ',rez.Im:0:0);
readln;
end.

[starlet]

а если без ввода с клавиатуры...меня за это придушат..

[Sazary]

а если без ввода с клавиатуры...меня за это придушат..

Ну так просто уберите ввод )
У вас в условии:

a[i]- это комплексные числа

то есть есть массив комплексных чисел. Предполагается, что он откуда-то берется.

[starlet]

а как сделать,чтобы эти числа брались из файла???

[Sazary]

а как сделать,чтобы эти числа брались из файла???

Ну пишите их в файл. Например, как-нибудь так:

3
1 3
4 -3
2 4

Где первое число - количество чисел. А дальше идут действительные и мнимые части чисел.
Ну и в программе сначала читаете количество чисел:

readln(file, N);

а потом в цикле читаете сами числа:

for i:=1 to N do
 readln(file, a[i].Re, a[i].Im);

[starlet]

спасибочки)