Pascal. Решить уравнение

[Иришка]

Надеюсь остались еще умные люди!!
с помощью процедуры!!
1.Вычислить Z=(X1 + Y1 )/ (X2- Y2), где X1и X2 —корни уравнения 2x2+x-4=0, Y1 и Y2 – корни уравнения ay2+2y-1=0 (х2-это х в квадрате)(у2-у в квадрате)
2.Вычислить среднее арифметическое положительных элементов для масси¬вов A(N1), B(N2), C(N3) .Отсортировать массивы, используя пузырьковую сортировку.

[Andrew_86]

#1 Напиши сначала процедуру решения квадратных уравнений,параметиры которой коэфициенты a,b,c,ans1,ans2 (через дескриминант ).A потом процедуру ответа,например:

procedure ANSWER(var Z: real)
var ans_x1,ans_x2,ans_y1,ans_y2:real ;
a,b,c:real;
begin
a:=2;
b:=1;
c:=-4;
uravn(a,b,c,ans_x1,ans_x2);
a:=1;
b:=2;
c:=-1;
uravn(a,b,c,ans_y1,ans_y2);
Z:=(ans_x1+ans_y1)/(ans_x2-ans_y2);
and;

Если не очень строго делать то в процедуре решения квадратного уравнения можно упустить проверки на положительность дескриминанта,наличе одного или ниодного решения и т.д.
Например,

procedure uravn (var a:real, var b:real, var c:real, var ans1:real, var ans2:real)
var D:real;
begin
D:=sqrt(b*b-4*a*c);
ans1:=(-b+D)/(2*a);
ans2:=(-b-D)/(2*a);
end;

[Oleg_Rus]

как находится среднее ариметическое?

[Хыиуду]

как находится среднее ариметическое?

Сумму всех чисел поделить на их количество

[Oleg_Rus]

дык.. это.. организовать цикл перебора для каждого массива, найти положительные (сравнение N1>0 и т.д и т.п.), одновременно считать их кол-во, потом вывести.

и усе..
____________________________________