Для аргумента, изменяющегося от 0 с шагом 0.04 вычислить 20 значений функций

@rivers · Регистрация: 22.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте, подскажите пожалуйста где ошибка.Вот задание:

Для аргумента , изменяющегося от 0 с шагом 0.04 вычислить 20 значений функций:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 program labrab1;
uses CRT;             {подключаем модуль CRT для использования процедуры ClrScr}
const
     eps1 = 0.01;     {Точность 10е-2}
     eps2 = 0.001;    {Точность 10е-3}
     eps3 = 0.0001;   {Точность 10е-4}
     step_x = 0.04;   {задаем шаг}
     N = 19;          {Количество значений}
var
     f1, f2_1, f2_2, f2_3,x,SUM,stepen:real;
     {f1   - запоминает знечения функции f1
      f2_1 - запоминает значения функции f2 для точности 10е-2
      f2_2 - запоминает значения функции f2 для точности 10е-3
      f2_3 - запоминает значения функции f2 для точности 10е-4
      x    - ргумент функций}
     k1,k2,k3,i:integer;
     {k1 - запоминает на каком шаге была достигнута точность 10е-2
      k2 - запоминает на каком шаге была достигнута точность 10е-3
      k3 - запоминает на каком шаге была достигнута точность 10е-4}
Begin
     ClrScr;          {Очистка экрана пользователя}
     {Вывод на экран шапки таблицы}
     writeln('|-------------------------------------------------------------|');
     writeln('|       |           |    e=0.01   |   e=0.001   |   e=0.0001  |');
     writeln('|   x   |   f1(x)   |-------------|-------------|-------------|');
     writeln('|       |           |  f2(x)  | K |  f2(x)  | K |  f2(x)  | K |');
     writeln('|-------------------------------------------------------------|');
     writeln('|',x:7:2,'|', '       f1(x) и f2(x) для х=0 не существует           |');
     x:=0.04;             {задаем начальное значение Х в связи с тем, что в
                           точке х=0 функции f1 и f2 не существуют}
     {вычисляем оставшиеся 19 значения для f1(x) и f2(x)}
     for i:=1 to N do
     begin
          {вычисляем F1(x)}
          f1:=;
          stepen:=1; {Задаем начальное значение x^k-1}
          k1:=0;     {начальное значение k для f2_1}
          SUM:=0;
          {Вычисляем значение функции f2 для точности 10е-2}
          f2_1:=1/(2*x);
          repeat
                inc(k1);
                SUM:=stepen/(2*k1*(2*k1-1)*(2*k1+1));
                f2_1:=f2_1+SUM;
                stepen:=stepen*x;
          until abs(SUM)<=eps1;
          f2_2:=f2_1;
          k2:=k1;    {начальное значение k для f2_2}
          {Вычисляем значение функции f2 для точности 10е-3}
          repeat
                inc(k2);
                SUM:=stepen/(2*k2*(2*k2-1)*(2*k2+1));
                f2_2:=f2_2+SUM;
                stepen:=stepen*x;
          until abs(SUM)<=eps2;
          f2_3:=f2_2;
          k3:=k2;    {начальное значение k для f2_3}
          {Вычисляем значение функции f2 для точности 10е-4}
          repeat
                inc(k3);
                SUM:=stepen/(2*k3*(2*k3-1)*(2*k3+1));
                f2_3:=f2_3+SUM;
                stepen:=stepen*x;
          until abs(SUM)<=eps3;
          {Выводим на экран построчно таблицу аргументов и функций f1 и f2 для заданных точностей}
          writeln('|',x:7:2,'|',f1:10:4,'|',f2_1:10:2,'|', k1:3,'|',f2_2:9:3,'|',
                                   k2:3,'|',f2_3:9:4,'|',k3:3,'|');
          x:=x+step_x;  {находим следующее значение x}
     end;
     writeln('|______________________________________________________________');
end.

@Ded_Vasilij · 30.01.2013, 17:42

Вроде все робит. Строка 36 f1 не присвоено значение. Эта единственная ошибка о которой сообщил компилятор. Если ваша проблема именно в этом заключалась. Вы не указали конкретную ошибку

@rivers · 30.01.2013, 17:55 **[ТС]**

