Ответы на вопрос:
Давайте сделаем так: опишем 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); - получаем значения для третьей функции и так
Популярно: Информатика
-
СофияГольдина05.06.2023 18:01
-
kirillmich1627.12.2021 05:51
-
krasilovaen10.06.2021 07:58
-
Islamiks01.03.2022 16:52
-
Madgik200005.11.2021 08:09
-
Ksenia2004bi09.06.2022 10:21
-
Макс77733308.01.2020 22:49
-
Сетора1120.02.2023 15:00
-
skskkslslw30.06.2023 16:07
-
yujejal06.06.2021 23:45