определение точности

@studentoch'ka · Регистрация: 15.01.2010

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

вычислить машинную точность E для 2х,4х,8ми,10ти,12ти,16ти байтных чисел.
вычисления ведутся с некоторым шагом - h и уменьшение ведется до определенной точности - Е, при котором машина должна вычесть а+Е=а, если условие не вып-ся, то е=е/h.

@Mawrat · 06.09.2010, 13:58

Вычисление машинной точности для типов: Single, Double, Extended.
1. В степени двойки:

Pascal

program Project1;
 
function GetESingle : Integer;
var
  i : Integer;
  B1, B2, E : Single;
begin
  B2 := 1;
  E := 1;
  i := 0;
  repeat
    Inc(i);
    B1 := B2;
    E := E / 2;
    B2 := B1 + E;
  until B1 = B2;
  GetESingle := i;
end;
 
function GetEDouble : Integer;
var
  i : Integer;
  B1, B2, E : Double;
begin
  B2 := 1;
  E := 1;
  i := 0;
  repeat
    Inc(i);
    B1 := B2;
    E := E / 2;
    B2 := B1 + E;
  until B1 = B2;
  GetEDouble := i;
end;
 
function GetEExtended : Integer;
var
  i : Integer;
  B1, B2, E : Extended;
begin
  B2 := 1;
  E := 1;
  i := 0;
  repeat
    Inc(i);
    B1 := B2;
    E := E / 2;
    B2 := B1 + E;
  until B1 = B2;
  GetEExtended := i;
end;
 
begin
  Writeln('Вещественный тип Single. Размер: ', SizeOf(Single), ' байт.');
  Writeln('Машинная точность для типа Single: ESingle = 2^(-', GetESingle, ')');
  Writeln;
  Writeln('Вещественный тип Double. Размер: ', SizeOf(Double), ' байт.');
  Writeln('Машинная точность для типа Double: EDouble = 2^(-', GetEDouble, ')');
  Writeln;
  Writeln('Вещественный тип Extended. Размер: ', SizeOf(Extended), ' байт.');
  Writeln('Машинная точность для типа Extended: EExtended = 2^(-', GetEExtended, ')');
 
  Readln;
end.

2. В степени десятки:

Delphi

program Project1;
 
function GetESingle : Integer;
var
  i : Integer;
  B1, B2, E : Single;
begin
  B2 := 1;
  E := 1;
  i := 0;
  repeat
    Inc(i);
    B1 := B2;
    E := E / 10;
    B2 := B1 + E;
  until B1 = B2;
  GetESingle := i;
end;
 
function GetEDouble : Integer;
var
  i : Integer;
  B1, B2, E : Double;
begin
  B2 := 1;
  E := 1;
  i := 0;
  repeat
    Inc(i);
    B1 := B2;
    E := E / 10;
    B2 := B1 + E;
  until B1 = B2;
  GetEDouble := i;
end;
 
function GetEExtended : Integer;
var
  i : Integer;
  B1, B2, E : Extended;
begin
  B2 := 1;
  E := 1;
  i := 0;
  repeat
    Inc(i);
    B1 := B2;
    E := E / 10;
    B2 := B1 + E;
  until B1 = B2;
  GetEExtended := i;
end;
 
begin
  Writeln('Вещественный тип Single. Размер: ', SizeOf(Single), ' байт.');
  Writeln('Машинная точность для типа Single: ESingle = 10^(-', GetESingle, ')');
  Writeln;
  Writeln('Вещественный тип Double. Размер: ', SizeOf(Double), ' байт.');
  Writeln('Машинная точность для типа Double: EDouble = 10^(-', GetEDouble, ')');
  Writeln;
  Writeln('Вещественный тип Extended. Размер: ', SizeOf(Extended), ' байт.');
  Writeln('Машинная точность для типа Extended: EExtended = 10^(-', GetEExtended, ')');
 
  Readln;
end.

@Puporev · 06.09.2010, 14:01

Еще real -4 байта, а 12 и 16 я даже не знаю...

@Mawrat · 06.09.2010, 14:08

Вот Real в Pascal возможно 6 байт... В Delphi Real = Double - 8 байт. Типы Single, Double и Extended - в Delphi и Pascal представлены одинаково - 4, 8 и 10 байт, соответственно (стандарт IEEE). И ещё в Delphi есть тип Real48 - 6 байт. Возможно, как раз, в Pascal тип Real соответствует именно этому типу? У меня Pascal нет под рукой - можно проверить через SizeOf(). Причём, в PascalABC и Borland Pascal этот тип может быть представлен по-разному...

@Puporev · 06.09.2010, 14:12

В Турбо Паскале однозначно определено
Single=4
Real=6
Double=8
Extended=10
в других не знаю, вот integer в Турбо и например АВС это разное.

@studentoch'ka · 06.09.2010, 15:17 **[ТС]**

у меня почему-то компиляция не выполняется((

@Puporev · 06.09.2010, 15:25

studentoch'ka, По крайней мере первый код точно компилируется, я проверил.

Добавлено через 1 минуту
Наверное вы там что-то выкинули, начало должно быть такое

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function GetESingle : Integer;

@Mawrat · 06.09.2010, 18:20

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

Наверное вы там что-то выкинули, начало должно быть такое
...
{$APPTYPE CONSOLE}

А это раздел-то - Pascal.

Если Mawrat в теме засветился, это ещё не значит, что тема - в Delphi.

@Puporev · 06.09.2010, 18:34

Mawrat, Я уже сам запутался, туда-сюда прыгаю. Главное что код компилится...

@studentoch'ka 5 / 5 / 0 Регистрация: 15.01.2010 Сообщений: 50
		1
	определение точности 06.09.2010, 11:39. Показов 4303. Ответов 8 Метки нет (Все метки) вычислить машинную точность E для 2х,4х,8ми,10ти,12ти,16ти байтных чисел. вычисления ведутся с некоторым шагом - h и уменьшение ведется до определенной точности - Е, при котором машина должна вычесть а+Е=а, если условие не вып-ся, то е=е/h. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.09.2010, 14:01	3
	Еще real -4 байта, а 12 и 16 я даже не знаю... 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	06.09.2010, 14:08	4
	Вот Real в Pascal возможно 6 байт... В Delphi Real = Double - 8 байт. Типы Single, Double и Extended - в Delphi и Pascal представлены одинаково - 4, 8 и 10 байт, соответственно (стандарт IEEE). И ещё в Delphi есть тип Real48 - 6 байт. Возможно, как раз, в Pascal тип Real соответствует именно этому типу? У меня Pascal нет под рукой - можно проверить через SizeOf(). Причём, в PascalABC и Borland Pascal этот тип может быть представлен по-разному... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.09.2010, 14:12	5
	В Турбо Паскале однозначно определено Single=4 Real=6 Double=8 Extended=10 в других не знаю, вот integer в Турбо и например АВС это разное. 0

@studentoch'ka 5 / 5 / 0 Регистрация: 15.01.2010 Сообщений: 50
	06.09.2010, 15:17 [ТС]	6
	у меня почему-то компиляция не выполняется(( 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	06.09.2010, 18:20	8
	Сообщение от Puporev Наверное вы там что-то выкинули, начало должно быть такое ... {$APPTYPE CONSOLE} А это раздел-то - Pascal. Если Mawrat в теме засветился, это ещё не значит, что тема - в Delphi. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.09.2010, 18:34	9
	Mawrat, Я уже сам запутался, туда-сюда прыгаю. Главное что код компилится... 0