При вводе значения в f1 там формула ln(1+sqrt((1*x*x)) не совпадает значения f1-f2

@Leshak · 30.01.2013, 19:22

Пройдитесь Дебагом, на каждом этапе можно просмотреть значение переменных ( полезно иногда пользоваться возможностями компилятора

).

@rivers · 30.01.2013, 19:32 **[ТС]**

Сообщение от Leshak

Пройдитесь Дебагом, на каждом этапе можно просмотреть значение переменных ( полезно иногда пользоваться возможностями компилятора

).

а какую вкладку нужно открывать

@Leshak · 30.01.2013, 19:52

Сверху когда находитесь в среде написано

File Edit Search Run Compile Debug

после того как нажмете на дебаг

выберите вкладку

Breakpoints

после выскоичит менюшка, там выбираете Edit

и вводите номера строк( строки ) где выскакивает ошибка. И смотрите после компиляции что же там таки не так.

Думаю заметить будет не сложно.

@rivers · 30.01.2013, 20:31 **[ТС]**

Сообщение от Leshak

Сверху когда находитесь в среде написано

File Edit Search Run Compile Debug

после того как нажмете на дебаг

выберите вкладку

Breakpoints

после выскоичит менюшка, там выбираете Edit

и вводите номера строк( строки ) где выскакивает ошибка. И смотрите после компиляции что же там таки не так.

Думаю заметить будет не сложно.

Большое спасибо все исправил все работает.

@Витек)) · 30.01.2013, 20:51

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
 
const
     eps1 = 0.01;
     eps2 = 0.001;
     eps3 = 0.0001;
     step_x = 0.04;
     N = 19;
var
     f1, f2_1, f2_2, f2_3,x,SUM,stepen:real;
 
     k1,k2,k3,i:integer;
 
Begin
 
     writeln('|-------------------------------------------------------------|');
     writeln('|       |           |    e=0.01   |   e=0.001   |   e=0.0001  |');
     writeln('|   x   |   f1(x)   |-------------|-------------|-------------|');
     writeln('|       |           |  f2(x)  | K |  f2(x)  | K |  f2(x)  | K |');
     writeln('|-------------------------------------------------------------|');
     writeln('|',x:7:2,'|', '       f1(x) ? f2(x) ??? ?=0 ?? ??????????           |');
     x:=0.04;             {?????? ????????? ???????? ? ? ????? ? ???, ??? ?
                           ????? ?=0 ??????? f1 ? f2 ?? ??????????}
 
     for i:=1 to N do
     begin
 
          f1:=1;
          stepen:=1;
          k1:=0;
          SUM:=0;
 
          f2_1:=1/(2*x);
          repeat
                inc(k1);
                SUM:=stepen/(2*k1*(2*k1-1)*(2*k1+1));
                f2_1:=f2_1+SUM;
                stepen:=stepen*x;
          until abs(SUM)<=eps1;
          f2_2:=f2_1;
          k2:=k1;    {????????? ???????? k ??? f2_2}
          {????????? ???????? ??????? f2 ??? ???????? 10?-3}
          repeat
                inc(k2);
                SUM:=stepen/(2*k2*(2*k2-1)*(2*k2+1));
                f2_2:=f2_2+SUM;
                stepen:=stepen*x;
          until abs(SUM)<=eps2;
          f2_3:=f2_2;
          k3:=k2;
          repeat
                inc(k3);
                SUM:=stepen/(2*k3*(2*k3-1)*(2*k3+1));
                f2_3:=f2_3+SUM;
                stepen:=stepen*x;
          until abs(SUM)<=eps3;
 
          writeln('|',x:7:2,'|',f1:10:4,'|',f2_1:10:2,'|', k1:3,'|',f2_2:9:3,'|',
                                   k2:3,'|',f2_3:9:4,'|',k3:3,'|');
          x:=x+step_x;
     end;
     writeln('|______________________________________________________________');
     readln
end.

@rivers · 31.01.2013, 18:20 **[ТС]**

Изменил вот так все равно ошибки че делать подскажите.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
program labrab1;
uses CRT;             {подключаем модуль CRT для использования процедуры ClrScr}
const
     eps1 = 0.01;     {Точность 10е-2}
     eps2 = 0.001;    {Точность 10е-3}
     eps3 = 0.0001;   {Точность 10е-4}
     step_x = 0.04;   {задаем шаг}
     N = 19;          {Количество значений}
var
     f1, f2_1, f2_2, f2_3,x,SUM,stepen:real;
     {f1   - запоминает знечения функции f1
      f2_1 - запоминает значения функции f2 для точности 10е-2
      f2_2 - запоминает значения функции f2 для точности 10е-3
      f2_3 - запоминает значения функции f2 для точности 10е-4
      x    - ргумент функций}
     k1,k2,k3,i:integer;
     {k1 - запоминает на каком шаге была достигнута точность 10е-2
      k2 - запоминает на каком шаге была достигнута точность 10е-3
      k3 - запоминает на каком шаге была достигнута точность 10е-4}
