ответ:
заочные электронные конференции
логин пароль
регистрация забыли пароль?
о проекте конференции электронный архив поиск оплата
главная / научные конференции / системный анализ, и обработка информации в здравоохранении /
системный анализ и информационные технологии в социальной сфере и здравоохранении
бескровный и. м.
прочитать публикацию в формате pdf
5922 кб
для чтения pdf необходима программа adobe reader
get adobe reader
и. м. бескровный
системный анализ
и информационные технологии
в социальной сфере и здравоохранении
москва 2010 год
оглавление
оглавление 2
глава 1. основные положения системного подхода 4
исходные понятия и определения. 4
1.1 составной объект, его свойства. система 9
1.2 элементы классификации систем 13
1.3 эволюция систем. закон перехода количества в качество 16
глава 2. методы системного анализа 20
2.1 основные системного анализа 20
2.2 модельные отображения и модели 22
2.3 уровни моделирования 25
2.4 моделирование 27
2.5 этапы системного анализа 28
2.6 нормативная карта целей 31
2.7 структурная классификация систем 35
2.8 обратная связь 38
2.9 композиционные системы 38
2.10 модели композиционных систем 40
2.11 пример моделирования композиционных систем в здравоохранении 41
2.12 модели декомпозиции систем 43
2.13 следящие системы 43
глава 3. системная инженерия 45
3.1 предмет системной инженерии 45
3.2 структура морфологической модели 46
3.3 матрица активности системной инженерии 47
3.4 концептуальная модель создания и воспроизводства рукотворного мира 49
3.5 трехмерная морфологическая модель системной инженерии 51
часть ii. организационные системы 56
глава 4 модели анализа и проектирования организационных систем 56
4.1 структурные характеристики организационных систем. 56
4.2 обобщенный алгоритм проектирования организации 59
4.3 концептуальные модели организационных систем 62
4.4 иерархические структуры организационных систем 65
4.5 формирование дерева целей организации 71
глава 5 моделирование личности как активного элемента организационных систем 77
5.1 состояние выбора 77
5.2 системные параметры лица, принимающего решение 81
5.3 оценка характеристических параметров лпр 82
5.4 анализ и оценка информативности сообщений 87
глава 6 модели и методы в организациях 96
6.1 исходные определения. основные режимы 96
6.2 структурные модели в организационных системах 102
6.3 матричная схема 105
6.4 взаимосвязи целей и функций в организационной системе 107
6.5 обобщенный критерий организованности системы 109
6.6 понятие об идеальной организационной структуре 112
6.7 кибернетические модели систем в организациях 114
глава 7 модельное представление и анализ организационных систем теории автоматического 122
введение 122
7.1 анализ экстренной городской службы 123
7.2 блок-схема контура оперативного доставкой бригад на место события 126
7.3 информационные технологии в контуре оперативного эгс 127
Создать файл X компонентами которого являются элемента массива M. Переписать из файла X в файл Y все компоненты, которые стоят на четных местах. Прочитать файл Y.
M = (0,1; 5,6; 0.8; 2,4; 7,3; 6,8; 0,5; 2,3;)
Решение
Описание переменных:
M - массив-константа;
x, y - переменные, связанные с типизированными файлами;
n - считанное из файла очередное число;
i - счетчик.
Алгоритм решения задачи:
Создать константу-массив, присвоив ей заданные значения массива.
Связать файловые переменные с соответствующими файлами.
Открыть файл X на запись. Записать в него все элементы массива. Закрыть файл.
Открыть файл X на чтение, а файл Y на запись. Присвоить счетчику значение 1. Пока не будет достигнут конец файла X, считывать из него очередное число. Если при этом счетчик имеет четное значение, то записывать число в файл Y. После считывания и проверки на четность номера очередного числа, увеличивать счетчик на 1. После того как файл X будет прочитан, закрыть оба файла.
Открыть файл Y на чтение. Пока не будет достигнут его конец, считывать из него очередное число и выводить его на экран. После завершения цикла закрыть файл.
Программа на языке Паскаль:
const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);
var
x,y : file of real;
n: real;
i: byte;
begin
assign(x,'x.dat');
assign(y,'y.dat');
rewrite(x);
for i:=1 to 8 do
write(x, M[i]);
close(x);
reset(x);
rewrite(y);
i := 1;
while not EOF(x) do begin
read(x, n);
if not odd(i) then
write(y, n);
i := i + 1;
end;
close(x);
close(y);
reset(y);
while not EOF(y) do begin
read(y, n);
write(n:5:1);
end;
writeln;
close(y);
Объяснение: