Описать функцию целого типа, определяющую количество корней квадратного уравнения

@Natasha310 · Регистрация: 15.12.2013

2.Описать функцию целого типа, определяющую количество корней квадратного уравнения Ax^2+Bx+C=0 (A,B,C-вещественные параметры, А не равно 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами.

@Puporev · 19.03.2014, 08:22

Pascal

uses crt;
function korni(a,b,c:real):integer;
var d:real;
begin
d:=b*b-4*a*c;
if d<0 then korni:=0
else if d=0 then korni:=1
else korni:=2
end;
var a,b,c:real;
    i:byte;
begin
for i:=1 to 3 do
 begin
  repeat
  writeln('Введите коэффициенты квадратного уравнения a,b,c, a<>0');
  read(a,b,c);
  until a<>0;
  writeln('Количество корней=',korni(a,b,c))
 end
end.

@Natasha310 0 / 0 / 0 Регистрация: 15.12.2013 Сообщений: 18
		1
	Описать функцию целого типа, определяющую количество корней квадратного уравнения 18.03.2014, 16:28. Показов 1961. Ответов 1 Метки нет (Все метки) 2.Описать функцию целого типа, определяющую количество корней квадратного уравнения Ax^2+Bx+C=0 (A,B,C-вещественные параметры, А не равно 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Описать функцию целого типа, определяющую количество корней квадратного уравнения

Решение