Процедуры и функции, Найти среднее арифметическое действительных корней трёх квадратных ура Опции

[kapa]

вот мой вариант но тут что то не так
помогите плз




program Lab5_1;{Найти среднее арифметическое действительных корней трёх квадратных уравнений}
uses crt ;
var z,x,y,SRA:real;
var a1, b1, c1, a2, b2, c2,a3,b3,c3: real ;
procedure K(a,b,c:real;var x1,x2,k:real);
function dskt(var b,a,c:integer):real;
begin
if (dskt>0) or (dskt<0) then
k:=2;
else
k:=1;
end;
begin
case dskt of
dskt>0:x1:=(-b+sqrt(dskt))/2a;
dskt>0:x2:=(-b-sqrt(dskt))/2a;
dskt=0:x1:=(-b+sqrt(dskt))/2a
else
x1:=0;
x2:=0;
end;
begin
dskt:=sqr(b)-4*(a)*©;
end;
begin
clrscr;
writeln('Введите значение коэфициэнтов первого квадратного уравнения ');
readln(a1,b1,c1);
z:=dskt(a1,b1,c1);
writeln('Введите значение коэфициэнтов второго квадратного уравнения ');
readln(a2,b2,c2);
x:=dskt(a2,b2,c2);
writeln('Введите значение коэфициэнтов третьего квадратного уравнения ');
readln(a3,b3,c3);
y:=dskt(a3,b3,c3);
S:=
writeln('Среднее арифметическое действительных корней трёх квадратных уравнений=',SRA);
readkey ;
end .

[Федосеев Павел]

вот мой вариант

сама суть программы мне не понятна чтобы работала в норме с заданием

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

Начни отладку пошагам - сначала отладь решение квадратных уравнений с выводом корней на экран.
Потом делай это в цикле 3 раза

const
  N = 3;
........
  S:=0;
  for i:=1 to N do begin
    {1. ввод коэффициентов a, b, c}
..................
    {2. решение квадратного уравнения и получение его корней x1, x2}
    SqrEquat(a, b, c, x1, x2);
    {3. сложение корней}
    S:=S+x1+x2;
  end;
  S:=S/(N*2); {вычисление среднего арифметического}

Сообщение отредактировано: Федосеев Павел - 7.05.2012 23:41