Програма на Паскал ...........

търся програма написана на Паскал , за решаване на квадратни уравнения , големина до 1,4 мегабайта. аз съм един почти отчаян ученик. надявам се да ми помогнете. благодаря предварително.

tarsi si po-stara takava!
novite vinagi ste sa po-golemi ot 1.4MB

Трудна работа.... то това квадратното уравнение е лоша работа.... виж ако беше кръгло - и на 200К се събира!

az imam takava ama kvadratite sa ogranicheni maximum do 2x2 metra... ne znam dali she ti svyrshi rabota

Пиша ти я само щото си на ръба на отчаянието.. не заради друго

var a, b, c, D: real;



begin

  WriteLn('a*x^2 + b*x + c = 0');

  WriteLn;



  Write('a='); ReadLn(a);

  Write('b='); ReadLn(b);

  Write('c='); ReadLn(c);



  D := b*b - 4*a*c;



  if D < 0 then

   WriteLn('No roots!') else

  if D = 0 then

   WriteLn('x=', (-b) / (2*a)) else

  begin

    WriteLn('x1=', (-b + sqrt(D))/(2*a));

    WriteLn('x2=', (-b - sqrt(D))/(2*a));

  end;

end.

Как може да сте такива идиоти ? Добре че има хора като NiL^. Питам се за какво сте тука повечето. Имате се за голямата работа а ?! Тц, и за какво изобщо поствате тук ?
-
Човек, ако нямаш компилатор, дай си е-майла да ти пратя програмата компилирана.

blagodarq za komplimenta , ne sme takiva idioti , pone ne az , a az napisah syobshtenieto zashtoto edin u4enik mnogo se nujdaeshe ot takava. opredeleno programiraneto ve4e ne e sred interesite mi , opitah no ne se polu4i. ne znam dali toj ima kompilator , nadqvam se da ima , blagodarq za koda , mislq , 4e shte svyrshi rabota. az li4no priznavam , 4e ne gi razbiram tiq raboti , onq den 7 4asa bezuspeshno se opitvah da instaliram edin forum napisan na PHP , ama neshto se okaza , 4e ima bygove i edva se spravih. :)

bye.

Ти да не би си програмист в Майкрософт и да си работил по Windows? Интерфейс като слънце, функционалност - никаква...

Първо - лъжеш, че при D<0 няма корени.
Второ - пропускаш случая a=0 и програмата ти гърми.
Трето - по традиция x1<= x2.

... s drugi dumi: HAHAHAHAHAHA

Тъпото е, че се заяждате не с човека който трябва. Защото се намери един който да помогне на човек потърсил помощ, и сега го карате да съжалява че го е направил. Имал време и желание - написал програма.

Все пак става въпрос за ПРОГРАМА ЗА РЕШАВАНЕ НА КВАДРАТНО УРАВНЕНИЕ. Т.е. за ниво начинаещи. Колко от вас ако са на мястото на даскал по информатика ще се усъмнят, ако програмата дава и решение с комплексни корени?

Сметка за бъгове търсете когато давате пари, а докато само кудкудякате с деградивна критика, за М$ се сещайте когато се чупят собствените ви програми.

Мечтата е мисъл, мисълта е идея, всяка идея се реализира. Аз не мечтая, а реализирам идеите си.

Тц тц тц тц тц...
в ТУ късат на изпит, ако така сравняваш с 0....

if D = 0 then

to ne 4e mu trea da sravnqva s 0
pi6e gi kompleksni i gotovo
ne vijdam problem

Не ставаше дума за теб, ставаше дума за разбирачите който уж са толкова велики, пък не се наемат да помогнат на един човек, който има нужда от помощ. Като че ли те не са минали по този път. Айде със здраве

10x

проверявам по този начин за 0 за да не усложнявам програмата... за цели коефициенти няма да има проблем...

>>> Първо - лъжеш, че при D<0 няма корени.
>>> Второ - пропускаш случая a=0 и програмата ти гърми.
>>> Трето - по традиция x1<= x2.

Първо - този за когото е задачата едва ли знае какво е комплексно число
Второ - става дума за КВАДРАТНО уравнение
Трето - незнам това в каква връзка го написа

10x ShaDoW...

program kvadratno;
var a,b,c:real;
procedure urav(z,p,d:real);
var
x1,x2,st:real;
begin
if z=0 then writeln('x=',-(d/p))
else
if p=0 then writeln('x=',sqrt(-(d/z)))
else begin
st:=(p*p)-(4*z*d);
if st>0 then begin x1:=(-p+sqrt(st))/(2*z);
x2:=(-p-sqrt(st))/(2*z);
writeln('x1=',x1:2:2,' x2=',x2:2:2);
end;
if st=0 then writeln('x1,2=',-p/(2*z));
if st<0 then writeln('n.r.');
end;
end;
BEGIN
writeln('Vyvedi a');
readln(a);
writeln('Vyvedi b');
readln(b);
writeln('Vyvedi c');
readln(c);
urav(a,b,c);
readln;
END.

Същата работа само че с процедура-директен paste от личния архив.Дано да ти свърши работа.Впрочем къде учи твоя приятел?

отляво надясно може,ама иначе - не!