Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Ce7eH_111
34 / 34 / 19
Регистрация: 17.11.2012
Сообщений: 109
Записей в блоге: 2
1

ошибки в квадратном уравнении

10.12.2012, 22:51. Просмотров 340. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
function kva(a,b,c:integer):array [1..2] of integer;
var d,x1,x2:integer;
begin
     d:=sqr(b)-4*a*c;
     if d<0 then begin x1:=-60000;x2:=60000; end
            else if d>=0 then begin x1:=(-b+sqrt(d))/2*a;
                                    x2:=(-b-sqrt(d))/2*a; end;
     kva[1]:=x1;
     kva[2]:=x2;
end;
Помогите ошибки исправить пожалуста (Чтоб их увидеть нужно протестировать функцию)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2012, 22:51
Ответы с готовыми решениями:

Case...of...end в квадратном уравнении
Написал программу для нахождения корней квадратного уравнения. Если не вводить...

Решение уравнении
1) Ввести a,b,c и решить уравнение ax2(в квадрате)+bx+c=0 2) Ввести два числа...

Первая производная функция в нелинейном уравнении
Не могу победить первую производную функцию в нелинейном уравнении Уравнение:...

В квадратном массиве выделим четыре четверти, ограниченные главной и побочной диагоналями (без учета элементов, расположенных на диагоналях)
В квадратном массиве выделим четыре четверти, огра¬ниченные главной и побочной...

Найти значение b в квадратном уравнении
найти значение b в уравнении 5x2+bx-28=0 если корни уравнения связаны...

3
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,281
11.12.2012, 08:23 2
Для нахождения корней в Паскале лучше использовать процедуру.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure kva(a,b,c:integer;var x1,x2:real);
var d:integer;
begin
d:=sqr(b)-4*a*c;
if d<0 then writeln('Действительных корней нет')
else if d=0 then
 begin
  x1:=-b/(2*a);
  writeln('Один корень x1=',x1:0:2);
 end
else
 begin
  x1:=(-b+sqrt(d))/(2*a);
  x2:=(-b-sqrt(d))/(2*a);
  writeln('x1=',x1:0:2,' x2=',x2:0:2);
 end;
end;
0
Ce7eH_111
34 / 34 / 19
Регистрация: 17.11.2012
Сообщений: 109
Записей в блоге: 2
11.12.2012, 19:46  [ТС] 3
Да это я знаю но можно ли както все-таки функию масивом сделать???
0
Puporev
Модератор
54584 / 42090 / 29061
Регистрация: 18.05.2008
Сообщений: 99,281
11.12.2012, 19:50 4
Массив результатом функции в Паскаль АВС и Турбо быть не может, а вот один корень уравнения может, второй корень как параметр функции, но это уродство пиши сам.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2012, 19:50

Как раскрыть модуль в квадратном уравнении?
Есть неравенство , я вот не пойму здесь как раскрыть модуль в квадратном...

Программа по нахождению корней в квадратном уравнении
Как составить программу в qbasic по поиску корней в квадратном уравнении или...

Определить наличие вещественных корней в квадратном уравнении
Даны три квадратных уравнения (ax^2+bx+c=0 , bx^2+ax+c=0 , cx^2+ax+b=0)....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru