Основы Массива

Автор работы: Пользователь скрыл имя, 13 Марта 2014 в 21:31, реферат

Краткое описание

Көптеген жылдар бойы алгоритмге деген қызығушылық өсу үстінде .Ол ғылыми зертеулерде, техникада, эконмикада және т.с.с. көптеген салаларда есептеуіш машиналарда қолданумен байланысты. Бұл есептеуіш машиналары берілген алгоритмдерге сәйкес оның кейбір өлшемдерінің құрылымен дәл орындайды. Бұл мүмкіндіктің тартымды болу себебі, айтып кеткен зертеулер көлеміндегі зерттелінетін процестер көп жағдайда математикалық функция, теңдеулер жүйесі, теңсіздіктер көмегімен сипатталады және осы зерттелінетін процестердің нақты мәліметтерін алу үшін математикалық объектіде кейбір іс - әрекеттер жасау қажет. Адамға тек, керекті түрлендірулер мен есептеулердің алгоритмдерін сипаттаса болғаны, қалғанын есептеуіш машинасы өзі орындайды. Есептеуіш машиналары тек сандық алгоритмдерді орындайды деп ойламау керек. Сонымен қатар бұл машиналар алгебралық формулалар, текстер және т.б. символдарының нәтижелерін түрлендіре алады.

Содержание

КІРІСПЕ
ТАРАУ 1. ЖИЫНДАР
Жиындар туралы түсінік.
“ Жиын ” типті типтелген константалар.
Жиынның қасиеттері.
Жиындарға амалдар қолдану.
Жиында қолданылатын процедуралар.
ҚОРЫТЫНДЫ
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР
ҚОСЫМША

Прикрепленные файлы: 1 файл

Азамат реферат жиын.doc

— 139.50 Кб (Скачать документ)

Var ch: Char;

Begin

         If  name= ‘’ Then  Write(‘[‘) else Write(name, ‘=[‘);

         For  ch:= #0 To #255 Do

         Begin

              If ch In S Then

              Begin

                 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;

Begin

           First:=’A’;

           Last:=’Z’;

          S:=[First..last];

           Print (‘ S жиыны:’, S);

           Randomize;

           k:=5;

           WriteLn(‘Случайные подмножества S, состоящие из ‘, k, ‘элементов’);

           For i:=1 To 20 Do

           Begin

               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.

 


 



Информация о работе Основы Массива