Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Составить программу вычисления функции и вывести результаты

Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вычислений напечатать:



Для вычисления ln x воспользоваться равенством

Ответ: Ой в функции у меня ошибочка
Pascal
7
sum:=sum+power(x-1,2*n-1)/(2*n+1)/power(x+1,2*n+1);
Вопрос: Составить программу вычисления функции с использованием простых типов данных

Составить программу вычисления функции с использованием простых типов данных

Добавлено через 24 минуты
http://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{x}{1+\frac{x}{2+\frac{x}{3+\frac{x}{...................

Добавлено через 27 секунд
.....

Добавлено через 51 секунду
http://www.cyberforum.ru/cgi-bin/latex.cgi?100+\frac{x}{101}
Ответ:
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  x:integer;
function z(a,b:integer):real;
  begin
    if b<101 then z:=a/(b+z(a,b+1)) else z:=a/b;
  end;
begin
  write('Enter X:=');
  readln(x);
  writeln(z(x,1):20:18);
end.
Вопрос: Составить программу вычисления функции при заданных значениях аргументов

Составить программу вычисления функции при заданных значениях аргументов.

x=1(0,5)3; a=2
Для вычисления ln x воспользоваться равенством
Ответ: Да... переставить бы Вам руки туда, откуда у всех растут..
Вопрос: Составить программу вычисления функции Y(x)

Составить программу вычисления функции Y(x) для x =6.37 ,
a =2.56, b = 7.18.
 Комментарий модератора zss
Используйте редактор формул внизу страницы
Ответ: zss, Я же отправил, скриншот выше.... что вроде как его нету в списке ...

Добавлено через 1 час 9 минут
Все, разобрался Спасибо за помощь

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace lab1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            Application.Exit();
        }
 
        private void button4_Click(object sender, EventArgs e)
        {
            double x = 6.37, a = 2.56, b = 7.18;
            double y = (0.8 * Math.Cos(x + b)) / Math.Pow((0.21 * x + a), 1.0 / 5.0);
            textBox1.Text = "y=" + y.ToString();
            
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            string b1 = button1.BackColor.Name;
            button1.BackColor = button2.BackColor;
            button2.BackColor = Color.FromName(b1);
        }
 
        private void button2_Click(object sender, EventArgs e)
        {
            string b2 = button2.BackColor.Name;
            button2.BackColor = button1.BackColor;
            button1.BackColor = Color.FromName(b2);
        }
 
        private void textBox1_TextChanged(object sender, EventArgs e)
        {
 
        }
 
        private void textBox1_TextChanged_1(object sender, EventArgs e)
        {
 
        }
    }
}
Вопрос: Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов

Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вывести на экран дисплея. Проверьте пожалуйста, правильно ли написал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const a=1.45;
var y, x : real;
    k, n: integer;
begin
x:=1;
while x<=1.8 do
 begin
  if a<=x then
   begin
    for k:=1 to 10 do
    y:=exp(k*ln(a))*exp(k*ln(x));
   end;
  x:=x+0.1;
  if (a>x) then
  begin
  for n:=1 to 8 do
  y:=exp(n*ln(a))-exp(n*ln(x));
  end;
  x:=x+1;
  write('Значение у по условиям равно: '+y)
 end;
end.
Ответ: Ок, будем считать, что
Шах расписался в полном неумении (q) ВСВ

Кликните здесь для просмотра всего текста
Подумайте ещё...
Стоит ли стремиться на все готовое?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const a=1.45;
var x, y, ta, tx: Real; k: Integer;
begin
  x:=1;
  while x<=1.85 do begin
    ta:=1; tx:=1; 
    if a<=x then begin
      y:=0;
      for k:=1 to 10 do begin
        ta:=ta*a; tx:=tx*x; y:=y+ta*tx;
      end;
    end else begin
      y:=1;
      for k:=1 to 8 do begin
        ta:=ta*a; tx:=tx*x; y:=y*(ta-tx);
      end;
    end;
    WriteLn(x:8:1,y:16:4);
    x:=x+0.1;
  end;
end.
Вопрос: Нужно составить программу вычисления площади треугольника

Люди добрые! Помогите составить программу в Паскале.
Условие:
Треугольник АВС задан координатами своих величин А (Х1, Y1), В (Х2, Y2), С (Х3, Y3). Точка G делит отрезок АВ в отношении 3:1. Точка М является точкой пересечения медиан. Составить программу вычисления площади треугольника GМВ. Исходные данные: А (2; 4), В (14; 9), С (16; -2).

