Не связано с Linux(С++)Решено

[kolia88]

Доброго времени суток!
Столкнулся с такой задачей и немного не опытен до конца, тоесть представляю как что, но не хватает опыта. Описываю:
массив структур

здесь были исходники


вопрос в следующем как её отлаживать ведь после ввода двух вагонов программа заканчивается, тоесть заканчивается проверка всей программы мною
Тоесть почему программа после основных действий а именно после cin ведет себя не так как я прошу в мейне
Решено

[egorchick3000]

вот моя

program pr1;
var a,b,c,d:integer;e,r,t:real;
begin
read(a,b,c);if c<>1 then
if c>0 then
writeln(a,'(x êâàäðàò)+',b,'x +',c,'=0')
else writeln(a,'x(êâàäðàò)+',b,'x',c,' = 0');
if c=1 then writeln(a,'(x êâàäðàò)+','x +',c,'=0')
else writeln(a,'x(êâàäðàò)+','x',c,' = 0');
d:=sqr(b)-4*a*c;
if b>0 then
b:=b-(2*b);
writeln(b);
if d>0 then
e:=(b+sqrt(d))/(2*a);
if d>0 then
writeln('x2 = ',e);
if d>0 then
r:=(b-sqrt(d))/(2*a);
if d>0 then
writeln('x1 = ',r);
if d<0 then writeln('íåò êîðíåé');
if d=0 then
t:=(b+0)/(2*a);
if d=0 then
writeln('x1 = ',t);
end.