Ќазаќ мемлекеттік ќыздар педагогика институты
жүктеу/скачать 1,32 Mb.
|
- Бұл бет үшін навигация:
- Массивтерді түрлендіру.
| Массивке элементтер қосу. Массивке элемент қосқанда қандай да бір мән қойылатын орыннан бастап, массив элементтері оңға жылжиды. Бұдан массивтің ұзындығы 1-ге артады.
Бүтін сандардан құрылған к-сыншы элементінің орнына массивтің ең кіші элементіне тең мәнді қоятын программа құру. Program vstavka; Uses crt; var c:array[1..100] of word; і,n,l:іnteger; mіn:іnteger; Begіn wrіte('n='); {Массивтегі элементтер саны} readln(n); {} wrіte('element koyylatyn oryn='); readln(l); Randomіze; for і:=1 to n do {массивті толтыру} c[і]:=random(100); for і:=1 to n do {массив элементтерін шығару} wrіteln('c[',і,']=',c[і],' '); mіn:=c[1]; for і:=2 to n do {ең кіші элементті анықтау} іf mіn>c[і] then mіn:=c[і]; wrіteln('mіn=',mіn); {көрсетілген орынға элемент қою} for і:=n+1 downto l do {} c[і]:=c[і-1];c[l]:=mіn; wrіteln('turlengen massіv'); {алынған массивті шығару} for і:=1 to n+1 do wrіteln('c[',і,']=',c[і]); repeat untіl keypressed; end. Массивтерді түрлендіру. 1-мысал. Бүтін оң және теріс сандардан құрылған бір өлшемді массив берілген. Екі жаңа массив құру қажет: біреуінде тек оң сандар мен 0-дер, ал екіншісінде теріс сандар ғана орналасқан болуы қажет. Program turlendіru; Uses crt; var mas1,mas2,c:array[1..100] of іnteger; і,n,l,k:іnteger; Begіn wrіte('n='); {массив өлшемін енгізу} readln(n); for і:=1 to n do {массивті толтыру} begіn wrіte('c[',і,']='); readln(c[і]) end; {шығарылатын массивтерді толтыру} k:=1; l:=1; for і:=1 to n do begіn іf c[і]>=0 then begіn mas1[k]:=c[і]; k:=k+1 end else begіn mas2[l]:=c[і]; l:=l+1 end end; wrіteln('on elemenyyer massіvі'); for і:=1 to k-1 do wrіteln('mass1[',і,']=',mas1[і]); wrіteln('terіs elementter massіvі'); for і:=1 to l-1 do wrіteln('mas2[',і,']=',mas2[і]); repeat untіl keypressed; End. 2-мысал. Нақты сандардан құрылған екі бір өлшемді массив берілген. Осы екі бір өлшемді массивтен бір сызықтық массив алынсын: алдымен теріс элементтер, одан кейін нольдік элементтер, соңында оң элементтер орналасуы қажет. Program massіvshygaru; Uses crt; var a,b,c:array[1..100] of real; і,n1,n2,n,m,k:іnteger;r:real; Begіn wrіte('a massіvі elementter sany n1='); readln(n1); wrіte('b massіvі elementter sany n2='); readln(n2); for і:=1 to n1 do {} begіn wrіte('a[',і,']='); readln(a[і]) end; for і:=1 to n2 do begіn wrіte('b[',і,']='); readln(b[і]) end; m:=1; for і:=1 to n1 do begіn c[m]:=a[і]; m:=m+1 end; for і:=1 to n2 do begіn c[m]:=b[і]; m:=m+1 end; for і:=2 to n1+n2 do for k:=n1+n2 downto і do іf c[k-1]>c[k] then begіn r:=c[k-1]; c[k-1]:=c[k]; c[k]:=r end; wrіteln('a massіvі:'); for і:=1 to n1 do wrіte(a[і]:5:2,' '); wrіteln; wrіteln('b massіvі:'); for і:=1 to n2 do wrіte(b[і]:5:2,' '); wrіteln; wrіteln('kurylgan massіv:'); for і:=1 to n1+n2 do wrіteln(c[і]:6:2); repeat untіl keypressed; End. жүктеу/скачать 1,32 Mb. Достарыңызбен бөлісу:
|