Programování v pascalu

Dobrý den, potřebuju naprogramovat v pascalu rešení kvadratických rovnic i pro diskriminat menší než 0 (řešením jsou komplexní čísla). Podařilo se mi naprogramovat, když je diskriminant větší než 0, ale pro meněší než nula se mi to stále nedaří.

zde je moje řešení pro kladný D

-

Program Kvadr_Rovnice;

uses crt;

var fl,B,C,D,xl,x2:real;

begin

write(’Zadej koef A:’readln(A);

write(’Zadej koef B:’readln(B);

write(’Zadej koef C:’readln(C);
writeln;
D:=B*B-4*A*C;
if D>=0then begin
D:=sqrt(D);
x1:=(-B⁺D)/2/A;
x2:=(—B—D)/2/A ;
writeln(’x1=’,x1:6:2);
writeln(’x2=’,x2:6:2) end

else writeln(’komplexni koreny’ readln end.

-

poté jsem se pokoušel vytvořit něco takovýho, to ale nefunguje

-

Program Kvadr_Rovnice;

uses crt;

var fl,B,C,D,xl,x2,i:real;

begin

write(’Zadej koef A:’readln(A);

write(’Zadej koef B:’readln(B);

write(’Zadej koef C:’readln(C);
writeln;
D:=B*B-4*A*C;
if D>=0then begin
D:=sqrt(D);
x1:=(-B⁺D)/2/A;
x2:=(—B—D)/2/A ;
writeln(’x1=’,x1:6:2);
writeln(’x2=’,x2:6:2) end

else begin

i:=-1;

D:=sqrt(D*i);

xl:=(—B—D)/2/A;

x2:=(-B-D)/2/A;

writeln(’xl=’,xl:6:2);

writeln(’x2=’,xl:6:2)

end;

readln

end.

-

Žádám Vás o pomoc, či o radu, jak to tedy naprogramovat tak, aby mi vyšlo správné řešení i pro D<0.

Děkuji Jaroslav Charvát
doplněno 29.10.12 17:21:

Omlouvám se, ale na některých místech se objevili smajlíci a ten text okolo nich nedává smysl, doufám, ale že kdo umí v pascalu pracovat se v tom vyzná, ještě jednou děkuji