Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
vitshpit
0 / 0 / 0
Регистрация: 19.09.2015
Сообщений: 7
#1

Определение машинного эпсилон - Pascal

05.10.2015, 01:32. Просмотров 301. Ответов 0
Метки нет (Все метки)

Помогите пожалуйста, Нужно определить машинный эпсилон для различных типов данных, и сравнить получения результатов.

У меня есть такой вариант эпсилон:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
PROGRAM lab1_eps;
uses crt;
   var e,e1:double;
 
procedure vichisl_eps(e1:double; var e:double);
begin
   e:=1;
   e1:=2;
   while (e1>1) do
      begin
         e:=e/2;
         e1:=1+e;
      end;
   e:=e*2;
end;
 
BEGIN
clrscr;
vichisl_eps(e1,e);
writeln;
writeln('Mashinnoe epsilon=',e);
readln;
END.
Как сделать для различных типов данных, и как добавить чтобы выводилось время выполнения для каждого из типов?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2015, 01:32
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определение машинного эпсилон (Pascal):

Нахождение машинного епсилон - Pascal
уровнение 1+х=1 и ноль не подходит)))) нада какаоем мто 1 милионное чтоб прога его додала и все ровно написала результат 1.

Вычислить с точностью e (эпсилон) - Pascal
Даны действительные числа (x не равен 0, e>0) Вычислить с точностью e : http://banknote.ucoz.net/DSC018055.jpg Правильно ли я написал...

Вычислить формулу с точностью до эпсилон - Pascal
Формула: перед ней знак суммирования вверху n, внизу i=1. формула выглядит так: (1/i!+sqrt(abs(x))) Вроде написал правильно:) Так вот,...

Вычислить с точностью e(Эпсилон). Ответит нужен в течении часа - Pascal
Помогите решить задачу на паскале... Цена... Моё отчисление из универа... Даны действительные числа x, e(x≥1,e>0). Вычеслить с...

Найти корень уравнения на заданном интервале с точностью эпсилон - Pascal
Найти корень уравнения на заданном интервале {a,b} с точностью эпсилом=0,00001 (x-1)^2-0,5 e^x=0 интервал {-0,2;0,3} метод...

Для вещественного число X С заданной точностью эпсилон вычисить значение - Pascal
для вещественного число X С заданной точностью эпсилон вычисить значение

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2015, 01:32
Привет! Вот еще темы с ответами:

1. Составить программу, подсчитывающую с точностью эпсилон значение определенного интеграла - Pascal
Вложение с текстом задач удалено модератором.

Вычисление машинного эпсилон и машинного нуля - C (Си)
Доброго времени суток. Есть текст программы, ответ считает, но он не правильный. Нужно что бы машинный ноль равен числу, которое было...

Даны действительные числа х,эпсилон(х<>0,эпсилон>0) - Pascal ABC
Вычислить с точностью эпсилон :

Написать определение на языке "эпсилон - эн" - Математический анализ
Добрый вечер, помогите пожалуйста составить следующее утверждение на языке &quot;эпсилон - эн&quot;: &quot;Числовой ряд сходится&quot;. Я нашел данное...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.