программа "комплектовочный конвейер"

[forsaken]

Всем добрый день!

Как полный новичёк в Borland Delphi 7, прошу вашей помощи. :cry:
Скажите пожалуйста, где я допустил ошибку?
(картинка с изображением алгоритма чуть ниже)

А вот и сама задача, по которой мне требуется написать программу:

На комплектовочный конвейер сборочного цеха каждые 5±1 мин поступают 5 изделий первого типа и каждые 20±7 мин поступают 20 изделий второго типа. Конвейер состоит из секций, вмещающих по 10 изделий каждого типа. Комплектация начинается только при наличии деталей обоих типов в требуемом количестве и длится 10 мин. При нехватке деталей секция конвейера остается пустой.
Смоделировать работу конвейера сборочного цеха в течение 8 ч. Определить вероятность пропуска секции, средние и максимальные очереди по каждому типу изделий. Определить экономическую целесообразность перехода на секции по 20 изделий с временем комплектации 20 мин.

Если кто-то может лучше написать программу, прошу скидывайте мне алгоритм.

Буду очень благодарен!

[eoln]

Лучше бы исходник положил, а то долго кидать компоненты на форму. Алгоритм не разбирал, а по коду следующее
1) var t1, t2: real;
2) edit7.Text := floattostr(tm/t1); edit8 - аналогично

[forsaken]

Сообщение от eoln

Лучше бы исходник положил, а то долго кидать компоненты на форму. Алгоритм не разбирал, а по коду следующее
1) var t1, t2: real;
2) edit7.Text := floattostr(tm/t1); edit8 - аналогично

Спасибо большое! теперь программа заработала!

[nnn1234]

forsaken, а не мог бы ты скинуть весь код программы, если не сложно.Просто у меня аналогичная задача, хотелось бы поизучать твою)

[Gromy]

мне тоже надо, а как сделать незнаю