Автор работы: Пользователь скрыл имя, 13 Марта 2014 в 21:31, реферат
Көптеген жылдар бойы алгоритмге деген қызығушылық өсу үстінде .Ол ғылыми зертеулерде, техникада, эконмикада және т.с.с. көптеген салаларда есептеуіш машиналарда қолданумен байланысты. Бұл есептеуіш машиналары берілген алгоритмдерге сәйкес оның кейбір өлшемдерінің құрылымен дәл орындайды. Бұл мүмкіндіктің тартымды болу себебі, айтып кеткен зертеулер көлеміндегі зерттелінетін процестер көп жағдайда математикалық функция, теңдеулер жүйесі, теңсіздіктер көмегімен сипатталады және осы зерттелінетін процестердің нақты мәліметтерін алу үшін математикалық объектіде кейбір іс - әрекеттер жасау қажет. Адамға тек, керекті түрлендірулер мен есептеулердің алгоритмдерін сипаттаса болғаны, қалғанын есептеуіш машинасы өзі орындайды. Есептеуіш машиналары тек сандық алгоритмдерді орындайды деп ойламау керек. Сонымен қатар бұл машиналар алгебралық формулалар, текстер және т.б. символдарының нәтижелерін түрлендіре алады.
КІРІСПЕ
ТАРАУ 1. ЖИЫНДАР
Жиындар туралы түсінік.
“ Жиын ” типті типтелген константалар.
Жиынның қасиеттері.
Жиындарға амалдар қолдану.
Жиында қолданылатын процедуралар.
ҚОРЫТЫНДЫ
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
ҚОСЫМША
Var ch: Char;
If name= ‘’ Then Write(‘[‘) else Write(name, ‘=[‘);
For ch:= #0 To #255 Do
Begin
If ch In S Then
If (ch <= ‘’) or (ch= #255) Then Write (‘Chr(‘, ord(ch), ‘)’)
Else Write(ch);
S:=S- [ch];
If S=[ ] Then break;
Write (‘,’);
End;
End;
WriteLn (‘]’);
End;
First:=’A’;
Last:=’Z’;
S:=[First..last];
Print (‘ S жиыны:’, S);
Randomize;
k:=5;
WriteLn(‘Случайные подмножества S, состоящие из ‘, k, ‘элементов’);
For i:=1 To 20 Do
Stop:= last;
For j:=1 To k-1 Do dec(stop);
J:= ord(stop)- ord(first)+1;
S:=[ ];
While stop<= last Do
Begin
Ch:=Chr(ord(first)+random(j));
If ch In S Then S:=S+[stop] else S:=S+[ch];
Inc(stop); Inc(j);
End;
Print(‘’, S);
End;
WriteLn(‘жұмысты аяқтау үшін <Enter>-ді
басыңыз ’);
ReadLn;
End.