Исследования квадратного уравнения

@Раманич · Регистрация: 27.01.2013

Author24 — интернет-сервис помощи студентам

Задано квадратное уравнение ax²+bx+c=0 составить программу для нахождения велечины, при различных значениях D. Кроме того, в программе предусмотреть печать значчень действительных корней, если они есть, или текста "Корни отсутствуют", если их нет. Знаю что очень легкое, но что-то не получается. Заранее спасибо.
1. a²-9bc , D<0
2. 4x₁ , D=0
3. x₂sinx₁ , D>0

a= 7,2
b= 5,31
c= -3,8

@brunis · 27.01.2013, 02:08

Даже видео есть посвящённое этой задаче

@Раманич · 27.01.2013, 23:48 **[ТС]**

Очень нужно именно эту задачу решить. Принцип решения понимаю. Очень нужно. Помогите пожалуйста.В меня почему-то не получается не понимаю почему.

@brunis · 28.01.2013, 16:59

Вот, грызите. Сделал всё как можно понятнее.

Pascal

Uses crt;
var a,b,c:Real; //коеффициенты
    x1,x2:Real; //корни
    D:Real; //discriminant
begin
  clrscr;
  write('введите À: '); Readln(a);
  write('введите B: '); Readln(b);
  write('введите C: '); Readln(c);
 
  D:=b*b+4*a*c;
 
  if D<0 then Begin
    writeln('D = ',D:0:3, ' => корней нет.');
    writeln('Велечина: a*a-9bc = ',a*a-9*b*c:0:5);
  End
  else if D=0 then Begin
    x1:=-b/(2*a);
    writeln('D = ',D:0:3, ' => x = ',x1:0:5);
    writeln('Велечина: 4x = ',4*x1:0:5);
  End
  else Begin
    writeln('D = ',D:0:3, ' => ');
    x1:=(-b-sqrt(D))/(2*a);
    x2:=(-b+sqrt(D))/(2*a);
    writeln('x1 = ',x1:0:5);
    writeln('x2 = ',x2:0:5);
 
    writeln('Велечина: x2sin(x1) = ',x2*sin(x1):0:5);
  End;
 
  Readln;
end.

@Раманич 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 4
		1
	Исследования квадратного уравнения 27.01.2013, 01:01. Показов 1520. Ответов 3 Метки нет (Все метки) Задано квадратное уравнение ax²+bx+c=0 составить программу для нахождения велечины, при различных значениях D. Кроме того, в программе предусмотреть печать значчень действительных корней, если они есть, или текста "Корни отсутствуют", если их нет. Знаю что очень легкое, но что-то не получается. Заранее спасибо. 1. a²-9bc , D<0 2. 4x₁ , D=0 3. x₂sinx₁ , D>0 a= 7,2 b= 5,31 c= -3,8 0

@brunis 100 / 97 / 61 Регистрация: 08.08.2012 Сообщений: 163
	27.01.2013, 02:08	2
	Даже видео есть посвящённое этой задаче 1

@Раманич 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 4
	27.01.2013, 23:48 [ТС]	3
	Очень нужно именно эту задачу решить. Принцип решения понимаю. Очень нужно. Помогите пожалуйста.В меня почему-то не получается не понимаю почему. 0

	28.01.2013, 16:59

Опции темы