Добавлено через 41 минуту
Составила следующую программу:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, A, B, C, M, G: integer;
s, GB, BM, MG: real;
begin
writeln ('Введите координаты вершины А');
readln (x1, y1);
writeln ('Введите координаты вершины В');
readln (x2, y2);
writeln ('Введите координаты вершины C');
readln (x3, y3);
writeln ('Введите координаты вершины G');
readln (x4, y4);
writeln ('Введите координаты вершины M');
readln (x5, y5);
writeln ('Координаты вершины А (',x1,',',y1,')');
writeln ('Координаты вершины B (',x2,',',y2,')');
writeln ('Координаты вершины C (',x3,',',y3,')');
writeln ('Координаты вершины G (',x4,',',y4,')');
writeln ('Координаты вершины M (',x5,',',y5,')');
GB:=sqrt(sqr(x4-x2)+sqr(y4-y2));
BM:=sqrt(sqr(x5-x4)+sqr(y5-y4));
MG:=sqrt(sqr(x5-x2)+sqr(y5-y2));
writeln('Стороны треугольника GB=',GB,' cm, BM=',BM,' cm и MG=',MG,' cm');
s:=sqrt(GB*BM*MG);
writeln('Площадь треугольника ',s:2:2);
readln
end.
Нажимаю F9. Просят ввести координаты точки А. Ввожу. Выдает ошибки:
Переменная А нигде не используется
Переменная В нигде не используется
Переменная С нигде не используется
Переменная G нигде не используется
Переменная М нигде не используется.
Умом я понимаю, что переменные А и С действительно нигде не используются, а координат точек G и М у меня нет. Как написать программу?
Ответ: 1. Сообщения типа "Переменная А нигде не используется" - не ошибки, а предупреждения. На них нужно обращать внимание, но они не всегда означают, что код не работает.
2. Зачем ты просишь ввести координаты точек M и G? По условию задачи с клавиатуры вводятся только координаты точек A, B, C. M и G - видимо, должны рассчитываться на основе координат вершин.
3. Просто удали объявления переменных A, B, C, M, G - ты их действительно нигде не используешь и на работу программы они никак не влияют: ведь координаты точек ты сразу считываешь в переменные x, y.
Вопрос: Составить алгоритм и программу вычисления функции

Составить алгоритм и программу вычисления функции, x, y – вводится с клавиатуры

Ответ: JokeR.BY, ничего удивительного. По заданию требуется программа вычисления функции, а не функция вычисления функции.
Imperator225, Вы знания получить желаете, или Вам требуется исключительно халява?

Не по теме:

И ещё. Фотографии текста у нас запрещены. Формулы, - по всем канонам, - это текст, и для их написания есть встроенный в форум редактор формул. Ваши фотографии с текстом в дальнейшем буду не перепечатывать за Вас, а блокировать или удалять.

Вопрос: Используя метод нисходящего проектирования, составить программу вычисления функции

Используя метод нисходящего проектирования, разработать схему алгоритма и составить программу вычисления функц
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function x(a:real):real;
var k,n,i:integer;
    s,s1,p:real;
begin
s:=0;
for k:=0 to 6 do
 begin
  s1:=0;
  for n:=0 to 4 do
   begin
    p:=1;
    for i:=1 to k+n do
    p:=p*a;
    s1:=s1+(k+n)*p;
   end;
  s:=s+s1;
 end;
x:=s;
end;
var a1,a2,da,a:real;
begin
a1:=1;
a2:=1.2;
da:=0.05;
a:=a1;
while a<a2+da/2 do
 begin
  writeln('a=',a:0:2,'  x=',x(a):0:4);
  a:=a+da;
 end;
end.
Вопрос: Составить программу вычисления и печати в виде таблицы значений функции и соответствующих аргументов

