Значи в сряда ще ме изпитват на следната задача, и ако може, някой навътре с паскала да ми я напише, ще му бъда много благодарен:

Да се напише програма за решаване на квадратното уравнение от вида

а.х2(2-на втора степен)+bx+c=0

По зададени a,b,c. да се разгледат случайте когато дискриминантата е положителна,отрицателна или равна на нула.

Знам,че молбата ми е, най-малкото нахална, но все пак аз нищо не вдявам от паскала. По ме бива в графиката, в програмирането съм зле. Е, това е, благодаря на всеки, който се навие.

Абе хубаво някой ще ти я напише, ама нали ще те изпитват на нея, ще можеш ли да обясниш кода. Иначе аз днес ще ти я напиша - никакъв проблем не е, и ние правихме подобни задачи в училище

P.S. като пишеш на компютър степените обикновено се обозначават с ^:

ax^2+bx+c=0

P.S. a,b и c - цели числа ли са или може и с дробни ? С точност до кой знак искаш резултата ?

Редактирано 13 юни 200520 г. от DarkLight (преглед на промените)

Ей така на бързо:

var

a, b, c : extended;

d : extended;

x1, x2 : extended;

begin

readln( a );

readln( b );

readln( c );

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

if d < 0 then

writeln( 'Няма решение' )

else

if D>0 then

begin

x1 := ( -b - sqrt(d) ) / 2;

x2 := ( -b + sqrt(d) ) / 2;

writeln( 'x1 = ', x1 );

writeln( 'x2 = ', x2 );

end;

else

begin

x1 := ( -b + sqrt(d) ) / 2;

writeln( 'x1 = x2=', x1);

end;

end.

(нека някой провери за грешки, че не мога да я пусна)

P.S. Кой те знае колко по-добре си и в графиката (каквото и да означава това).

Редактирано 13 юни 200520 г. от 90125 (преглед на промените)

И аз го написах на бързо, без да имам под ръка компилатор да го проверя, без да форматирам изхода и без да съм сигурен че помня математическите формули:

Program Hellrazor; //ime na programata, mojesh da go smenish


var:

a,b,c: real;

D: real;

x: real;


begin


//Vuvejdane na promenlivite a, b, i c:

Writeln('Vuvedete a');

Readln(a);

Writeln('Vuvedete b');

Readln(b);

Writeln('Vuvedete c');

Readln(c);

WriteLn('uravnenie: '+a+'x + '+b+'x + '+c);

//Izchislqvane na diskriminantata

D := ((b/2)*(b/2))-(4*a*c);

if d<0 then

 Writeln('Diskriminantata e otricatelna. Uravnenieto nqma realni koreni');

else if d=0 then begin

 x := -(b*b)/(2*a)

 Writeln('Diskriminantata e nula. Uravnenieto ima edin koren x='+x);

end

else if d>0 then begin

 Writeln('Diskriminantata e polojitelna. Uravnenieto ima dva korena');

 x := (-(b*b)+sqrt(D))/(2*a);

 Writeln('x1='+x);

 x := (-(b*b)-sqrt(D))/(2*a);

 Writeln('x2='+x);

 end;


end.

дава грешка 26: Type Mismatch

ей тука:

WriteLn('uravnenie: '+a+'x + '+b+'x + '+c);

върху червения кръст цъка маркера

Иначе много ти благодаря,че ми помогна, както и на 90125

дава грешка 26: Type Mismatch

ей тука:

WriteLn('uravnenie: '+a+'x + '+b+'x + '+c);

върху червения кръст цъка маркера

Иначе много ти благодаря,че ми помогна, както и на 90125 

<{POST_SNAPBACK}>

Както се вижда от кода на 90125, плюсчетата в Writeln трябва да се заменят със запетайки... Какво да ти кажа, от 9 месеца работя PHP програмист, позабравил съм го паскала