Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263

Исправить ошибку в вычислении выражения

28.04.2013, 09:22. Показов 1221. Ответов 7
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Прога запускается,но на этой строчке останавливается
Delphi
1

  F1:=x+1-((Pi*Pi)/12)-(ln(x-1));
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 28.04.2013, 09:22
Ответы с готовыми решениями:

Найти ошибку в вычислении выражения
program lab2v; var yn,yk,dy,y,F,x,c:real; i,n:integer; begin write('Введите yn='); readln(yn); write('Введите...

Ошибка в вычислении выражения
Добрый день. Вроде всё ввёл правильно, но вывод у меня бесконечность, а должно быть конкретное число. Где может быть ошибка? Задание: ...

Исправить ошибку в программе вычисления значения выражения
написать программу на паскале вот program Name1; var p, a, x, α : real;

7
561 / 484 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
28.04.2013, 09:45
Какая ошибка то? Со скобками вроде все ок. Я бы даже сказал есть лишние. В (ln(x-1)) можно убрать скобки, это на результат не влияет, так как все ровно там отнимается результат функции ln.
0
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
28.04.2013, 10:44  [ТС]
в дельфи запустил,там надо рассчитать контрольную формулу,это она и есть,и вот на ней останавливается
0
561 / 484 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
28.04.2013, 10:58
Richik123, ну так скопируйте сюда текст ошибки.
0
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
28.04.2013, 11:36  [ТС]
Курсовой проект.rar
0
561 / 484 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
28.04.2013, 12:08
Richik123, у меня нету delphi и к тому же, по ошибке я бы нашел проблему быстрее.
Так что пожалуйста
Цитата Сообщение от ВАСИЛЕВС Посмотреть сообщение
скопируйте сюда текст ошибки.
Добавлено через 18 минут
Имелась введу Invalid floating point operation?
0
4 / 4 / 1
Регистрация: 26.12.2011
Сообщений: 263
28.04.2013, 12:18  [ТС]
ну да
0
561 / 484 / 168
Регистрация: 14.02.2012
Сообщений: 1,561
28.04.2013, 12:28
Я разбил вычисление функции на несколько частей.
Delphi
1
2
3
4
5
6
7
8
9

Function F1(x:real):real;
var
 resOfLnX, resOfPi: real;
begin
  x := x + 1;
  resOfLnX := ln(x-1);
  resOfPi := Pi * Pi / 12;
  F1 := x - resOfPi - resOfLnX;
end;
В результате определил, что в resOfLnX получается бред, точнее на строке
Delphi
1

resOfLnX := ln(x-1);
и выскакивает ошибка.
Потом полазил по инету и нашел такое:
Логарифм определен только для положительных чисел. Отрицательные числа и ноль не имеют логарифмов вне зависимости от основания. При этом сам логарифм может быть любым числом.
В общем выходит, что формула не верна, или значения задаются не верные.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 28.04.2013, 12:28
Помогаю со студенческими работами здесь

Ошибка при вычислении выражения
в чем ошибка? program drtdfg; Uses CRT; var x, a, b, f, d, y: real; begin x:=1; a:=3; b:=3; f:=3; d:=3;

NAN при вычислении выражения
program z1; uses crt; var x,z,s:real; n,k,i,o,fact:integer; begin write('Введите число x '); read(x); fact:=1; z:=1; ...

Найти ошибку в вычислении по формуле
{Программа вычисления} Var z,x,y:real; {Выполняемая часть прграммы} Begin writeln('Введите x,y'); read(x);...

Неверная операция при вычислении выражения
Вот код program saifullyna_6; uses crt; function sr(a,b,c,v,p:real):string; begin p:=(a+b+c)/2; v:=sqrt(p*(p-a)*(p-b)*(p-c)); ...

Найти ошибку в вычислении суммы ряда
Не могу найти ошибку в вычислении суммы ряда. program n93; var i,x,t,s,p,q,e:real; begin write('x e: '); readln(x,e); s:=0; ...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru