perizatvip

24.06.2021 07:51

Математика

Есть ответ 👍

Что тут не так ? unit proect; {$mode objfpc}{$h+} interface uses classes, sysutils, fileutil, tagraph, taseries,forms, controls, graphics, dialogs, stdctrls, extctrls; type { tform1 } tform1 = class(tform) button1: tbutton; chart1: tchart; image5: timage; image6: timage; label14: tlabel; label15: tlabel; sinseries2: tlineseries; cosseries2: tlineseries; edit3: tedit; edit4: tedit; edit1: tedit; edit2: tedit; image1: timage; image2: timage; image3: timage; image4: timage; label1: tlabel; label10: tlabel; label11: tlabel; label12: tlabel; label13: tlabel; label2: tlabel; label3: tlabel; label4: tlabel; label5: tlabel; label6: tlabel; label7: tlabel; label8: tlabel; label9: tlabel; shape1: tshape; sinseries: tlineseries; cosseries: tlineseries; sincosseries: tlineseries; procedure button1click(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.lfm} { tform1 } procedure tform1.button1click(sender: tobject); const n = 100; min = -5; max = 5; var x: double; a,b,c,d,i: integer; begin //чистка предыдущих графиков //считываем переменные с клавиатуры a: =strtoint(edit1.text); b: =strtoint(edit2.text); c: =strtoint(edit3.text); d: =strtoint(edit4.text); for i: =0 to n-1 do begin //задаем для графиков площадь x : = min + (max - min) * i /(n - 1); //рисуем графики sinseries.addxy(x, (a*x+b)); cosseries.addxy(x, (d*x*x)); sincosseries.addxy(x,(c/x)); sinseries2.addxy(x, sin(x)); cosseries2.addxy(x, cos(x)); end; end. это лазарус