Информация для человека — это знания, которые он получает из различных источников. С всех своих органов чувств человек получает информацию из внешнего мира.
Информация понятна, если она выражена на языке доступном для получателя.
Сообщение может пополнить знания человека, если оно имеет полезную информацию,совершенно новую для человека
Знания можно разделить на процедурные и декларативные. К фактам относятся знания об определённых явлениях (земля вращается вокруг своей оси), событиях (первый компьютер был создан в 1945г. в Америке), свойствах объектов (вес первой ЭВМ составлял 30 тонн), и зависимостях между объектами (у квадрата все углы прямые и все стороны равны).К правилам относятся знания о явлениях (смена времён года), знания о событиях (ВОВ 1941–1945 гг.), знания о свойствах объектов (вода может находиться в трёх состояниях), знания о зависимостях между объектами (у квадрата все стороны равны).
var f:file of integer; i,k:integer; begin Randomize; Assign(f,'in.dat'); Rewrite(f); for i:=1 to 20 do begin k:=Random(99)+1; Write(f,k) end; Close(f) end.
uses Crt; const nn=100; var i,j,k,n:integer; fin,fout:file of integer; a:array[1..nn] of integer; dub:boolean; begin ClrScr; Assign(fin,'in.dat'); Reset(fin); Read(fin,k); if not eof(fin) then begin n:=1; Write(k,' '); a[n]:=k end else n:=0; while (not eof(fin)) and (n<=nn) do begin Read(fin,k); Write(k,' '); j:=1; dub:=false; while (j<=n) and (not dub) do begin dub:=(a[j]=k); Inc(j); end; if not dub then begin Inc(n); a[n]:=k; Inc(j) end end; Writeln; Close(fin); for i:=1 to n do Write(a[i],' '); Writeln; Writeln('n=',n); Assign(fout,'out.dat'); Rewrite(fout); Write(fout,n); Close(fout); ReadKey end.
В качестве бонуса - решение этой же задачи в современной системе программирования PascalABC.NET.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var fin,fout:file of integer; Reset(fin,'in.dat'); var k:integer; var a:=new integer[fin.FileSize]; var n:=0; while not eof(fin) do begin Read(fin,k); a[n]:=k; Inc(n) end; Close(fin); a.Println; var b:=a.ToHashSet; b.Println; Writeln('n=',b.Count) end.
И вопрос: для чего давать школьникам, 9/10 из которых никогда не будут программистами, устаревшие и громоздкие, сложные для понимания, написания и отладки системы программирования? Чтобы показать, "как все это сложно"?
Информация для человека — это знания, которые он получает из различных источников. С всех своих органов чувств человек получает информацию из внешнего мира.
Информация понятна, если она выражена на языке доступном для получателя.
Сообщение может пополнить знания человека, если оно имеет полезную информацию,совершенно новую для человека
Знания можно разделить на процедурные и декларативные. К фактам относятся знания об определённых явлениях (земля вращается вокруг своей оси), событиях (первый компьютер был создан в 1945г. в Америке), свойствах объектов (вес первой ЭВМ составлял 30 тонн), и зависимостях между объектами (у квадрата все углы прямые и все стороны равны).К правилам относятся знания о явлениях (смена времён года), знания о событиях (ВОВ 1941–1945 гг.), знания о свойствах объектов (вода может находиться в трёх состояниях), знания о зависимостях между объектами (у квадрата все стороны равны).