program v delphi-komplexní čísla

[paloalosom]

zdravím vás,
chci vás poprosit o pomoc..nevim si rady s ukolem. Programovaní moc nerozumim, ale něco jsem přece jen sesmolil. Chtěl bych vás poprosit, jestli byste mi to nedali dohromady, aby ten program byl funkční. Používám program delphi.

tady je zadání: Sestavte proceduru pro výpočet součinu dvou komplexních čísel a použijte ji pro
řešení následující úlohy: jsou dána tři komplexní čísla, vynásobte nejprve
ta dvě čísla, která mají největší reálnou část, a potom ta dvě čísla, která
mají nejmenší imaginární část.

a tu je co jsem sesmolil:

type Komplex

Function re(Cislo:Komplex):real;
begin
Re:=Cislo.re;
end;

Function im(Cislo:Komplex):real;
begin
Im:=Cislo.im;
end;

Procedure soucin(A,B:Komplex;var V:Komplex);
begin
V.re:=A.re*B.re-A.im*B.im;
V.im:=A.re*B.im+A.im*B.re;
end;

var c1,c2,c3:Komplex;

begin
readln(c1);
readln(c2);
readln(c3);
if (c1.re>c3.re) and (c2.re>c3.re) then Soucin(c1,c2,soucin_vetsich);
else
if(c1.re>c2.re) and (c3.re>c2.re) then soucin(c1,c3,soucin_vetsich);
else soucin(c2,c3,soucin_vetsich);

if (c1.im<c3.im) and (c2.im<c3.im) then soucin(c1,c2,soucin_mensich);
else
if(c1.im<c2.im) and (c3.im<c2.im) then soucin(c1,c3,soucin_mensich);
else soucin(c2,c3,soucin_mensich);
writeln(V.im,V.re);

end.

[Reklama]

[CZechBoY]

delphi nepoužívám tak ti jen poradim s tim násobením
i*i = -1
i*i*i=-i

[paloalosom]

i tak ti děkuji

[faraon]

Zkus pro inspiraci mrknout na tohle: http://www.seminarky.cz/Soucin-komplexnich-cisel-program-v-Pascalu-121