Ученик нарисовал изображения цветов. Данные изображения хранятся в оперативной памяти. Изображение одного цветка требует 20 Кб памяти. Размер каждой ячейки ОЗУ равен 20 КБ.
Определите, какой объём памяти оперативно-запоминающего устройства остался свободным.
КБ=байт= бит
Правовые системы и базы данных предназначены для хранения и регулярного обновления сборников нормативных документов и подзаконных актов. Экономические реформы, проводимые в нашей стране, сопровождаются значительными изменениями законов и нормативных актов, инструкций. С этими документами работают не только юристы, но и руководители и специалисты должны постоянно иметь возможность просмотреть быстро меняющиеся требования, нормативы. В этом классе представлены отечественные информационно-правовые и справочные системы “Кодекс”, “Консультант Плюс”, “Гарант-Сервис”, “Кодекс”, “Консультант-Бухгалтер”.
Система “Консультант Плюс” позволяет вести поиск документов по официальным реквизитам или отдельным словам, по тематическому рубрикатору, по ключевым словам.
Компания “Гарант” имеет колоссальный информационный банк, охватывающий весь спектр российского законодательства и основные нормы международного права. Все документы представлены в действующей редакции, новая информация поступает ежедневно, еженедельно обновляется весь банк данных. Работа с БД производится в гипертекстовой среде с перекрестными ссылками и мощными поисковыми инструментами.
Рассмотрим СУБД Microsoft Access как наиболее популярное приложение, используемое для обучения. Приложение Microsoft Access работает на отдельном компьютере или в небольшой локальной сети. С СУБД, ориентированной на персональный компьютер, можно создать небольшую личную БД или БД для небольшой организации. Система MS Access позволяет, не прибегая к программированию, выполнять основные действия с данными, расположенными в таблицах. Программа имеет стандартный для продуктов Microsoft интерфейс.
База данных приложения MS Access включает в свой состав таблицы, формы, запросы, отчеты, макросы и модули.
Объяснение:
Var
A:array[1..5] of integer;
i,O,P:integer;
Begin
Write('Введите массив A(5): ');
O:=0;
P:=0;
For i:= 1 to 5 do
Begin
Read(A[i]);
if A[i] < 0 then O:=O+1
else if A[i] > 0 then P:=P+1;
End;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.
Заполнение случайными числами:
Const
N = 5;
Var
A:array[1..N] of integer;
i,O,P:integer;
Begin
Randomize;
Write('Введите массив A(5):');
O:=0;
P:=0;
For i:= 1 to N do
Begin
A[i]:=random(2*N+1)-N;
Write(' ',A[i]);
if A[i] < 0 then O:=O+1
else if A[i] > 0 then P:=P+1;
End;
WriteLn;
WriteLn('Количество отрицательных: ',O);
WriteLn('Количество положительных: ',P);
End.