Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
1 / 1 / 0
Регистрация: 09.06.2016
Сообщений: 32
1

Точность вычисления

01.05.2017, 01:54. Показов 1852. Ответов 6
Метки нет (Все метки)

Вроде очень банальная проблема, но никак не могу понять, что сделать

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TForm1.FormCreate(Sender: TObject);
var
  a,b,h:real;
  i:integer;
begin
  with StringGrid1 do
    begin
      ColCount:=2;
      a:=StrToFloat(InputBox('Начало отрезка','a:',''));
      b:=StrToFloat(InputBox('Конец отрезка','b:',''));
      h:=StrToFloat(InputBox('Шаг','h:',''));
      if a>b  then
        RowCount:=Trunc((a-b)/h)+2
          else
            RowCount:=Trunc((b-a)/h)+2;
      FixedCols:=0;
      FixedRows:=1;
      Cells[0,0]:='X';
      Cells[1,0]:='tg2x-3';
      ColWidths[0]:=60;
      ColWidths[1]:=60;
      Width:=ColWidths[0]+ColWidths[1]+23;
      Height:=250;
      Left:=0;
      Top:=0;
    end;
 
  BorderStyle:=bsDialog;
  ClientWidth:=StringGrid1.Width;
  ClientHeight:=StringGrid1.Height;
 
  i:=1;
  if a<b then
    while a<=b do
      begin
        StringGrid1.Cells[0,i]:=FloatToStr(a);
        StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
        a:=a+h;
        inc(i);
      end
    else
      while a>=b do
        begin
          StringGrid1.Cells[0,i]:=FloatToStr(a);
          StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
          a:=a-h;
          inc(i);
        end;
end;
 
end.
К примеру вводим шаг 1 до 2 с точностью 0.2 и он не показывает 2, останавливается на 1.8. Нужно чтобы показывал до 2 включительно. Указывал => почему то не помогает.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.05.2017, 01:54
Ответы с готовыми решениями:

Вводится точность e
Всем привет! Мучаюсь уже несколько дней с двумя задачками... Буду очень благодарен, если...

Точность таймера
Подскажите пожалуйста, как получить точный интервал срабатывания таймера(до миллисекунд) ? ...

Точность числа
как в делфи определить точность числа? Например, 1.22222 с тоностью 0.001=1.222 с точностью 1=1

Точность вычислений eps в delphi
Подскажите пожалуйста как сделать так, чтобы точность вычисления вводилось пользователем через...

6
Житель Земли
2904 / 2841 / 383
Регистрация: 26.07.2011
Сообщений: 11,093
Записей в блоге: 1
01.05.2017, 03:17 2
Цитата Сообщение от Jupin Посмотреть сообщение
Delphi
1
2
3
4
if a>b  then
        RowCount:=Trunc((a-b)/h)+2
          else
            RowCount:=Trunc((b-a)/h)+2;
подсказка: чтобы не городить эту конструкцию, возьми разность a-b по модулю
Pascal
1
Abs(a-b)
Добавлено через 57 секунд
тогда все сведется к одной строке
Pascal
1
RowCount:=Trunc(Abs(a-b)/h)+2
1
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
01.05.2017, 08:42 3
Чтобы не проскочить последнее значение можно писать так
Delphi
1
2
 while a<b+h/2 do
      begin
1
225 / 80 / 35
Регистрация: 01.04.2017
Сообщений: 182
01.05.2017, 09:37 4
Ну или тупо пройтись по всем ячейкам, без привязки к значениям
Delphi
1
2
3
4
5
6
7
8
9
//i:=1;
  if a < b then
    h := -h;
  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    StringGrid1.Cells[0, i] := floattostr(a);
    StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
    a := a - h;
  end;

Не по теме:

А так while - цикл с пред условием сначала смотрим, потом выполняем.
P.S. Real лучше заменить на Extended

1
1 / 1 / 0
Регистрация: 09.06.2016
Сообщений: 32
01.05.2017, 22:15  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
while a<b+h/2 do
* * * begin
Цитата Сообщение от Animalia Посмотреть сообщение
//i:=1;
* if a < b then
* * h := -h;
* for i := 1 to StringGrid1.RowCount - 1 do
* begin
* * StringGrid1.Cells[0, i] := floattostr(a);
* * StringGrid1.Cells[1,i]:=FloatToStr(tan(2*a)-3);
* * a := a - h;
* end;
Все равно проскакивает последний элемент.
0
225 / 80 / 35
Регистрация: 01.04.2017
Сообщений: 182
01.05.2017, 22:28 6
Лучший ответ Сообщение было отмечено Jupin как решение

Решение

Real лучше заменить на Extended - это отнюдь не просто так.
Trunc с Real не дружит - по моей памяти c Real вообще периодически баги вываливаются.
Замените - удивитесь, это 'особая уличная магия'
1
1 / 1 / 0
Регистрация: 09.06.2016
Сообщений: 32
01.05.2017, 22:32  [ТС] 7
Но.....

Спасибо, все работает.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2017, 22:32

Из Шестнадцатиричной системы перевести в одинарную точность
Здравствуйте.работаю с HEX-файлом, в нем значения &quot;24 33 47 45&quot;. Через конвертор в программе Hex...

Не знаю как впихнуть в прогу заданную точность
Сделал программу по данной задаче, все работает, таблица выводится, но вот что делать с заданной...

Точность Single
Такая проблема: конвертирую StrToFloat в Single, при этом теряется точность, число округляется до...

точность вычислений и быстродействие
Добрый день! В моей программе производится много вычислений с числами в формате extended. Их...

Увеличить точность подсчета методом Чебышева
В общем, нужно увеличить точность подсчета методом Чебышева до 10^(-6) примерно, какие ещё методы...

Точность вычисления
Дана программа. x = 0.0: 0.0001: 2.0; y = (x.*atan(x))./(sqrt(1+x.^2)); z = trapz(x,y) Это...


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

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

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