составить цикл в программе КУМИР!

Проектирование и внедрение АРМ основывается на ряде общих и частных принципов проектирования систем обработки данных. Главным считается принцип максимальной ориентации на конечного пользователя. Это достигается созданием специальных средств адаптации АРМ к уровню подготовки пользователя и возможностью его обучения и самообучения непосредственно на данном АРМ.

Другим принципом созданию эффективных АРМ, является принцип проблемной ориентации. Под проблемной ориентацией обычно понимается специализация АРМ на решении определенного круга задач, объединенных общей технологией обработки данных, т.е. ориентация на автоматизацию некоторой группы функций, постоянно выполняемых работниками сферы организационного управления.

Немаловажное значение придается реализации принципа соответствия информационных потребностей пользователей используемым техническим средствам. Только после тщательного установления информационных потребностей пользователя, обеспечивающих выполнение возложенных на него функций, можно приступать к определению состава и функций АРМ.

На практике при разработке АРМ пользователи зачастую предпочитают перепоручить определение своей информационной потребности разработчикам, ссылаясь на недоступную компетентность в области вычислительной техники. В результате цели, определенные разработчиками, не всегда совпадают с тем, что пользователи ожидают от автоматизации их рабочих мест. Поэтому в процессе создания АРМ должен быть реализован принцип творческого постоянного контакта разработчиков АРМ и их потенциальных пользователей.Совместное участие пользователя и разработчика в создании АРМ лучше осознать проблемную ситуацию, стимулирует интеллектуальную деятельность будущего пользователя АРМ и в конечном итоге повышению качества АРМ.

Примерами АРМ являются АРМ бухгалтера, складского работника, операциониста банка, менеджера. Примерами функциональных подсистем ЭИС являются подсистемы бухгалтерского учета, финансового планирования и анализа, маркетинга, кадров ит.Д. Примерами функциональных информационных систем являются банковские, страховые, налоговые и другие системы. Примерами обеспечивающих предметных технологий являются Project Expert, Marketing Expert, и приложения фирм 1С, Галактика, ПАРУС, BAAN, BaySIS и другие.

Var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;

procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );
var a:array[1..6] of real;
i : integer;
begin
dv1:=100;
tr1:=100;
pt1:=100;
for i:= low(a) to high (a) do begin
readln(a[i]);
repeat
if( (a[i] mod 2) =0) then begin
a[i]:=a[i]/2;
dv:=dv+1;
end
else if( ( a[i] mod 3)=0) then begin
a[i]:=a[i]/3;
tr:=tr+1;
end
else if ( ( a[i] mod 5)=0) then begin
a[i]:=a[i]/5;
pt:=pt+1;
end;

untill(a=1);
if dvif trif ptdv:=0;
tr:=0;
pt:=0;
end;
if dv1>0 then dv2:=dv1*2 else dv2:=1;
if tr1>0 then tr2:=tr1*3 else tr2:=1;
if pt1>0 then pt2:=pt1*5 else pt2:=1;
nod:=dv2*tr2*pt2;
writeln(nod);
end;
begin
nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );
end.

end;