Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Листинг 5.2

Читайте также:
  1. Листинг 1. Программа создания таблицы умножения.
  2. Листинг 2.3
  3. Листинг 3.4
  4. Листинг 4.1
  5. Листинг 5. Использование цикла while и инструкции break.
  6. Листинг 5.6

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; просмотров: 102 | Нарушение авторских прав


Читайте в этой же книге: Пример 1. | Типы данных. Стандартные функции и процедуры | Вещественные типы | Стандартные процедуры и функции, применимые к вещественным типам | Правила использования операций с операндами различного типа | Пример 2.2. (Задание 2.2) | Листинг 2.3 | Листинг 3.4 | Множественный выбор | Листинг 4.1 |
<== предыдущая страница | следующая страница ==>
Инструкция For| Считать верхней границей относительной погрешности, то

mybiblioteka.su - 2015-2024 год. (0.005 сек.)