• 
  • 02 February 2012
  Английский язык
  • Автор: Unanyan83

  

  написать программу решения квадратного уравнения ax^2+bx+c=0 в паскале,помогите плиз!!!

• 
  • 02 February 2012
  • Ответ оставил: Anyasgibnewa

  Program yravnenie;

  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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (25.04.2024) наш сайт содержит 244790 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы