Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 722

/ вопрос открыт /

Доброго времени суток, уважаемые эксперты!
С 1-й частью задания вы мне помогли. Она звучала так:
В авторемонтной мастерской стоит одна полировочная машина для полирования некоторой детали мотора машины. Для этого надо выполнить следующие этапы:
1. вынуть деталь (12±3 мин.);
2. установить ее в полировочной машине (10±4 мин.);
3. фаза 1-ая полирования (80±20 мин.);
4. поворот детали для продолжения полирования (15±7 мин.);
5. фаза 2-ая полирования (110±30 мин.);
6. достать отполированную деталь из машины (10±4 мин.);
7. установить деталь в прежнее место (12±3 мин.)
Теперь необходимо сделать следующее:
Деталь слишком тяжела для того, чтобы ее мог поднять один оператор полировочной машины. Требуется подъемный кран, помогающий ему в работе. В частности подъемный кран нужно использовать на этапах 1,2,4,6 и 7. Имеется только один подъемный кран. Краном пользуется не только оператор полировочной машины, его используют и на других работах в мастерской. Для других видов работ может потребоваться кран через каждые 30±10 минут. Время, на которое забирают кран, равно 25±10 минут. Постройте модель такой системы. Необходимо обеспечить сбор данных о времени ожидания оператора полировочной машины освобождения крана. Разделите сбор данных об ожидании на этапе 4 и этапе 6. (Предполагается, что если на этапе 6 кран получен, то оператор его уже не отпускает до завершения этапа 2. Соберите также данные об ожидании крана другими видами работ.) Моделирование проведите для 400 часов модельного времени.
Кое-что я уже написала, но не уверена в правильности. Подскажите,пожалуйста,какие у меня ошибки и как лучше реализовать эту часть задания.

Приложение:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. const l=80;
  3. var sumtime, repcount,Time,time1,time2,k1,k2:integer;
  4. time_ozh1,time_ozh2:integer;
  5. m_time_ozh1,m_time_ozh2:array[1..l]of real;
  6. begin
  7. Time:=strtoint(Edit1.Text);
  8. sumtime := 0;
  9. repcount := 0;
  10. repeat
  11. sumtime := sumtime + 12 + GetRandTime(3);
  12. sumtime := sumtime + 10 + GetRandTime(4);
  13. sumtime := sumtime + 80 + GetRandTime(20);
  14. time1:=39+GetRandTime(10);
  15.  
  16. if sumtime>=time1 then
  17. time2:=time1+25+GetRandTime(10);
  18.  
  19. if sumtime<=time2 then begin
  20. time_ozh1:=time2-sumtime;
  21. k1:=k1+1;
  22. sumtime:=sumtime+time_ozh1;
  23. m_time_ozh1[k1]:=time_ozh1;
  24. time_ozh1:=0;
  25. time1:=time1+39+GetRandTime(10);
  26. end;
  27.  
  28. sumtime := sumtime + 15 + GetRandTime(7);
  29. sumtime := sumtime + 110 + GetRandTime(30);
  30.  
  31. if sumtime>=time1 then
  32. time2:=time2+time1+25+GetRandTime(10);
  33.  
  34. if sumtime<=time2 then begin
  35. time_ozh2:=time2-sumtime;
  36. k2:=k2+1;
  37. sumtime:=sumtime+time_ozh2;
  38. m_time_ozh2[k2]:=time_ozh2;
  39. time_ozh2:=0;
  40. time1:=time1+39+GetRandTime(10);
  41. end;
  42.  
  43. sumtime := sumtime + 10 + GetRandTime(4);
  44. sumtime := sumtime + 12 + GetRandTime(3);
  45. repcount:= repcount + 1;
  46. until sumtime> 400*60;
  47. Edit2.Text:=inttostr(repcount);
  48.  
  49.  
  50. end;
  51.  
  52. end.


Anya Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Anya (статус: Посетитель)
Вопрос отправлен: 3 мая 2009, 13:52
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 29 февраля 2020, 09:24
Выполнено за 0.02 сек.
Рейтинг@Mail.ru