Есть ответ 👍

Доделать код 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. ошибка: fatal: syntax error, "begin" expected but "end of file" found lazarus.

244
462
Посмотреть ответы 2

Ответы на вопрос:

mareta340
4,8(35 оценок)

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, step: double;       a, b, c, d, i: integer; begin       //чистка предыдущих графиков       //считываем переменные       a : = strtoint(edit1.text);       b : = strtoint(edit2.text);       c : = strtoint(edit3.text);       d : = strtoint(edit4.text);             step : = (max - min) / n;       x : = min;             repeat               //рисуем графики               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));               //следующий               x : = x + step;       until x > max; end; end.

if its python correct answer is 165

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS