Синформатикоой вычислить длину кривой в с++ по уравнению 0, 02e^2x=4sin(6x) на отрезке(можно взять любой небольшой)

program qfdw; uses crt; type    vershina=record            tochka: string;             x,y: real;         end;     ps=file of vershina; var f: ps;       z,a,b,c: vershina;   i: integer; begin  assign(f,'1.dat');   rewrite(f);   writeln('введите вершины треугольника и их координаты: ');   for i: =1 to 3 do      begin          writeln(i,'-я вершина');           write('буква: '); read(z.tochka);           write('x='); read(z.x);           write('y='); read(z.y);           write(f,z);       end;   close(f);   assign(f,'1.dat');   reset(f);   read(f,a);     read(f,b);     read(f,c);     close(f);   writeln('cтороны треугольника: ');   writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)): 5: 2);   writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)): 5: 2);   writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)): 5: 2); end.

program qw; uses crt; type    atlas=record            country,capital: string;             area,people: real;         end;     ps=file of atlas; var f: ps;       z,t: atlas; begin  assign(f,'1.dat');   rewrite(f);       z.country: ='латвия'; z.area: =67.7;       z.people: =2.6; z.capital: ='рига';       write(f,z);       z.country: ='литва'; z.area: =65.2;       z.people: =3.4; z.capital: ='вильнюс';       write(f,z);       z.country: ='польша'; z.area: =313;       z.people: =34.8; z.capital: ='варшава';       write(f,z);       z.country: ='украина'; z.area: =603.7;       z.people: =50; z.capital: ='киев';       write(f,z);       z.country: ='россия'; z.area: =17075.4;       z.people: =139; z.capital: ='москва';       write(f,z);   close(f);   assign(f,'1.dat');   reset(f);   read(f,t);   while not(eof(f)) do       begin          read(f,z);             if t.people/t.area < z.people/z.area then t: =z;       end;   close(f);   writeln('cтранa с наибольшей плотностью населения: ');   writeln(t.country,' (плотность населения равна ',t.people/t.area: 9: 6,' млн на кв.км)'); end.