предметное содержание информации позволяет уяснить ее основные свойства:
объективность информации - информация – это отображение окружающего мира, а он существует независимо от нашего сознания, знаний и мыслей о нем.
примеры:
1) фома неверующий
2) игра «глухой телефон»
информация достоверна, если она отражает истинное положение дел. недостоверная информация может к неправильному пониманию или принятию неправильных решений.
примеры:
1) пропущено занятие, подруга говорит, что ничего не задано.
2) скачали информацию в интернете
информация полна, если ее достаточно для понимания и принятия решений. неполнота информации сдерживает принятие решений или может повлечь ошибки.
примеры:
1) пропущено занятие, подруга говорит, что задан только параграф и забывает про .
2) на улице 200с (не понятно + или -)
актуальность (своевременность) – важность, необходимость для данного времени. актуальную информацию важно иметь при работе в изменившихся условиях.
примеры:
1) накануне о контрольной работе
2) прогноз погоды на завтра актуальнее прогноза на вчера
полезность (ценность) зависит от потребностей конкретных людей и от тех , которые можно решать с полученной информации.
примеры:
1) в расписании уроков указаны занятия для всех классов, для вас ценна информация лишь о ваших уроках
2) просмотрен документальный фильм про петра 1. на уроке информатике он ценности не имеет, но на уроке - имеет.
понятность. если ценная и актуальная информация выражена непонятными словами, она может стать бесполезной. информация становится понятной, если она выражена языком, на котором говорят те, кому предназначена эта информация.
примеры:
1) дошкольник спрашивает у старшеклассника: "как светит лампочка? ". в ответ слышит: "существует две теории света – волновая и корпускулярная. согласно первой …".
2) объяснять материал на китайском языке.
k*(m*m-n*n, 2*m*n, m*m + n*n)
Например так:
function gcd(a,b: integer): integer;
begin
if b = 0 then gcd := a
else if (a > b) and (b > 0) then gcd := gcd(b, a mod b)
else gcd := gcd(b, a);
end;
procedure Print(m,n:integer);
var i, a, b, c: integer;
begin
repeat
i := i + 1;
a := (m*m-n*n)*i;
b := 2*m*n*i;
c := (m*m+n*n)*i;
if c < 30 then
writeln(a, ' ', b, ' ', c)
else break;
until false;
end;
var m, n, s: integer;
begin
s := Trunc(Sqrt(30));
for m := 1 to s do
for n := m + 1 to s do
if (gcd(n, m) = 1) and ((m mod 2)<>(n mod 2)) then
Print(n, m)
end.