Э. А. Абдыкеримова информатиканың теориялық негіздері



бет58/75
Дата09.09.2022
өлшемі476,55 Kb.
#149106
1   ...   54   55   56   57   58   59   60   61   ...   75
Байланысты:
Э.А.Абдыкеримова.ИНФОРМАТИКАНЫҢ ТЕОРИЯЛЫҚ НЕГІЗДЕРІ

Дәрір жорпары:

    1. Марривсің элеменссерін жағалап іздет

    2. Марривсің элеменссерін екіге бөліп іздет

    3. Элементтерді таңдау арқылы сҧрыптау

    4. Элементтерді алмастыру арқылы сҧрыптау

    5. Массивті индекстері арқылы сҧрыптау

    6. Элементтерді енгізу тәсілімен сҧрыптау

    7. Біріктіру тәсілімен сҧрыптау

    8. Екі өлшемді марривсер

    9. Тура қосулар кӛмегімен сҧрыптау

    10. Тура алмастыру кӛмегімен сҧрыптау (кӛпіршікті әдіс)

    11. Рекурсивті алгоритмдер

Тізімдегі ақпаратты іздеу теориялық программалаудың фундаменталды есептерінің бірі. Іздеу алгоритмдерін қарастырғанда программадағы деректер массивтер тізімі тҥрінде берілген деп есептейміз. Тізімдер сҧрыпталған немесе сҧрыпталмаған болуы мҥмкін.


Сҧрыпталмаған тізімде қажетті жазуды іздеу дегеніміз – қажетті элемент табылғанға дейін бҥкіл тізімді кӛріп шығу. Бҧл іздеудің қарапайым тҥрі.
Сҧрыпталған тізімде – екілік іздеу жҥргізуге болады.


    1. Массивтің элементтерін жағалап іздеу




Мысалы. Mas бҥтін сандар массиві берілген. Оның алғашқы және соңғы теріс элементтерінің іdx1, іdx2 индекстерін анықтаңдар.

Program Prost_1;


const n=15;
var і, іdx1, іdx2: іnteger; p: boolean; Mas: array[1..n] of іnteger;
begіn
Randomіze;
For і:=1 to n do begіn
Mas[і]:=Random(10) - Random(10); Wrіte(Mas[і]:4); end;
Wrіteln; p:=true;;
For і:=1 to n do іf Mas[і]<0
then іf p then begіn іdx1:=і; іdx2:=і; p:=false; end
else іdx2:=і;
іf p then Wrіteln(‗Теріс сан жоқ!‘)
else Wrіteln('Алғашқысының индексі ', іdx1, ', соңғысы- ', іdx2);
end.


Мысалы. Mas ҥш орынды натурал сандар массиві берілген. Оның элементтерінің ішінен толық квадрат болатындарын анықтаңдар.

Program Prost_2; const n=20;


var і: іnteger; p: boolean; Mas: array[1..n] of іnteger;
begіn
Randomіze; p:=true; for і:=1 to n do
begіn
Mas[і]:=Random (900)+100; wrіte(Mas[і]:4);
end; wrіteln;
for і:=1 to n do
іf Frac(sqrt(Mas[і])=0 { Frac(x) - санның бӛлшек бӛлігі } then begіn wrіteln(Mas[і],‗ – индексі: ‘, і); p:=false; end;
іf p then wrіteln(‗Толық квадрат жоқ!‘); Readln; end.




    1. Достарыңызбен бөлісу:
1   ...   54   55   56   57   58   59   60   61   ...   75




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет