Технический форум - Составить программу решения квадратного уравнения, Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Составить программу решения квадратного уравнения, Паскаль

Плиз помогите мне нужно составить программу решения квадратного уравнения в турбо паскале

ax^2 + bx + c = 0

Цитата:

Сообщение от galega (Сообщение 650661)

Плиз помогите мне нужно составить программу решения квадратного уравнения в турбо паскале

ax^2 + bx + c = 0

Очень плохо начинаете! Это классическое упражнение для обучения азам программирования, а Вы тут же, даже не попытавшись решить, скачете на форумы. Дело Ваше, но если Вы думаете вот так чужим умом прожить жизнь - поверьте, ничего не выйдет. Ну да в конце концов - Вам жить. Получите:

Код:

Var

 a,b,c,D,x1,x2,p,q:Real;

Begin

 Repeat

  Write('a= ');

  Readln(a);

  if a=0 then writeln('Error: a=0. Enter another value');

 Until a<>0;

 Write('b= ');

 Readln(b);

 Write('c= ');

 Readln(c);

 p:=b/a;

 q:=c/a;

 D:=Sqr(p/2)-q;

 If D>0 then

  begin

   Writeln('x1 = ',-p/2-Sqrt(D):0:5);

   Writeln('x2 = ',-p/2+Sqrt(D):0:5);

  end

 else

 If D=0 then

  Writeln('x1 = x2 = ',-p/2:0:5)

 else

  begin

   Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);

   Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);

  end;

 Readln;

End.

Спасибо большое) и за совет тоже)

Подскажите пожалуйста как написать это -Решение уравнения ax^2+bx=0 , в Турбо Паскале?

Замечание:

Yfcnz, если Вы будете продолжать цеплять к чужим темам дубликаты своего топика, будете отправлены в бан.
Дубль удален.
Модератор.

Цитата:

Сообщение от Yfcnz (Сообщение 694070)

Подскажите пожалуйста как написать это -Решение уравнения ax^2+bx=0 , в Турбо Паскале?

Вы уверены, что уравнение неполное, т.е. с=0?

помогите плиз!!!
((2xy/GZ)*(D/16x))*((2x/D)/(16x/GZ))= c
D- дискриминант

Цитата:

Сообщение от Svat01 (Сообщение 1074251)

помогите плиз!!!
((2xy/GZ)*(D/16x))*((2x/D)/(16x/GZ))= c
D- дискриминант

И что с этой красотой надлежит сделать?

составить программу решения этого примера

Цитата:

Сообщение от Vladimir_S (Сообщение 1074255)

И что с этой красотой надлежит сделать?

составить программу решения этого примера

Цитата:

Сообщение от Vladimir_S (Сообщение 1074255)

И что с этой красотой надлежит сделать?

только D-не дискриминант