Напишите программу для уравнения ax^2+bx=0 на языке Паскаль.

const n=10;

var a,b:array[1..n] of integer;

c:array[1..2*n] of integer;

i,n2:integer;

begin

Randomize;

writeln('a:');

for i:=1 to n do begin

a[i]:=random(21);

write(a[i]:3);

end;

writeln;

writeln('b:');

for i:=1 to n do begin

b[i]:=random(21);

write(b[i]:3);

end;

writeln;

n2:=n div 2;

for i:=1 to n2 do c[i]:=b[i];

for i:=1 to n do c[i+n2]:=a[i];

for i:=n2+1 to n do c[n+i]:=b[i];

writeln('c:');

for i:=1 to 2*n do write(c[i]:3);

end.

Пример:

a:

 3 12 10 16 13 12  9 18  2  0

b:

 6  1 12  6  2 14  8 10 20 11

c:

 6  1 12  6  2  3 12 10 16 13 12  9 18  2  0 14  8 10 20 11

Код программы прикреплен в файле.

В коде присутствуют три функции:

getLengthBeweenPoints - расчет расстояния между двумя точками на плоскости по формулеgetAreaOfTriangle - расчет площади треугольника по трем сторонамmain - ввод координат двух координат для каждой из вершин треугольника и вывод на экран расчитаной площади треугольника

за отметку "лучший ответ" и нажатую кнопочку " ":

На этом ответеВ моем аккаунте

P.S.

К сожалению сайт не позволяет загружать текстовые форматы (знаю, это тупо), по этому файл называется 'main.c.pdf', просто переименуйте его и уберите из названия '.pdf', должно получиться 'main.c', далее можете открыть любым текстовым редактором либо скомпилировать в бинарник за комментарий: на Паскале НЕ надо! Прям от души, просто надоели люди знающие только паскаль и пишущие исключительно на нем ответы, хотя людям такое и не надо...

На всякий случай в коментариях продублирую код.