Укажите информационную модель . манекен человека , макет здания , медицинская карта больного .

Медицинская карточка больного

Компьютерная сеть - это совокупность компьютеров, взаимо­связанных через каналы передачи данных для обеспечения обмена информацией и коллективного доступа пользователей к аппаратным, программным и информационным ресурсам сети.

В общем случае для создания компьютерных сетей требуется наличие линии связи между компьютерами (канала передачи дан­ных), специального аппаратного обеспечения (сетевого оборудова­ния) и специального программного обеспечения (сетевых программ­ных средств).
Компьютерные сети предназначены:

• для обмена данными между ПК;

• для совместного использования вычислительных ресурсов. Ресурсы бывают трех типов:

• аппаратные (принтер, емкости жестких дисков);

• программные;

• информационные.

Когда все участники небольшой компьютерной сети пользуют­ся общим принтером, то они разделяют общий аппаратный ресурс. В сети может находиться один компьютер с увеличенной емкостью жесткого диска (файл-сервер), на котором участники сети хранят свои архивы и результаты работы. В этом случае аппаратным ресур­сом является внешняя память сетевого компьютера. Другой распро­страненный пример: предоставление услуг хостинга - возможности размещенияweb-страниц и других пользовательских файлов на сер­вере в Интернет.

Пример совместного использования программных ресурсов: для выполнения очень сложных и продолжительных расчетов воз­можно подключение к удаленной большой ЭВМ, при этом сущест­вует возможность отправить на нее вычислительное задание, а по окончании расчетов точно так же получить результат обратно.

Информационные ресурсы образуют данные (текст, графиче­ские изображения, аудио- и видеоинформация), хранящиеся на уда­ленных компьютерах. Пример: Интернет воспринимается как ги­гантская информационно-справочная система.

Различают следующие виды компьютерных сетей:

• локальные, которые используются для обмена информацией между ПК, расположенными на ограниченной территории (уда­ленными на небольшие расстояния) в пределах одного здания или в рамках одной организации. При этом, как правило, используются проводные линии связи;

• региональные, связывающие компьютеры отдельной страны или экономического региона;

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

Глобальная сеть Интернет - это всемирное объединение раз­личных региональных и корпоративных компьютерных сетей, обра­зующих единое информационное пространство благодаря использо­ванию общих стандартных протоколов передачи данных.

Основной стандартный протокол в Интернете – TCP/IP(-InternetProtocol).

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

На PascalABC.NET можно так:

var k: array of string;

procedure CreatOrAdd(add: boolean);

begin

 var i,n: integer;

 write('введите кол-во учеников: ');

 readln(n);

 if (add) then  

   begin

     setlength(k,k.Length+n);

     for i:= 0 to n-1 do  

       begin

       write('введите ФИО:');

       readln(k[k.Length-n+i]);

       end;

   end

 else  

   begin

   setlength(k,n);

   for i:= 0 to n-1 do  

     begin

     write('введите ФИО:');

     readln(k[i]);

     end;

   end;

end;

procedure out;

begin

 try

   writeln('Список класса:');

   for var i:= 0 to k.Length-1 do writeln(k[i]);

 except

   on e: System.Exception do writeln(e.Message);  

 end;

end;

procedure menu;

begin

writeln('1, Создание списка класса');

writeln('2, Добавление');

writeln('3, Удаление');

writeln('4, Вывод списка класса');

writeln('5, EXIT');

end;

procedure delet;

begin

 var n: integer;

 write('введите номер удаляемого ученика: ');

 readln(n);

  try

   if (n<=k.Length) then

   k := k.Where(t -> t<>k[n-1]).ToArray()

   else writeln('Ошибка');

 except

   on e: System.Exception do writeln(e.Message);  

 end;

end;

var

kom: byte;

begin

repeat

menu;

readln(kom);

case kom of

1: creatoradd(false);

2: creatoradd(true);

3: delet;

4: out;

5: exit;

end;

until kom = 5;

end.

Если будут вопросы, спрашивайте.