Протабулировать функцию

@kevin19 · Регистрация: 14.06.2024

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

Конструирование программы со структурой вложенных циклов.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Z=\frac{x+2.5\times {10}^{-3}}{{x}^{2}+3.8\times {10}^{-4}}\sum_{n=1}^{10}\frac{{(x+2)}^{2}}{n+4}+\frac{x+1}{x+2}\sum_{n=1}^{7}\frac{{(x+1)}^{n}}{n}$
x=0,1(0,05)0,5

@Пытливый · 14.06.2024, 11:40

Не сталкивался раньше с такой записью. Какая математическая операция предполагается для суммы и выражения слева от него? Умножение? Почему в задаче значение переменной x имеет 3 варианта? И самое непонятное, каким боком к этой задаче вложенные циклы приспособить.

@bormant · 14.06.2024, 12:46

Сообщение от Пытливый

в задаче значение переменной x имеет 3 варианта?

Несколько больше. Даю 9 из 10, что речь про "от 0,1 до 0,5 с шагом 0,05".

@Пытливый · 14.06.2024, 13:28

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

Несколько больше. Даю 9 из 10, что речь про "от 0,1 до 0,5 с шагом 0,05".

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

Добавлено через 39 минут
Если предположение bormant верно и части формулы надо умножать, то примерно так:

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
var
   x,z,z1,z2,z3: Real;
   n: Integer;
begin
 x := 0.1;
 while x <= 0.55
 do begin
    z1 := (x+2.5*0.001)/(Sqr(x)+3.8*0.0001);
 
    z2 := 0;
    for n := 1 to 10
    do z2 := z2 + Sqr(x+2)/(n+4);
 
    z3 := 0;
    for n := 1 to 7
    do z3 := z3 + Exp(Ln(x+1)*n);
 
    z := z1 * z2 + (x+1)/(x+2) * z3;
 
    WriteLn('x=',x:1:2,' z=',z:2:3);
    x := x + 0.05;
    end;
 ReadLn;
end.

@Cyborg Drone · 14.06.2024, 15:22

Задание совершенно ясное и понятное. Запись типа x=0,1(0,05)0,5 - общепринятое обозначение изменения "x" от и до с таким-то шагом. Какая-либо величина, записанная перед знаком суммы без применения знаков операций между величиной и знаком суммы все века означала умножение величины на сумму.

Пытливый,

Ошибка: при вычислении z3 забыли на n разделить.

Зачем писать 2.5*0.001, если число 2.5∙10^-3 в паскале записывается как 2.5E-3?

Использование "волшебных" чисел не есть хорошо в любом виде. Чтобы избавиться от ошибок усечения при не дробном количестве интервалов табуляции, в цикле по x к конечному значению x проще всего добавить половину шага табуляции (если точнее, нужно добавить число, бОльшее ошибки усечения, но не бОльшее, чем величина шага табуляции; половина шага табуляции просто просится на эту роль).

Продрихтую вашу программу:

вынесу все константы в секцию const;
так как числитель в первой сумме не зависит от n, его вынесу за знак суммы;
числитель второй дроби буду вычислять рекуррентно, потому что так быстрее;
отдельные суммы обозначу s1 и s2, чтобы было ясно, что это суммы;
уберу ошибки и несуразицы.

Рихтую:

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
const
  xn = 0.1;
  xk = 0.5;
  dx = 0.05;
  r1 = 2.5E-3;
  r2 = 3.8E-4;
var
  x, z, xe, s1, s2, xp1n: real;
  n: integer;
begin
  writeln('x':2, 'Z':7);
  x := xn;
  xe := xk + dx / 2;
  while x < xe do
    begin
      s1 := 0;
      for n := 1 to 10 do s1 := s1 + 1 / (n + 4);
      s2 := 0;
      xp1n := 1;
      for n := 1 to 7 do
        begin
          xp1n := xp1n * (x + 1);
          s2 := s2 + xp1n / n
        end;
      z := (x + r1) / (x * x + r2) * sqr(x + 2) * s1 + (x + 1) / (x + 2) * s2;
      writeln(x:4:2, z:17:12);
      x := x + dx
    end;
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.

@kevin19 0 / 0 / 0 Регистрация: 14.06.2024 Сообщений: 1

	Протабулировать функцию 14.06.2024, 11:30. Показов 1220. Ответов 4 Метки pascal abc net (Все метки) Конструирование программы со структурой вложенных циклов. $https://www.cyberforum.ru/cgi-bin/latex.cgi?Z=\frac{x+2.5\times {10}^{-3}}{{x}^{2}+3.8\times {10}^{-4}}\sum_{n=1}^{10}\frac{{(x+2)}^{2}}{n+4}+\frac{x+1}{x+2}\sum_{n=1}^{7}\frac{{(x+1)}^{n}}{n}$ x=0,1(0,05)0,5 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	14.06.2024, 11:40
	Не сталкивался раньше с такой записью. Какая математическая операция предполагается для суммы и выражения слева от него? Умножение? Почему в задаче значение переменной x имеет 3 варианта? И самое непонятное, каким боком к этой задаче вложенные циклы приспособить. 0

Опции темы