Begin
     ClrScr;          {Очистка экрана пользователя}
     {Вывод на экран шапки таблицы}
     writeln('|-------------------------------------------------------------|');
     writeln('|       |           |    e=0.01   |   e=0.001   |   e=0.0001  |');
     writeln('|   x   |   f1(x)   |-------------|-------------|-------------|');
     writeln('|       |           |  f2(x)  | K |  f2(x)  | K |  f2(x)  | K |');
     writeln('|-------------------------------------------------------------|');
     writeln('|',x:7:2,'|', '       f1(x) и f2(x) для х=0 не существует           |');
     x:=0.04;             {задаем начальное значение Х в связи с тем, что в
                           точке х=0 функции f1 и f2 не существуют}
     {вычисляем оставшиеся 19 значения для f1(x) и f2(x)}
     for i:=1 to N do
     begin
          {вычисляем F1(x)}
          f1:=ln(1+sqrt(1+x*x));
          stepen:=1; {Задаем начальное значение x^k-1}
          k1:=0;     {начальное значение k для f2_1}
          SUM:=0;
          {Вычисляем значение функции f2 для точности 10е-2}
          f2_1:=2;
          repeat
                inc(k1);
                 if (k1 mod 2)=0) then
                 a:=1;
                 else a:=-1;
                SUM:=a*(2*k1-1)*x*x);
                f2_1:=f2_1-SUM;
                sqr2*(1*3*..*n);
          until abs(SUM)<=eps1;
          f2_2:=f2_1;
          k2:=k1;    {начальное значение k для f2_2}
          {Вычисляем значение функции f2 для точности 10е-3}
          repeat
                inc(k2);
                 if (k2 mod 2)=0) then
                 a:=1;
                 else a:=-1;
                SUM:=a*(2*k2-1)*x*x);
                f2_2:=f2_2-SUM;
                sqr2*(1*3*..*n);
          until abs(SUM)<=eps2;
          f2_3:=f2_2;
          k3:=k2;    {начальное значение k для f2_3}
          {Вычисляем значение функции f2 для точности 10е-4}
          repeat
                inc(k3);
                if (k3 mod 2)=0) then
                 a:=1;
                 else a:=-1
                SUM:=stepen/(2*k3*(2*k3-1)*(2*k3+1));
                f2_3:=f2_3-SUM;
                sqr2*(1*3*..*n);
          until abs(SUM)<=eps3;
          {Выводим на экран построчно таблицу аргументов и функций f1 и f2 для заданных точностей}
          writeln('|',x:7:2,'|',f1:10:4,'|',f2_1:10:2,'|', k1:3,'|',f2_2:9:3,'|',
                                   k2:3,'|',f2_3:9:4,'|',k3:3,'|');
          x:=x+step_x;  {находим следующее значение x}
     end;
     writeln('|______________________________________________________________');
end.

@kpoxaa · 29.01.2014, 00:25

Есть у кого готовое решение этой задачи?

@Puporev · 29.01.2014, 10:06

Сообщение от kpoxaa

решение этой задачи?

Какой? Условие задачи нигде не написано, а по неверному коду его трудно восстановить.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Ded_Vasilij 233 / 215 / 63 Регистрация: 01.09.2012 Сообщений: 2,103
	30.01.2013, 17:42
	Вроде все робит. Строка 36 f1 не присвоено значение. Эта единственная ошибка о которой сообщил компилятор. Если ваша проблема именно в этом заключалась. Вы не указали конкретную ошибку 1

@rivers 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 37
	30.01.2013, 17:55 [ТС]
	При вводе значения в f1 там формула ln(1+sqrt((1xx)) не совпадает значения f1-f2 0

@Leshak 261 / 236 / 161 Регистрация: 10.12.2011 Сообщений: 513
	30.01.2013, 19:22
	Пройдитесь Дебагом, на каждом этапе можно просмотреть значение переменных ( полезно иногда пользоваться возможностями компилятора ). 0

@Leshak 261 / 236 / 161 Регистрация: 10.12.2011 Сообщений: 513
	30.01.2013, 19:52
	Сверху когда находитесь в среде написано File Edit Search Run Compile Debug после того как нажмете на дебаг выберите вкладку Breakpoints после выскоичит менюшка, там выбираете Edit и вводите номера строк( строки ) где выскакивает ошибка. И смотрите после компиляции что же там таки не так. Думаю заметить будет не сложно. 1

@kpoxaa 75 / 36 / 1 Регистрация: 03.08.2012 Сообщений: 447
	29.01.2014, 00:25
	Есть у кого готовое решение этой задачи? 0