Это ; Но это обязательно.
Как с проблемой справиться не подскажите?
unit module;
interface
type
TComp=record
re,im : real;
alg: boolean;
end;
Procedure Input_Comp (var Comp: TComp);
Procedure Output_Comp (var Comp: TComp);
procedure summ_comp (c1,c2:TComp;var c3:TComp);
procedure proiz(c1,c2:TComp;var c3:TComp);
procedure razn_comp (c1,c2:TComp;var c3:TComp);
procedure chast(c1,c2:TComp;var c3:TComp);
procedure perevod(var c:Tcomp);
implementation
Procedure Input_Comp ;
Begin
writeln('input Re');
readln(comp.re);
writeln('input im');
readln(Comp.im);
end;
Procedure Output_Comp ;
var z:string;
Begin
if comp.alg=true then
begin
write(comp.re:2:5);
if comp.im>=0 then write(' +');
if comp.im<0 then write(' -');
write('i',abs(comp.im));
end
else
write('³',comp.re:2:2,'³','(cos(',comp.im:2:2,') + sin(',comp.im:2:2,'))');
end;
procedure summ_comp ;
begin
c3.re:=c1.re+c2.re;
c3.im:=c1.im+c2.im;
end;
procedure proiz;
begin
c3.re:=c1.re*c2.re-c1.im*c2.im;
c3.im:=c1.im*c2.re+c1.re*c2.im;
end;
procedure razn_comp;
begin
c3.re:=c1.re-c2.re;
c3.im:=c1.im-c2.im;
end;
procedure chast;
begin
c3.re:=c1.re*c2.re+c1.im*c2.im;
c3.im:=c1.im*c2.re-c1.re*c2.im;
end;
procedure perevod;
var b:real;
z: boolean;
begin
z:=c.alg;
if z=true then
begin
b:=c.re;
c.re:=sqrt(c.re*c.re+c.im*c.im);
c.im:=arctan(c.im/b);
c.alg:=false;
end;
if z=false then
begin
b:=c.re;
c.re:=c.re*cos(c.im);
c.im:=c.re*sin(c.im);
c.alg:=true;
end;
end;
end.
И здесь то же самое.
Впринципе, с только написанными нормально всё, только с винды мигранты косячат почему-то.