Матрица т[4, 12] содержит среднемесячную температуру за год для 4-х городов, расположенных примерно на одной широте. определить город с максимально высокой средней температурой и самый холодный месяц за год.
1. первое заключается в выполнении чертежа общей (укрупненной) схемы алгоритма решения в соответствии с требованиями еспд
2.второе заключается в выполнении чертежей отдельных функций схемы алгоритма решения в соответствии с требованиями еспд.
2 чертежа блок-схема алгоритма программы и декомпозиция
1 основной алгоритм, 2 декомпозиция какой-то функции
19 вариант. документ прилагается и пример оформления
. надо решить и 2 чертежа
тогда
900:3=300 - менеджеры
900:3=300 - разнораб
900:3=300 -инженеры
900:2=450 - отдел сбыта
900:4=225 - произв отдел
900:4=225 - отдел снабж
А) В отделе сбыта есть хотя бы один менеджер.
менеджеров 300, других сотрудников - 600, в отделе сбыта - 450 человек. Высказывание ложное, ведь там могут быть только разнорабочие и инженеры. из тех 600 человек
(Б) В каждом отделе может быть поровну менеджеров, инженеров и разнорабочих при любом не противоречащем условию задачи общем числе работников.
450:3=150 чел -по стольку из каждого звена в отд сбыта
225:3=75 чел - по стольку из кажд звена в произ от
225:3=75 чел - по стол из кажд звена в от снабж
Чтобы в каждом отделе было одинаковое число каждого звена, то в каждом звене должно быть
150+75+75=300 человек, а у нас в каждом звене 300 человек
высказывание истинное
(В) Если в отделе снабжения работают только менеджеры, то в производственном отделе есть хо- тя бы один разнорабочий.
произв отдел - 225 человек. Высказывание ложное, поскольку там могут работать
только инженеры, которых 300 человек, или инженеры и оставшиеся менеджеры, которых осталось 75 человек
(Г) Если в отделе с ения работают только инженеры, то в отделе сбыта есть хотя бы один раз- норабочий.
300-225=75 инж осталось
отдел сбыта - 450 человек
пусть там работают все менеджеры, 300 чел и оставшиеся инженеры, 75 чел, всего
300+75=375 человек
в отд сбыта 450чел, значит остается место для разнорабочих. Высказывание истинное
// Внимание! Если программа не работает, обновите версию!
type
CheckBalls=class
private
ad:array of real; // диаметры шариков
ap:array of real; // веса шариков
etD:=24.0; // эталонный диаметр
derD:=2.0; // эталонное предельное отклонение
etP:=74.0; // эталонный вес
derP:=3.0; // эталонное предельное отклонение
procedure CheckBall(m:integer);
// проверка шарика с указанным номером
begin
Write('Шарик № ',m,': диаметр - ');
if Abs(aD[m-1]-etD)<=derD then Write('норма')
else Write('брак');
Write(', вес - ');
if Abs(aP[m-1]-etP)<=derP then Writeln('норма')
else Writeln('брак')
end;
public
constructor(ma,mp:array of real);
begin
ad:=Copy(ma);
ap:=Copy(mp);
end;
procedure CheckAllBalls;
begin
for var i:=1 to ad.Length do CheckBall(i)
end;
end;
begin
var n:=120; // число шариков
var a:=SeqRandom(n,200,280).Select(t->t/10).ToArray;
var b:=SeqRandom(n,700,800).Select(t->t/10).ToArray;
Writeln('Параметры шариков (диаметр,вес):');
a.Zip(b,(p,q)->(p,q)).Println;
Writeln('Результаты контроля:');
var oL:=new CheckBalls(a,b);
oL.CheckAllBalls
end.