Массив түсінігі
Массив элементтерін ендіру және шығару
жүктеу/скачать 19,47 Kb.
|
Массив түсінігі
| Массив элементтерін ендіру және шығару
Массив элементтерін ендіру және шығару цикл арқылы жүзеге асырылады. Егер элементтерді ендіру үшін Read операторы қолданылса, онда элементтер бір қатарға жазылып ендіріледі. Ал Readln операторы қолданылса, онда әр элементті жаңа қатардан енгізу керек. .................................................. Readln(N); For K:=1 To N do Read(A[K]); ................................................. Readln(N);K:=1; Repeat Read(A[K]; K:=K+1 Until K>N; .................................................. Readln(N); K:=1; While K= ............................................... Бағдарламаның орындалу нәтижесінде N элементтен тұратын массив элементтерін пернетақтадан ендіруді ұйымдастырады, бағдарламада циклді оқығанда Read операторын N рет оқып тоқтап, массив элементтері мәндерін қашан пернетақтадан енгізгенше күтіп тұрады, бұл жерде К айнымалысы цикл параметрі қызметімен қоса массив индексі ретінде де қолданылып тұр. Кейде бағдарламаның әр орындалуында массив элементтерінің мәндерін қайта-қайта пернетақтадан енгізу керек болады, бұл әсіресе енгізілетін элементтер саны өте көп болған кездерде бағдарлама орындаушы кісіні жалықтырып жібереді, сондықтан бұндай жағдайларда оларды бірден тұрақтылар бөлімінде енгізіп қойса да болады: CONST N=5; A:ARRAY[1..N]OF REAL=(40.5, 48, 47.1, 52.3, 11.2); B:ARRAY[1..9]OF REAL={31,25,40, 1.5,48,54.7, 12.3,54.5,21); Массив элементтерін шығару процесі де ендіруге ұқсайды. Егер цикл денесінде элементтерді шығару үшін Write операторы қолданылса, онда массив элементтері экранға бір қатарға бір-біріне жабысып жазылып шығады. Бұл жағдайда нәтиженің көрнекілігін арттыру үшін Write операторында массивтен кейін бос орын жазылады. Ал Writeln операторы қолданылса, онда массивтің әрбір элементі жаңа қатарға жазылып шығады. ..................................................................... For K:=1 To N Do Write(‘A[‘,K,’]=’, A[K], ’ ‘); …………………………………… К: =1; Repeat Writeln(A[K]); K:=K+1 Until K>N; ................................................................ K: =1; While K= ...................................................... жүктеу/скачать 19,47 Kb. Достарыңызбен бөлісу:
|