Неправильно работает процедура

Вот сама задача:
Разработать модуль для работы с комплексными числами, представленными в алгебраическом виде.
Разработать процедуры ввода-вывода комплексных чисел. Написать процедуры, реализующие операции сложения, вычитания, умножения, деления комплексных чисел.

Добавлено через 23 секунды
Вот программа:
program asd;
uses crt,kompl;
var
a,b,c,d:real;
t,o:real;
begin
clrscr;
writeln('a+bi');
writeln('vvedite 4islo a');
readln(a);
writeln('vvedite 4islo b');
readln(b);
writeln;

writeln('c+di');
writeln('vvedite 4islo c');
readln(c);
writeln('vvedite 4islo d');
readln(d);
writeln;

writeln('Pervoe kompleksnoe 4islo: ',a,'+',b,'i');
writeln('Vtoroe kompleksnoe 4islo: ',c,'+',d,'i');
writeln;

Summa(a,b,c,d,t,o);
Razn (a,b,c,d,t,o);
Proizvedenie(a,b,c,d,t,o);
chastnoe(a,b,c,d,t,o);
print(t,o);
end.

Добавлено через 1 минуту
вот модуль:


Добавлено через 17 секунд
unit kompl;
interface
var r,p:real;
procedure Summa(x,y,m,n,r,p:real);
procedure Razn(x,y,m,n,r,p:real);
procedure Proizvedenie(x,y,m,n,r,p:real);
procedure Chastnoe(x,y,m,n,r,p:real);
procedure print(r,p,s:real);

implementation

procedure Summa(x,y,m,n,r,p:real);
begin
r:=x+m;
p:=y+n;
end;
procedure Razn(x,y,m,n,r,p:real);
begin
r:=x-m;
p:=y-n;
end;
procedure Proizvedenie(x,y,m,n,r,p:real);
begin
r:=x*m-y*n;
p:=m*y+x*n;
end;
procedure Chastnoe(x,y,m,n,r,p:real);
begin
r:=(x*m+y*n)/(sqr(m)+sqr(n));
p:=(y*m-x*n)/(sqr(m)+sqr(n));
end;
procedure print(r,p,s:real);
begin
if p<0 then s:=str(r)+str(p)+'i' else s:=str(r)+'+'+str(p)+'i';
end;

end.

Добавлено через 23 секунды
не правильно работает процедура Print

0

так удобно =)

0

поможет кто нибудь?

0