Pascal (классы).

[Kroleg]

Нужно создать класс, который решает квадратные уравнения (коэффициенты внутри класса и методы для исчисления дискриминанта). Это что-то из Объектно-ориентированного программирования.
А вот обычная программа, которая решает квадратные уравнения:

program Quadratic;

var
A,B,C,D: integer;

begin
write('A = ');
readln(A);
if (A=0) then
begin
writeln('Not a quadratic equation.');
halt;
end;
write('B = ');
readln(B);
write('C = ');
readln(C);
D := B*B-4*A*C;
if (D=0) then
begin
writeln('x = ',-B/2.0/A);
halt;
end;
if (D>0) then
begin
writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
end
else
begin
writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,')');
writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,')');
end;
end.

Можно ли как-то её переделать под ООП?

[Zer0]

можно) для начала почитайте как писать пользовательские процедуры и функции, потом создание классов и методов, там не так уж сложно, тем более не обязательно использовать какие-то динамические структуры