Знание-Совокупность сведений,познаний в какой-нибудь области.
Чувственное познание- не вид познания,к которому обычно относят ощущение, восприятие и представление.
Ощущение-воздействия объективного мира на органы чувств..
Восприятие-это познавательный процесс формирующий субъективную картину мира.
Представление-произведённый образ предмета или явления, которые здесь и сейчас человек не воспринимает и который основывается на опыте субъекта.
Понятие-это отражение существенных признаков предметов окружающего мира и взаимосвязи между ним.
Суждение-это форма мышления представляющие собой сочетание понятий.
Умозаключение-это вывод, заключение из каких-нибудь суждениц
procedure TfrmMain.FindFilesOnDisk(Dir : string);
var SR : TSearchRec;
Err : integer;
i, j : integer;
st : string;
begin
if (Dir[Length(Dir)] <> '\') then Dir := Dir + '\';
Err := FindFirst(Dir + '*.*', faAnyFile, SR);
while Err = 0 do
begin
j := 0;
st := AnsiUpperCase(SR.Name);
if lbDirs.Items.Count > 0 then //Если в списке есть каталоги
//Проверить, нет ли среди них
for i := 0 to lbDirs.Items.Count - 1 do
if lbDirs.Items[i] = st then //найденного
begin
j := 1;
break;
end; //if lbDirs.Items[i] = st then
if j = 0 then
begin
if (SR.Name <> '.') and
(SR.Name <> '..') and
((SR.Attr and faDirectory) <> 0) then
begin
inc(NumDir);
DirList.Add(Dir + st);
frmMain.sbMain.Panels[1].Text := IntToStr(NumDir);
pbFind.Position := NumDir;
Application.ProcessMessages;
FindFilesOnDisk(Dir + SR.Name);
end; //if (SR.Name <> '.') and
end; //if j = 0 then
Err := FindNext(SR);
end;
end;
Объяснение:
444|0
222|0
111|1
55 |1
27 |1
13 |1
6 |0
3 |1
1 |1
0 |
444₁₀=110111100₂
444|0
148|1
49 |1
16 |1
5 |2
1 |1
0 |
444₁₀ = 121110₃
444|4
55 |7
6 |6
0 |
444₁₀ = 674₈