Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Система уравнений Помогите решить систему уравнений на паскале https://www.cyberforum.ru/ pascal/ thread3088212.html	Определить, какую площадь уберут комбайны за заданное количество дней Pascal Можете сделать программу в паскаль и блок схему? Для уборки урожая используется К комбайнов производительностью А (га/час) и Р комбайнов производительностью В (га/час). Продолжительность рабочего дня комбайнов составляет Z часов, время для ежедневного технического обслуживания каждого комбайна – S часов. Определить, какую площадь уберут комбайны за К дней, если 1 комбайн...
Pascal Определить, сколько тонн топлива потребуется для уборки урожая Можете сделать программу в паскаль и блок-схему? В хозяйстве на уборке зерновых задействовано N комбайнов, имеющих производительность работы F (га/час) и М комбайнов с производительностью работы Q (га/час). Первому типу комбайнов предстоит убрать площадь S1 (га), второму – S2 (га). Часовой расход топлива при работе комбайнов составляет XI и Х2 (л/час) соответственно. Определить, сколько... https://www.cyberforum.ru/ pascal/ thread3087846.html	Pascal Бинарное дерево Суть в чем, программа рабочая и я ею доволен, а вот преподу не нравится т.к. у меня не в виде дерева(нарисованного в консоле). Возможно несу чушь, но нужна помощь с этим. type PNode = ^TNode; TNode = record Data: integer; Left: PNode; Right: PNode; end; // Создание нового узла https://www.cyberforum.ru/ pascal/ thread3087740.html
Вычислить сумму Pascal Помогите, пожалуйста, решить. Дано натуральное число n. Вычислить \sum_{k=1}^{n}\frac{1}{k^2!}	Pascal Найти локальные максимумы массива Помогите пожалуйста с Задачей Абрамова 210. Даны натуральное число n, действительные числа a1, ..., an. Получить все натуральные j(2≤j≤n-1), для которых aj-1<aj>aj+1. https://www.cyberforum.ru/ pascal/ thread3087592.html
Pascal Как выполнить 2 или больше действия после then Как выполнить 2 или больше действия после then? Как например if x>0 then y:=y+1 and z:=z-1 https://www.cyberforum.ru/ pascal/ thread3087576.html	Сформировать одномерный массив и найти минимальный элемент Pascal Сформировать одномерный массив, каждый элемент которого равен максимальному элементу соответствующего столбца произвольно заданной матрицы, размером m на n. В сформированном массиве найти минимальный элемент.
Pascal Текстовый редактор https://www.cyberforum.ru/ pascal/ thread3087307.html Нужны исходники, текстового редактора, обучающие материалы, ссылки на видеокурс или статьи как создать.	Pascal Вывести дерево в графическом виде Суть в чем, программа полностью рабочая и все выводит. Такая просьба, мне нужно переделать вывод, чтобы графические выводило дерево со всеми значениями. program BinaryTree; type PNode = ^TNode; TNode = record Data: integer; Left: PNode; Right: PNode; https://www.cyberforum.ru/ pascal/ thread3087158.html
Pascal Вывести таблицу значений функции и ее разложения в ряд Тейлора const e=0.00001; var x,x0,xk,h,a,s,y:real; n,i,k:integer; begin write('x0=');readln(x0); write('xk=');readln(xk); h:=0.1; x:=x0-h; n:=round((xk-x0)/h)+1; writeln('น x S(x) y(x)'); for i:=1 to n do	Pascal Метод деления пополам https://www.cyberforum.ru/ pascal/ thread3086723.html var a,b,e,c,i,o,f :real; f:= ((1-x)/x)-3cos(4x); a:=1.100814; b:=-0.505; i:=0.00001; e:=1; begin while ((b-a)/2)>i do end;

Cyborg Drone

Модератор

9656 / 4976 / 3265

Регистрация: 17.08.2012

Сообщений: 15,476

12.03.2023, 01:27

Исправить программу вычисления элементов вектора - Pascal - Ответ 16799898

12.03.2023, 01:27. Показов 301. Ответов 2

Метки (Все метки)

Сообщение было отмечено Nikita45635 как решение

Решение

Потому что логарифм от не положительного числа не определён. Это оттого, что у Вас извлечение кубического корня сделано... Как бы так сказать, чтобы сильно не обидеть... Несколько не продуманно.
И ещё, Вы вместо sin³ вычисляете cos³.

Pascal

const
  n = 15;
var
  x: array [1..n] of real;
  k: integer;
begin
  write('Введите x[1]: ');
  Readln(x[1]);
  write('Введите x[2]: ');
  Readln(x[2]);
  for k := 3 to n do
    begin
      if x[k-1] > 0 then x[k] := exp(ln(x[k-1]) / 3)
      else
        if x[k-1] < 0 then x[k] := -exp(ln(-x[k-1]) / 3)
        else x[k] := 0;
      x[k] := sqr(sin(x[k-1])) * sin(x[k-1]) + cos(sqr(x[k-1]))+
        sin(x[k-2]) / cos(x[k-2]) / x[k]
    end;
  writeln('Исходный массив:');
  for k := 1 to 15 do
    begin
      write(x[k]:8:4);
      if k mod 10 = 0 then writeln
    end
end.

Замечание: если ввести x₂=0, то снова будет NaN, но это - всё правильно, по формуле в этом случае получается деление на 0.

Вернуться к обсуждению:
Исправить программу вычисления элементов вектора Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.03.2023, 01:27

Готовые ответы и решения:

Исправить программу вычисления элементов вектора
Составить программу для вычисления элементов вектора Х по формуле: x_j\ =\ \cos...

Составить программу для вычисления элементов вектора Х по формуле
Составить программу для вычисления элементов вектора Х по формуле:

Составить программу для вычисления элементов вектора Х по формуле
Помогите пожалуйста гуманитарию составить программу для вычисления элементов вектора X по формуле: ...

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

Составить программу для вычисления элементов матрицы Y по известным элементам вектора X
Помогите пожалуйста гуманитарию. Составить программу для вычисления элементов матрицы Y по...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.03.2023, 01:27

Помогаю со студенческими работами здесь

Составить программу вычисления координат вектора
Составить программу вычисления координат вектора с=2а+3b, если заданы векторы a(a1,a2); b(b1,b2)....

Составить программу для вычисления элементов вектора
Составить программу для вычисления элементов вектора Х по формуле: x_k=\left(k-1...

Составить программу для вычисления элементов вектора х
Составить программу для вычисления элементов вектора х по формуле: Xi=lnX^2 i-1- ln^2 |C...

Составить программу для вычисления элементов вектора х по формуле
{x}_{i}=ln{{x}^{2}}_{i-1}-{ln}^{2}\mid {x}_{i-2} \mid ,i=3,4,...,n спасибо

Составить программу для вычисления элементов вектора Х по формуле
3. Составить программу для вычисления элементов вектора Х по формуле:

Наверх