Написать программу, которая выводит на экран значения функции y=f(x). аргумент x принимает значения от x1 до x2 с шагом дельто x, а цикл организуется с оператора repeat. a) y=2x; b)y=x/3+9; c) y=x-4; d) y= x/8-6. ( это 4 программы, решить хотя бы 1, чтобы я смогла разобраться с этой темой))
290
484
Ответы на вопрос:
Давайте сделаем так: опишем 4 функции в программе. когда надо - вытащим ок? uses crt; var x1, x2 , dx, y: real; i: integer; function f1 (x: real): real; begin f1: =2*x; end; function f2 (x: real): real; begin f2: =x/3+9; end; function f3 (x: real): real; begin f3: =x-4; end; function f4 (x: real): real; begin f4: =x/8-6; end; begin clrscr; write(' x1 = '); readln(x1); write(' x2 = '); readln(x2); write (' dx = '); readln(dx); i: =1; repeat writeln(f1(i): 6: 3); i: =i+1; until i> x2; readln; end. например, задавая х1= -10 х2= 10 dx = 1 получаем значения для первой функции записав writeln (f3(i): 6: 3); - получаем значения для третьей функции и так
Чтобы не загромождать программу, предполагаем без поверки, что x2> x1 и dx> 0. либо, x2< x1 и dx< 0. в любых иных вариантах программа зациклится. в программе описана функция для подвопроса а); прочие варианты закомментированы. для получения других вариантов достаточно закомментировать строку y: =2*x; и снять комментарий с нужной строки. function f(x: real): real; begin f: =2*x; { f: =x/3+9; f: =x-4; f: =x/8-6; } end; var x,x1,x2,dx,y: real; begin writeln('введите начальное значение, шаг табуляции, конечное значение'); read(x1,dx,x2); x: =x1; repeat y: =f(x); writeln('x=',x,', y=',y); x: =x+dx until x> x2+dx/2 { +dx/2 - это защита от накопления погрешности } end. тестовое решение: введите начальное значение, шаг табуляции, конечное значение 0 0.33 3.3 x=0, y=0 x=0.33, y=0.66 x=0.66, y=1.32 x=0.99, y=1.98 x=1.32, y=2.64 x=1.65, y=3.3 x=1.98, y=3.96 x=2.31, y=4.62 x=2.64, y=5.28 x=2.97, y=5.94 x=3.3, y=6.6 сомневающиеся в пользе "довеска" dx/2 в последней формуле, могут попробовать выполнить этот же контрольный пример, изменив предпоследнюю строку на более привычное until x> x2. и убедиться, что решение для х=3.3 пропадет.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Анна111111111111111213.07.2020 22:12
-
masterplay838oyfq9n12.03.2023 17:07
-
Stapanmm13.06.2022 14:51
-
Subina0014.07.2020 15:11
-
FrostMorne08.05.2020 15:37
-
Krolya199927.04.2023 21:00
-
07Лизочек0726.01.2021 06:02
-
Soqr24.04.2023 04:39
-
Jlu4shiyFisik27.07.2020 23:26
-
zhanar777704.07.2021 16:33
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.