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

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

10.12.2012, 22:51. Просмотров 330. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос ошибки в квадратном уравнении (Pascal ABC):

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

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

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

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

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

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

3
Puporev
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,321
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
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,321
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)....

Определить функцию, позволяющую распознать наличие вещественных корней в квадратном уравнении
Даны три квадратных уравнения ax2+bx+c, bx2+ax+c, cx2+ax+b. Сколько из них...

Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнении
Даны три квадратных уравнения ax^2+bx+с, bx^2+ax+с, cx^2+ax+b. Сколько из них...


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

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

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