Регистрация
noeva2005
29.12.2022 23:25
Информатика
Есть ответ 👍

Pascal
Решить
Циклы с параметром y = 2*( n-2)!
Заранее благодарю

216
221
Посмотреть ответы 1

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

smchnc2004
smchnc2004
4,5(48 оценок)
Давайте сделаем так: опишем 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); - получаем значения для третьей функции и так

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