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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2014, 16:28
Ответы с готовыми решениями:

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

Описать процедуру целого типа, определяющую количество корней квадратного уравнения Ax^2+Bx+C=0
Описать процедуру целого типа, определяющую количество корней квадратного уравнения Ax^2+Bx+C=0...

Определить количество целых корней квадратного уравнения
Дано уравнение ax^3+bx^2+cx+d=0 с целыми коэффициентами (0<|d|<=2). Определить количество целых...

Написать функцию булевского(целого) типа, определяющую упорядоченность массива
Написать функцию булевского(целого) типа, определяющую упорядоченность массива целых чисел. Функция...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
19.03.2014, 08:22 2
Лучший ответ Сообщение было отмечено Natasha310 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2014, 08:22
Помогаю со студенческими работами здесь

Описать функцию Sign(x) целого типа
Описать функцию Sign(X) целого типа, возвращающую для дробного числа X следующие значения: -1,...

Описать функцию getInt(Name,k) целого типа, возвращающую k-й элемент файла
очередная просьба о срочном и по максимуму простом решении этой задачи...( Описать функцию ...

Описать функцию IntFileSize целого типа, возвращающую размер файла
Доброе время суток господа! Помогите пожалуйста срочно с задачей:Описать функцию IntFileSize(Name)...

Описать нерекурсивную функцию целого типа, вычисляющую N-e число Фибоначчи по формуле
Описать нерекурсивную функцию Fib(N) целого типа , вычисляющую N-e число Фибоначчи F(N) по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru