Листинг 5.2

procedure TForm1.Button1Click(Sender: TObject);

var

a,Sum:Real;

begin

Sum:=0;

a:=StrToFloat(InputBox('Введи число','"0" – сигнал

к вычислению',''));

while a<>0 do

begin

if a>0 then Sum:=Sum+a;

a:=StrToFloat(InputBox('Введи число','"0" – сигнал

к вычислению',''));

end;

Edit1.Text:=FloatToStr(Sum);

end;

Пример 5.3. Знание машинной арифметики необходимо для грамотного использования ЭВМ. В основе появления вычислительной погрешности лежит сам способ представления чисел на ЭВМ.

На ЭВМ представлены не все числа, а лишь конечный набор рациональных чисел специального вида. Эти числа образуют представимое множнство ЭВМ. Для всех остальных чисел возможно лишь их приближённое представление с ошибкой: эта ошибка называется ошибкой представления (округления).

Важно с самого начала иметь чёткое представление о том, что почти наверняка в представимом множестве ЭВМ нет числа , являющегося решением поставленной задачи. Лучшее, что можно попытаться сделать, - это найти его представление (floating – «плавающий») с относительной точностью порядка .

Дата добавления: 2015-07-10