Метод Наименьших Квадратов, Подгоняем к квадратичной функции Опции

[Вячеслав Л.]

var
x: array[1..999] of real;
y: array[1..999] of real;
i,N: integer;
k1,l1,m1,n1,k2,l2,m2,n2,k3,l3,m3,n3: real;
begin
writeln('Vvedite koli4estvo par x u y');
readln(N);
k1:=0;
l1:=0;
m1:=0;
n1:=0;

k2:=0;
l2:=0;
m2:=0;
n2:=0;

k3:=0;
l3:=0;
m3:=0;
n3:=0;

for i:=1 to N do
 begin
  writeln('Vvedite x');
  readln(x[i]);
  writeln('Vvedite sootvetstvyuywii y');
  readln(y[i]);
  k1:=x[i]*x[i]*x[i]*x[i]+k1;
  l1:=x[i]*x[i]*x[i]+l1;
  m1:=x[i]*x[i]+m1;
  n1:=y[i]*x[i]*x[i]+n1;

  k2:=x[i]*x[i]*x[i]+k2;
  l2:=x[i]*x[i]+l2;
  m2:=x[i]+m2;
  n2:=x[i]*y[i]+n2;
  
  k3:=x[i]*x[i]+k3;
  l3:=x[i]+l3;
  m3:=N;
  n3:=y[i]+n3;
 end;
writeln('Vasha sustema:');
writeln(k1,'a',' + ',l1,'b',' + ',m1,'c',' - ',n1,' = 0');
writeln(k2,'a',' + ',l2,'b',' + ',m2,'c',' - ',n2,' = 0');
writeln(k3,'a',' + ',l3,'b',' + ',m3,'c',' - ',n3,' = 0');
//readln;
end.

Что он выводит? Как сделать вывод десятичными дробями, без экспоненты?

[volvo]

Как сделать вывод десятичными дробями, без экспоненты?

Использовать форматирование вывода:

writeln(k1:5 :2,'a',' + ',l1:5 :2,'b',' + ',m1:5 :2,'c',' - ',n1:5 :2,' = 0');

Ну, параметры сам подберешь. Первая цифра - сколько всего знаков (включая точку) выводить, вторая - точность, т.е., сколько цифр после запятой.

[Вячеслав Л.]

Спасибо