IPB
ЛогинПароль:

> 

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Проблема в TDE
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 346
Пол: Мужской
Реальное имя: Иван

Репутация: -  7  +


Возникла такая вот проблемка:
Задача, состоит в том, чтобы определить сколько кубиков можно поместить в здание формой цилиндра обрезаного вдоль его высоты, по линии диаметра(как ангар smile.gif ) так чтобы все вместились и лежали ровно:
Саму програму то я собсно написал, но вот возникла проблема, до помеченой строчки прога просто не доходит, пропусскает её и все последующие...
Кампилятор TDE
program kyb;
var
m,r,a,I:integer;
kr,k:real;
begin
read(m,r,a);
k:=0;
I:=0;

while I*a<r do
begin
inc(I);
kr:=2*r-2*sqrt(r*r-I*I*a*a );
k:=k+int((2*r-kr)/a);
end;

k:=k*(m div a); {<=== эта строчка, и всё что дальше игнорируется}

write(k);
readln;
end.

Интерено былобы узнать в чем ошибка rolleyes.gif

Сообщение отредактировано: RathaR -


--------------------
Считающий себя единственым здравомыслящим человеком сумасшедший? Если да, возможно я псих...
Пусть умолкнет всякий критик!
Я - системный аналитик!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Во-первых, что такое TDE (не Турбо Дельфи имеется в виду?), а во вторых - какие данные ты вводишь?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Знаток
****

Группа: Пользователи
Сообщений: 346
Пол: Мужской
Реальное имя: Иван

Репутация: -  7  +


Цитата(volvo @ 21.07.2009 16:18) *

Во-первых, что такое TDE (не Турбо Дельфи имеется в виду?), а во вторых - какие данные ты вводишь?

Turbo Delphi Explorer

m - длинна помещения, R - радиус полукруга, a - ребро куба (ящика), меня собственно интересует больше не сама задача, а то почему программа кампилируэться, а вот при выполнении посл строки игнорирует, и это не впервые, на других задачах были подобные вещи: после обьявления файла и его открытия прога не хочет читать с него данные, в то время как эта же прога на TP всё делает


--------------------
Считающий себя единственым здравомыслящим человеком сумасшедший? Если да, возможно я псих...
Пусть умолкнет всякий критик!
Я - системный аналитик!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Я не спрашиваю, ЧТО значит какая буква, я спрашиваю, КАКИЕ ЦИФРЫ ты вводишь. Может у тебя вообще зацикливается все напрочь...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Знаток
****

Группа: Пользователи
Сообщений: 346
Пол: Мужской
Реальное имя: Иван

Репутация: -  7  +


Цитата(volvo @ 21.07.2009 19:23) *

Я не спрашиваю, ЧТО значит какая буква, я спрашиваю, КАКИЕ ЦИФРЫ ты вводишь. Может у тебя вообще зацикливается все напрочь...

вход данные 4 3 2
выход данные должно быть 4

нее.... из цыкла выходит правильно, я проверял


Сообщение отредактировано: RathaR -


--------------------
Считающий себя единственым здравомыслящим человеком сумасшедший? Если да, возможно я псих...
Пусть умолкнет всякий критик!
Я - системный аналитик!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата
вход данные 4 3 2
выход данные должно быть 4
Только не в твоей программе, твоя программа вылетает при таких данных, потому, что при I = 2 выражение под корнем = (-7). Ищи ошибку...

Кстати, ты забыл второй строкой программы директиву
{$APPTYPE CONSOLE}
. Без нее у тебя программа вылетит при выполнении readln
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Знаток
****

Группа: Пользователи
Сообщений: 346
Пол: Мужской
Реальное имя: Иван

Репутация: -  7  +


Цитата(volvo @ 21.07.2009 19:37) *

Кстати, ты забыл второй строкой программы директиву
{$APPTYPE CONSOLE}
. Без нее у тебя программа вылетит при выполнении readln

не, это есть, первые строки у меня это - Ctr+O+O, и ставлю минус на О, как мне обяснили это выключает оптимизатор, а оптимизатор это плохая штука которая мне не нужна rolleyes.gif и {$APPTYPE CONSOLE}

а, под корем реально -7, сам то й незаметиль=)

Сообщение отредактировано: RathaR -


--------------------
Считающий себя единственым здравомыслящим человеком сумасшедший? Если да, возможно я псих...
Пусть умолкнет всякий критик!
Я - системный аналитик!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 8:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name