Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Ce7eH_111
33 / 33 / 2
Регистрация: 17.11.2012
Сообщений: 109
Записей в блоге: 2
#1

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

10.12.2012, 22:51. Просмотров 321. Ответов 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 в квадратном уравнении - Pascal ABC
Написал программу для нахождения корней квадратного уравнения. Если не вводить коэффициенты равные нулю, то все прекрасно работает. Но...

Решение уравнении - Pascal
1) Ввести a,b,c и решить уравнение ax2(в квадрате)+bx+c=0 2) Ввести два числа a и b.Если а&gt;b,то вывести на экран их сумму,а если...

Первая производная функция в нелинейном уравнении - Pascal
Не могу победить первую производную функцию в нелинейном уравнении Уравнение: F = x^3 + 4Lnx - 5 Добавлено через 10 минут Вроде...

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

Найти значение b в квадратном уравнении - Алгебра
найти значение b в уравнении 5x2+bx-28=0 если корни уравнения связаны зависимостью 5x1+2x2=1 мое решение 5x2+bx-28=0 система ...

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

3
Puporev
Модератор
52972 / 40783 / 14032
Регистрация: 18.05.2008
Сообщений: 94,838
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
33 / 33 / 2
Регистрация: 17.11.2012
Сообщений: 109
Записей в блоге: 2
11.12.2012, 19:46  [ТС] #3
Да это я знаю но можно ли както все-таки функию масивом сделать???
0
Puporev
Модератор
52972 / 40783 / 14032
Регистрация: 18.05.2008
Сообщений: 94,838
11.12.2012, 19:50 #4
Массив результатом функции в Паскаль АВС и Турбо быть не может, а вот один корень уравнения может, второй корень как параметр функции, но это уродство пиши сам.
0
11.12.2012, 19:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2012, 19:50
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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