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

[galega]

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

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

ax^2 + bx + c = 0

 

[Vladimir_S]

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

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.

 

[galega]

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

 

[Yfcnz]

Подскажите пожалуйста как написать это -Решение уравнения ax^2+bx=0 , в Турбо Паскале?
[mod2]Yfcnz, если Вы будете продолжать цеплять к чужим темам дубликаты своего топика, будете отправлены в бан.
Дубль удален.
Модератор.[/mod2]

 

[Vladimir_S]

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

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

 

[Svat01]

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

 

[Vladimir_S]

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

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

 

[Svat01]

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

 

[Svat01]

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

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

 

[Svat01]

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

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

 

[Svat01]

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

через паскаль

 

[Vladimir_S]

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

Извините, сударь, но хватит флудить! То, что Вы написали - полный бред, там всё сокращается. И дискриминант чего? И вообще - просьбы помочь с написанием программы без малейшего указания на язык программирования у нас, извините, не рассматриваются.
Значит, так.
Или Вы выкладываете ясно и четко сформулированное задание, либо этот флуд будет удалён.

Ага, насчет Паскаля - появилось. И на том спасибо.

 

[Svat01]

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

через дискриминант

 

[Svat01]

Извините, сударь, но хватит флудить! То, что Вы написали - полный бред, там всё сокращается. И дискриминант чего? И вообще - просьбы помочь с написанием программы без малейшего указания на язык программирования у нас, извините, не рассматриваются.
Значит, так.
Или Вы выкладываете ясно и четко сформулированное задание, либо этот флуд будет удалён.

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

 

[Vladimir_S]

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

А я Вам еще раз повторяю: написан какой-то бред. Итак
((2xy/GZ)*(D/16x))*((2x/D)/(16x/GZ))= c
откуда следует
x²y = (c*(GZ)²)/4
И что?
В общем, так. Хватит бездумно и с ошибками перекатывать значки. Разберётесь толком в задании - продолжим.

 

[Svat01]

А я Вам еще раз повторяю: написан какой-то бред. Итак
((2xy/GZ)*(D/16x))*((2x/D)/(16x/GZ))= c
откуда следует
x²y = (c*(GZ)²)/4
И что?
В общем, так. Хватит бездумно и с ошибками перекатывать значки. Разберётесь толком в задании - продолжим.

Мне было дано: ((2xy/GZ)(D/16x))((2x/D)/(16x/GZ))=c, и сказано: "составить программу для решения этого примера с помощью Паскаль".

 

[Gruvi]

Мне было дано: ((2xy/GZ)(D/16x))((2x/D)/(16x/GZ))=c, и сказано: "составить программу для решения этого примера с помощью Паскаль".

К сожалению, челвоек который это задание дал, совершенно некомпетентен ни в программировании ни в математике.
А вы, что бы не выглядеть глупо, разберитесь в задании хорошенько.