Показать сообщение отдельно
  #3  
Старый 19.03.2011, 16:19
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от eXplorer
накалякал что то:
Код:
var
nujnaya_kvartira:integer;
etajey_v_dome:integer;
nujnuy_etaj:integer;
begin
etajey_v_dome:=23;
nujnaya_kvartira:=14;
nujnuy_etaj:=nujnaya_kvartira div 3;
if nujnuy_etaj mod 2<>0 then
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj)+' этаже')
else
ShowMessage('Нужно выйти на '+inttostr(nujnuy_etaj-1)+' этаже');
end;
eXplorer а если мне нужна 5-я квартира то по твоим нехитрым расчетам у меня покажет 1 этаж, хотя должен быть второй. Тут все таки надо скорей всего Round-ом пользоваться
Ответить с цитированием