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

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

01.05.2017, 01:54. Просмотров 743. Ответов 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)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2017, 01:54
Ответы с готовыми решениями:

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

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

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

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

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

6
DenNik
Непрофессионал
1803 / 1482 / 307
Регистрация: 26.07.2011
Сообщений: 8,077
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
Puporev
Модератор
55108 / 42354 / 29252
Регистрация: 18.05.2008
Сообщений: 100,076
01.05.2017, 08:42 3
Чтобы не проскочить последнее значение можно писать так
Delphi
1
2
 while a<b+h/2 do
      begin
1
Animalia
224 / 79 / 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
Jupin
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
Animalia
224 / 79 / 35
Регистрация: 01.04.2017
Сообщений: 182
01.05.2017, 22:28 6
Лучший ответ Сообщение было отмечено Jupin как решение

Решение

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

Спасибо, все работает.
0
01.05.2017, 22:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2017, 22:32

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

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

Точность вычисления
Вопрос довольно простой. Как сделать так чтобы #include &lt;iostream&gt; #include...


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

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

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