Developing.ru

Помогите написать программу на Паскале , а вот собственно задача :
Время обработки. Каждая из деталей должна последовательно пройти обработку на каждом из трех станков. Продолжительности обработки каждой детали на каждом станке вводятся группами по 3 числа, до исчерпания ввода. Сколько времени займет обработка всех деталей?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот сам пробовал , но помоему лабуда полная и без нахождения общего времени ))

Код: Выделить всё

Program VO;
uses crt;
const a=3; {kol-vo stankov}
var N, {kol-vo detaley}
    i,
    y,
    t, 
    Tv:Word; {obschee vremy vypolneniya}
begin
 clrscr;
 write('Vvdite Kol-vo detaley');
 readln(N);
 for i:=1 to a do
 for y:=1 to N do
 begin
  write('Vvedite prodolzhitelnost');
  readln(t);
 end;
end.

[***censored***]

stiv73, для личной переписки есть
* личная почта
* публичные сообщения (см. профиль)
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
[syntax=Pascal]
const
stan = 3;
var
s:string;
i,j,k:integer;
t,tsum:real;
begin
i:=0;
tsum:=0;
repeat
inc(i);
writeln('Деталь №',i);
j:=1;
repeat
write('Время обработки на станке ',j);
if j=1 then write(' (нажмите Enter, если ввод зевершен)');
write(':'); readln(s);
if (s<>'') or (j>1) then begin
repeat
if s='' then s:='x';
val(s,t,k);
if k<>0 then begin
write('Непонятный ввод. Время должно быть выражено числом. Повторите:'); readln(S);
end else tsum:=tsum+t;
until k=0;
end;
inc(j);
until (j>stan) or ((j=2) and (s=''));
until s='';
dec(i);
writeln('Суммарное время обработки ',i,' детали(ей) на ',stan,' станке(ах) = ', tsum:10:2);
end.
[/syntax]

Сдается мне, тут что-то связанное с конвейеризацией. Смысл такой: первая деталь поступает на первый станок, обрабатывается, переходит на второй, а на первом начинает обрабатываться вторая деталь. Но к моменту окончания обработки второй детали на первом станке первая еще может не успеть обработаться на втором, так что возникнет очередь. Короче, интересная задачка. Если нужно сильно срочно - стучите в аську.

Developing.ru

Циклические и итерационные алгоритмы . Паскаль

Циклические и итерационные алгоритмы . Паскаль

Re: Циклические и итерационные алгоритмы . Паскаль

Re: Циклические и итерационные алгоритмы . Паскаль

Re: Циклические и итерационные алгоритмы . Паскаль