Выполнить в паскале для функции разработать и протестировать программу, выполняющую: 1. табулирование функции на отрезке [a; b] с шагом h; 2. нахождение точек локальных экстремумов; 3. нахождение всех действительных корней уравнения на отрезке [a; b], если таковые имеются (решение соответствующего уравнения выполнить с точностью до e=0,0001 метод ньютона) не более, чем за 20 итераций. 4. вычисление определенного интеграла f(x) на интервале табулирования [a; b] одним из перечисленных методов (правых прямоугольников) построение графика заданной функции и ее производной (excel) f(x)= x5+10 • x4 -7 • x3 - 241 • x2 - 220 • x на отрезке[-5, 7]
290
310
Ответы на вопрос:
Первое var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer); var t: integer; begin t : = x; x : = y; y : = t end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); for i: =2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]); end. второе var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer); var t: integer; begin t : = x; x : = y; y : = t end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); if a[1]< > a[2] then writeln('a[1]=',a[1]); for i: =2 to 99 do if (a[i]< > a[i+1]) and (a[i]< > a[i-1]) then writeln('a[',i,']=',a[i]); if a[100]< > a[99] then writeln('a[100]=',a[100]); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Ксения011238714.02.2021 04:50
-
vcurakina15.03.2020 04:24
-
Ksenia2004bi11.04.2020 17:28
-
NikitaZdanovich21.11.2020 07:45
-
муха6831.05.2021 14:54
-
Reiny13.04.2021 06:17
-
Славик1410212.03.2022 18:02
-
tanecka202.06.2020 13:06
-
Dariy6915.07.2020 16:15
-
Kaaaaakkkktus26.10.2020 18:09
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.