NaN не удается вывести ответ, Pascal ABC

06.12.2018, 17:47. Показов 1014. Ответов 0

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

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

Здравствуйте, хотел написать лабораторную работу по инфе в институт, но возникает ошибка с выводом, не могу понять почему происходит вывод NaN.
Вот собственно эта задача: Метод хорд

Метод хорд отличается от предыдущих методов тем, что очередное приближение корня берется не в середине отрезка, а в точке пересечения с осью Х прямой, соединяющей точки (a, f(a)) и (b, f(b)).
В листинге приняты следующие обозначения:
• а – начальное значение интервала изоляции корня;
• b – конечное значение интервала изоляции корня;
• eps – заданная точность вычисления корня;
• xi0 – значение функции в точке а;
• xi – значение функции в точке b;
• xi1 – корень уравнения;
• n – число итераций.

Вот сама программа:

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
program hord;
uses crt;
const eps=0.5E-3;
a=0;
b=1;
var xi0,xi,xi1:real;
n:integer;
function f(x:real):real;
begin
f:=arccos(x)-sqrt(1-0.3*exp(3*ln(x)));
end;
begin
 clrscr;
 xi0:=f(a);
 xi:=f(b);
 n:=0;
 while abs(xi-xi0)>eps do
 begin
 xi1:=xi-f(xi)/((f(xi)-f(xi0))/(xi-xi0));
 n:=n+1;
 xi0:=xi;
 xi:=xi1;
 end;
 writeln(xi1:6:4,'':2,n:3);
 readln;
 end.

Формула по моей задаче прилагается:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\arccos(\chi )-\sqrt{1-0.3{\chi}^{3}}$

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

06.12.2018, 17:47

Ответы с готовыми решениями:

Программа работает на pascal abc но выдает неверный ответ на lazarus
function count(s, s1: string): longint; begin if length(s) >= length(s1) then begin if...

Перевести код Pascal ABC NET в Pascal ABC
Помогите, плиз Сделал на Pascal ABC NET, но нужно его открыть в обычном Pascal ABC. Не компилит...

Перевод из Pascal ABC.net в Pascal ABC
Помогите, пожалуйста, перевести программу в Pascal ABC с Pascal ABC.net; если не трудно, объясните,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

06.12.2018, 17:47

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

Как вывести картинки на экран В графическом режиме pascal abc
например если ваш знак овен ,вывести эту картину uses graphABC; const kol=1000; ...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Ответ NaN в задаче
Первые 6 строчек считает нормально, а в последних двух выдает NaN. Пробовал разные проверки, но...

Ввести, вывести простейший одинарный/двумерный массив 10 на интервале от 1 до 100 ''Pascal ABC''
Здравствуйте! Подскажите пожалуйста как составить примитивные одинарный/двумерный массивы 10 на...

Как в Pascal ABC в команде write вывести на экран несколько чисел через пробелы
Как в Pascal ABC в команде write вывести на экран несколько чисел через пробелы. Например, надо...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

Наверх