Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.01.2011, 14:58
iluxa1810 iluxa1810 вне форума
Новичок
 
Регистрация: 06.10.2010
Сообщения: 51
Репутация: 10
По умолчанию Не могу выполнить одно задание в Terbo Pascal

Z=(0.1*(3x+0.2))/x-3y;
x начальный 2.8 ,х конечный 5,4 ,шаг 1,3
у начальный 4,у конечный =8 ,шаг 2 .
Должно получиться 9 ответов,но получается 6 .
http://s1.ipicture.ru/Gallery/Viewfull/3107262.html
Когда я вывел на экран x и y ,то увидел ,что x только до 4,1 доходит и цикл рипит заканчивается .В чем дело?

Последний раз редактировалось iluxa1810, 16.01.2011 в 15:04.
Ответить с цитированием
  #2  
Старый 16.01.2011, 15:02
iluxa1810 iluxa1810 вне форума
Новичок
 
Регистрация: 06.10.2010
Сообщения: 51
Репутация: 10
По умолчанию

Забыл сделать деление на х,но суть проблемы все равно не меняется...
Ответить с цитированием
  #3  
Старый 16.01.2011, 16:12
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

потому что сразу после X+1.3 происходит проверка и выход из цикла. Дробные числа отрабатываются неточно, и 4.1+1.3 НЕ равно 5.4. В твоем случае наверно получается чуть-чуть больше.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 16.01.2011 в 16:14.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:01.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025