Качество информации – обобщенная положительная характеристика информации, отражающая степень ее полезности для пользователя.
Показатель качества – это характеристика отношения «информация – потребитель», одно из важных положительных свойств информации. С научной точки зрения показатель качества характеризует отношение «информация – отражаемый объект» (явление).
По внутренней организации информацию делят на две группы: 1. Данные (неупорядоченный набор сведений). 2. Наборы данных (логически упорядоченные сведения).
Знания представляют собой (в отличие от данных) информацию не о каком-то единичном и конкретном факте, а о том, как устроены все факты определенного типа.
Свойства информации: • релевантность соответствовать запросам потребителя); • полнота; • своевременность; • достоверность; • доступность; • защищенность; • эргономичность (удобство формы или объема с точки зрения потребителя); • адекватность (однозначное соответствие отражаемому объекту или явлению); • живучесть сохранять свое качество с течением времени); • уникальность (эталонная информация должна храниться в единственном экземпляре).
Отражение информации Не важна природа исходной информации, если существует принципиальная возможность ее преобразования в текст на конечном алфавите. Формальные двухбуквенные системы, в силу их тривиальности, составляют основу хранения и обработки информации в современных вычислительных устройствах.
Аналоговая и дискретная информация.
С позиций субъективного подхода информация – это знания, сведения, которыми обладает человек, которые он получает из окружающего мира. С позиций кибернетического подхода информация – это содержание последовательности символов (сигналов) из некоторого алфавита.
Информативным называется сообщение, которое пополняет знания человека, т.е. несет для него информацию.
Писал с учётом очистки экрана. Тобишь модуль Uses Crt, если не проходили, то лучше удали эту строчку и "ClrScr". Program G; Uses Crt; Const N=10; Var i, count: integer; mass: array [1..N] of integer; Begin ClrSCr; Count:=0; For i:=1 to N do Begin Mass[i]:=Random(31)-15; Write(Mass[i]:4); End; Writeln; For i:=1 to N do If mass[i]>0 then inc(count); If count=0 then writeln('В массиве нету положительных чисел.') Else writeln('Количество положительных чисел в массиве: ', count); Readln; End.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where(x->(x mod 2<>0) and (x mod 3<>0) and
(x mod 5<>0)).ToArray;
a.Println
end.
Пример
n= 20
18 3 19 -3 40 -27 43 -1 4 -21 -12 3 -14 3 -27 37 45 11 23 -28
19 43 -1 37 11 23