Составить программу вычисления и печати в виде таблицы значений функции и соответствующих аргументов, также составить блок-схему программы.
Ответ: Вот, вроде составил программу, но с ответом она не сходится
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program db;
     Const
         X1 = 0.1; X2 =  2.1; dX = 0.2;
         Z1 = 7; Z2 = 13; dZ = 1.5;
         M1 = 1; M2 =  4; dM = 1;
 
      Var
         k, i, M :integer;
         X, Z, F, S :real;
         Rezultat:text;
 
 begin
    Assign(Rezultat,'Rez.dat');
    Rewrite(Rezultat);
    K:=1;
        x:=X1;
   repeat
       Z:=Z1;
       repeat
          M:=M1;
          repeat
             S:=0;
             For i:=1 to M do S:=S+(exp(((-i)*x)*Ln(2))/((exp((1/i)*Ln(1))+(exp(2*Ln(x))))));
             F:= S+(cos(x)/sin(z));
             WriteLn(k:2,'. X=',X:2:1,'  Z=',Z:2:1,'  M=',M:1,' F=',F);
            Writeln(Rezultat,k:2,'. X=',X:2:1,' Z=',Z:2:1,' M=', M:1,'F=',F);
             k:=k+1;
             M:=M+dM;
          until M>M2;
         Z:=Z+dZ;
       until Z>Z2;
       X:=X+dX;
    until X>X2;
    Close(Rezultat);
 end.
Результат выполнения программы
Кликните здесь для просмотра всего текста
1. X=0.1 Z=7.0 M=1 F=2.43829193835057
2. X=0.1 Z=7.0 M=2 F=3.30022318913881
3. X=0.1 Z=7.0 M=3 F=4.10443348256083
4. X=0.1 Z=7.0 M=4 F=4.85478821845707
5. X=0.1 Z=8.5 M=1 F=2.16990678112454
6. X=0.1 Z=8.5 M=2 F=3.03183803191278
7. X=0.1 Z=8.5 M=3 F=3.8360483253348
8. X=0.1 Z=8.5 M=4 F=4.58640306123103
9. X=0.1 Z=10.0 M=1 F=-0.90518575642362
10. X=0.1 Z=10.0 M=2 F=-0.0432545056353781
11. X=0.1 Z=10.0 M=3 F=0.760955787786637
12. X=0.1 Z=10.0 M=4 F=1.51131052368287
13. X=0.1 Z=11.5 M=1 F=-0.212765234862278
14. X=0.1 Z=11.5 M=2 F=0.649166015925964
15. X=0.1 Z=11.5 M=3 F=1.45337630934798
16. X=0.1 Z=11.5 M=4 F=2.20373104524422
17. X=0.1 Z=13.0 M=1 F=3.29191076194199
18. X=0.1 Z=13.0 M=2 F=4.15384201273023
19. X=0.1 Z=13.0 M=3 F=4.95805230615224
20. X=0.1 Z=13.0 M=4 F=5.70840704204848
21. X=0.3 Z=7.0 M=1 F=2.19930436993448
22. X=0.3 Z=7.0 M=2 F=2.80458322808718
23. X=0.3 Z=7.0 M=3 F=3.29622243108548
24. X=0.3 Z=7.0 M=4 F=3.69555755186352
25. X=0.3 Z=8.5 M=1 F=1.94161888198871
26. X=0.3 Z=8.5 M=2 F=2.54689774014141
27. X=0.3 Z=8.5 M=3 F=3.03853694313971
28. X=0.3 Z=8.5 M=4 F=3.43787206391775
29. X=0.3 Z=10.0 M=1 F=-1.01087942010306
30. X=0.3 Z=10.0 M=2 F=-0.405600561950356
31. X=0.3 Z=10.0 M=3 F=0.0860386410479437
32. X=0.3 Z=10.0 M=4 F=0.485373761825982
33. X=0.3 Z=11.5 M=1 F=-0.346063519677058
34. X=0.3 Z=11.5 M=2 F=0.259215338475646
35. X=0.3 Z=11.5 M=3 F=0.750854541473946
36. X=0.3 Z=11.5 M=4 F=1.15018966225198
37. X=0.3 Z=13.0 M=1 F=3.01889210477927
38. X=0.3 Z=13.0 M=2 F=3.62417096293198
39. X=0.3 Z=13.0 M=3 F=4.11581016593028
40. X=0.3 Z=13.0 M=4 F=4.51514528670831
41. X=0.5 Z=7.0 M=1 F=1.90145477488998
42. X=0.5 Z=7.0 M=2 F=2.30145477488997
43. X=0.5 Z=7.0 M=3 F=2.58429748736459
44. X=0.5 Z=7.0 M=4 F=2.78429748736459
45. X=0.5 Z=8.5 M=1 F=1.66474206345529
46. X=0.5 Z=8.5 M=2 F=2.06474206345529
47. X=0.5 Z=8.5 M=3 F=2.3475847759299
48. X=0.5 Z=8.5 M=4 F=2.5475847759299
49. X=0.5 Z=10.0 M=1 F=-1.04745521302287
50. X=0.5 Z=10.0 M=2 F=-0.64745521302287
51. X=0.5 Z=10.0 M=3 F=-0.364612500548251
52. X=0.5 Z=10.0 M=4 F=-0.164612500548251
53. X=0.5 Z=11.5 M=1 F=-0.4367480457343
54. X=0.5 Z=11.5 M=2 F=-0.0367480457343005
55. X=0.5 Z=11.5 M=3 F=0.246094666740319
56. X=0.5 Z=11.5 M=4 F=0.446094666740319
57. X=0.5 Z=13.0 M=1 F=2.65433704435854
58. X=0.5 Z=13.0 M=2 F=3.05433704435854
59. X=0.5 Z=13.0 M=3 F=3.33717975683316
60. X=0.5 Z=13.0 M=4 F=3.53717975683316
61. X=0.7 Z=7.0 M=1 F=1.57730281513543
62. X=0.7 Z=7.0 M=2 F=1.83161767528819
63. X=0.7 Z=7.0 M=3 F=1.98816683494201
64. X=0.7 Z=7.0 M=4 F=2.08453414660284
65. X=0.7 Z=8.5 M=1 F=1.37099986902657
66. X=0.7 Z=8.5 M=2 F=1.62531472917932
67. X=0.7 Z=8.5 M=3 F=1.78186388883315
68. X=0.7 Z=8.5 M=4 F=1.87823120049397
69. X=0.7 Z=10.0 M=1 F=-0.992769635258225
70. X=0.7 Z=10.0 M=2 F=-0.738454775105473
71. X=0.7 Z=10.0 M=3 F=-0.581905615451646
72. X=0.7 Z=10.0 M=4 F=-0.485538303790821
73. X=0.7 Z=11.5 M=1 F=-0.460518168668973
74. X=0.7 Z=11.5 M=2 F=-0.206203308516222
75. X=0.7 Z=11.5 M=3 F=-0.0496541488623949
76. X=0.7 Z=11.5 M=4 F=0.0467131627984302
77. X=0.7 Z=13.0 M=1 F=2.23346457900146
78. X=0.7 Z=13.0 M=2 F=2.48777943915421
79. X=0.7 Z=13.0 M=3 F=2.64432859880803
80. X=0.7 Z=13.0 M=4 F=2.74069591046886
81. X=0.9 Z=7.0 M=1 F=1.2422232104802
82. X=0.9 Z=7.0 M=2 F=1.40088320426433
83. X=0.9 Z=7.0 M=3 F=1.48590698971632
84. X=0.9 Z=7.0 M=4 F=1.53147010818224
85. X=0.9 Z=8.5 M=1 F=1.07455467713193
86. X=0.9 Z=8.5 M=2 F=1.23321467091605
87. X=0.9 Z=8.5 M=3 F=1.31823845636805
88. X=0.9 Z=8.5 M=4 F=1.36380157483396
89. X=0.9 Z=10.0 M=1 F=-0.846551024129685
90. X=0.9 Z=10.0 M=2 F=-0.687891030345564
91. X=0.9 Z=10.0 M=3 F=-0.602867244893567
92. X=0.9 Z=10.0 M=4 F=-0.557304126427652
93. X=0.9 Z=11.5 M=1 F=-0.413974444596035
94. X=0.9 Z=11.5 M=2 F=-0.255314450811914
95. X=0.9 Z=11.5 M=3 F=-0.170290665359917
96. X=0.9 Z=11.5 M=4 F=-0.124727546894002
97. X=0.9 Z=13.0 M=1 F=1.77550536985653
98. X=0.9 Z=13.0 M=2 F=1.93416536364065
99. X=0.9 Z=13.0 M=3 F=2.01918914909264
100. X=0.9 Z=13.0 M=4 F=2.06475226755856
101. X=1.1 Z=7.0 M=1 F=0.901512575395936
102. X=1.1 Z=7.0 M=2 F=0.999991145904547
103. X=1.1 Z=7.0 M=3 F=1.04593302352651
104. X=1.1 Z=7.0 M=4 F=1.06736566728372
105. X=1.1 Z=8.5 M=1 F=0.779162870124194
106. X=1.1 Z=8.5 M=2 F=0.877641440632806
107. X=1.1 Z=8.5 M=3 F=0.923583318254765
108. X=1.1 Z=8.5 M=4 F=0.945015962011982
109. X=1.1 Z=10.0 M=1 F=-0.622690606204552
110. X=1.1 Z=10.0 M=2 F=-0.52421203569594
111. X=1.1 Z=10.0 M=3 F=-0.478270158073981
112. X=1.1 Z=10.0 M=4 F=-0.456837514316764
113. X=1.1 Z=11.5 M=1 F=-0.307034376878175
114. X=1.1 Z=11.5 M=2 F=-0.208555806369564
115. X=1.1 Z=11.5 M=3 F=-0.162613928747605
116. X=1.1 Z=11.5 M=4 F=-0.141181284990388
117. X=1.1 Z=13.0 M=1 F=1.29065485345739
118. X=1.1 Z=13.0 M=2 F=1.389133423966
119. X=1.1 Z=13.0 M=3 F=1.43507530158796
120. X=1.1 Z=13.0 M=4 F=1.45650794534518
121. X=1.3 Z=7.0 M=1 F=0.558136533134639
122. X=1.3 Z=7.0 M=2 F=0.619451956497692
123. X=1.3 Z=7.0 M=3 F=0.644353756277811
124. X=1.3 Z=7.0 M=4 F=0.654467029550303
125. X=1.3 Z=8.5 M=1 F=0.485983352591793
126. X=1.3 Z=8.5 M=2 F=0.547298775954846
127. X=1.3 Z=8.5 M=3 F=0.572200575734964
128. X=1.3 Z=8.5 M=4 F=0.582313849007456
129. X=1.3 Z=10.0 M=1 F=-0.340730424507316
130. X=1.3 Z=10.0 M=2 F=-0.279415001144264
131. X=1.3 Z=10.0 M=3 F=-0.254513201364145
132. X=1.3 Z=10.0 M=4 F=-0.244399928091653
133. X=1.3 Z=11.5 M=1 F=-0.154578763140622
134. X=1.3 Z=11.5 M=2 F=-0.0932633397775697
135. X=1.3 Z=11.5 M=3 F=-0.0683615399974513
136. X=1.3 Z=11.5 M=4 F=-0.0582482667249592
137. X=1.3 Z=13.0 M=1 F=0.787625055264391
138. X=1.3 Z=13.0 M=2 F=0.848940478627444
139. X=1.3 Z=13.0 M=3 F=0.873842278407562
140. X=1.3 Z=13.0 M=4 F=0.883955551680054
141. X=1.5 Z=7.0 M=1 F=0.21645482846528
142. X=1.5 Z=7.0 M=2 F=0.254916366926819
143. X=1.5 Z=7.0 M=3 F=0.268514574257329
144. X=1.5 Z=7.0 M=4 F=0.273322266565021
145. X=1.5 Z=8.5 M=1 F=0.197374692267045
146. X=1.5 Z=8.5 M=2 F=0.235836230728583
147. X=1.5 Z=8.5 M=3 F=0.249434438059094
148. X=1.5 Z=8.5 M=4 F=0.254242130366786
149. X=1.5 Z=10.0 M=1 F=-0.021240916155672
150. X=1.5 Z=10.0 M=2 F=0.0172206223058665
151. X=1.5 Z=10.0 M=3 F=0.030818829636377
152. X=1.5 Z=10.0 M=4 F=0.0356265219440693
153. X=1.5 Z=11.5 M=1 F=0.0279848979481864
154. X=1.5 Z=11.5 M=2 F=0.0664464364097248
155. X=1.5 Z=11.5 M=3 F=0.0800446437402354
156. X=1.5 Z=11.5 M=4 F=0.0848523360479277
157. X=1.5 Z=13.0 M=1 F=0.277140611478923
158. X=1.5 Z=13.0 M=2 F=0.315602149940462
159. X=1.5 Z=13.0 M=3 F=0.329200357270972
160. X=1.5 Z=13.0 M=4 F=0.334008049578664
161. X=1.7 Z=7.0 M=1 F=-0.11699195006956
162. X=1.7 Z=7.0 M=2 F=-0.0926391774713857
163. X=1.7 Z=7.0 M=3 F=-0.0851437324879601
164. X=1.7 Z=7.0 M=4 F=-0.0828367386837405
165. X=1.7 Z=8.5 M=1 F=-0.0822383771038126
166. X=1.7 Z=8.5 M=2 F=-0.0578856045056378
167. X=1.7 Z=8.5 M=3 F=-0.0503901595222123
168. X=1.7 Z=8.5 M=4 F=-0.0480831657179926
169. X=1.7 Z=10.0 M=1 F=0.315959697576231
170. X=1.7 Z=10.0 M=2 F=0.340312470174406
171. X=1.7 Z=10.0 M=3 F=0.347807915157831
172. X=1.7 Z=10.0 M=4 F=0.350114908962051
173. X=1.7 Z=11.5 M=1 F=0.226297186549972
174. X=1.7 Z=11.5 M=2 F=0.250649959148147
175. X=1.7 Z=11.5 M=3 F=0.258145404131572
176. X=1.7 Z=11.5 M=4 F=0.260452397935792
177. X=1.7 Z=13.0 M=1 F=-0.227528256835718
178. X=1.7 Z=13.0 M=2 F=-0.203175484237543
179. X=1.7 Z=13.0 M=3 F=-0.195680039254117
180. X=1.7 Z=13.0 M=4 F=-0.193373045449898
181. X=1.9 Z=7.0 M=1 F=-0.433957188112009
182. X=1.9 Z=7.0 M=2 F=-0.418383728852288
183. X=1.9 Z=7.0 M=3 F=-0.414210923763673
184. X=1.9 Z=7.0 M=4 F=-0.413092848324095
185. X=1.9 Z=8.5 M=1 F=-0.346755421265181
186. X=1.9 Z=8.5 M=2 F=-0.33118196200546
187. X=1.9 Z=8.5 M=3 F=-0.327009156916845
188. X=1.9 Z=8.5 M=4 F=-0.325891081477267
189. X=1.9 Z=10.0 M=1 F=0.652381435866818
190. X=1.9 Z=10.0 M=2 F=0.66795489512654
191. X=1.9 Z=10.0 M=3 F=0.672127700215154
192. X=1.9 Z=10.0 M=4 F=0.673245775654733
193. X=1.9 Z=11.5 M=1 F=0.427405161078644
194. X=1.9 Z=11.5 M=2 F=0.442978620338365
195. X=1.9 Z=11.5 M=3 F=0.44715142542698
196. X=1.9 Z=11.5 M=4 F=0.448269500866558
197. X=1.9 Z=13.0 M=1 F=-0.711308850924687
198. X=1.9 Z=13.0 M=2 F=-0.695735391664966
199. X=1.9 Z=13.0 M=3 F=-0.691562586576351
200. X=1.9 Z=13.0 M=4 F=-0.690444511136773
201. X=2.1 Z=7.0 M=1 F=-0.725310665092103
202. X=2.1 Z=7.0 M=2 F=-0.715253472817425
203. X=2.1 Z=7.0 M=3 F=-0.712907549768799
204. X=2.1 Z=7.0 M=4 F=-0.712360343868806
205. X=2.1 Z=8.5 M=1 F=-0.58913716362729
206. X=2.1 Z=8.5 M=2 F=-0.579079971352612
207. X=2.1 Z=8.5 M=3 F=-0.576734048303986
208. X=2.1 Z=8.5 M=4 F=-0.576186842403993
209. X=2.1 Z=10.0 M=1 F=0.971106042421491
210. X=2.1 Z=10.0 M=2 F=0.981163234696169
211. X=2.1 Z=10.0 M=3 F=0.983509157744795
212. X=2.1 Z=10.0 M=4 F=0.984056363644789
213. X=2.1 Z=11.5 M=1 F=0.619785097993516
214. X=2.1 Z=11.5 M=2 F=0.629842290268194
215. X=2.1 Z=11.5 M=3 F=0.63218821331682
216. X=2.1 Z=11.5 M=4 F=0.632735419216814
217. X=2.1 Z=13.0 M=1 F=-1.15842054838874
218. X=2.1 Z=13.0 M=2 F=-1.14836335611407
219. X=2.1 Z=13.0 M=3 F=-1.14601743306544
220. X=2.1 Z=13.0 M=4 F=-1.14547022716545
Вопрос: Программа вычисления функции при заданных значениях

Помогите составить программу вычисления функции при заданных значениях аргументов. Или хотя бы каким алгоритмом руководствоваться при написание?
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var k,n:byte;
    x,p1,p2:real;
begin
x:=-0.5;
while x<=4.5 do
 begin
  p1:=1;
  for k:=0 to 8 do
   begin
    p2:=1;
    for n:=1 to 5 do
    p2:=p2*(k+sin(x)/n);
    p1:=p1*p2;
   end;
  writeln('x=',x:5:1,' y=',p1);
  x:=x+1;
 end;
end.