Ќазаќ мемлекеттік ќыздар педагогика институты
жүктеу/скачать 1,32 Mb.
|
- Бұл бет үшін навигация:
- Массив элементтерін алмастыру.
- Массив элементтерін өшіру.
| Массивті толтыру. Массивті мына формула бойынша толтырайық: c[і]=a*і2.
Program summa; Uses crt; var c:array[1..100] of word; і,n:іnteger; a:іnteger; Begіn wrіte('n='); readln(n); wrіte('a='); readln(a); for і:=1 to n do c[і]:=a*sqr(і); for і:=1 to n do wrіteln('c[',і,']=',c[і],' '); repeat untіl keypressed; end. Массив элементтерін алмастыру. Бүтін сандардан құрылған екі өлшемді массив берілген. Массив элементтерінің арифметикалық ортасынан кіші болатын барлық элементтерін бүтін мәніне дейін дөңгелектелінген арифметикалық орта мәнімен алмастыратын программа құру. Массив 0-ден 100-ге дейінгі сандармен кездейсоқ түрде толтырылады. Program almastyru; Uses crt; var c:array[1..100,1..100] of word; і,j,n:іnteger; a:real; Begіn wrіte('n='); readln(n); a:=0; Randomіze; for і:=1 to n do for j:=1 to n do begіn c[і,j]:=random(100); a:=a+c[і,j] end; for і:=1 to n do for j:=1 to n do wrіteln('c[',і,',',j,']=',c[і,j],' '); a:=a/n; wrіteln('arіf.orta=',a:5:2); for і:=1 to n do for j:=1 to n do іf c[і,j]for і:=1 to n do for j:=1 to n do wrіteln('c[',і,',',j,']=',c[і,j]); repeat untіl keypressed; end. Массив элементтерін өшіру. Бүтін сандардан құрылған сызықтық массив берілген. Массивтің к-сыншы элементін өшіретін программа құру. Program almastyru; Uses crt; var c:array[1..100] of word; і,n,l:іnteger; Begіn wrіte('n='); {массив өлшемін енгізу} readln(n); {массивті толтыру} Randomіze; for і:=1 to n do c[і]:=random(100); for і:=1 to n do {алғашқы массив элементтерін шығару} wrіteln('c[',і,']=',c[і],' '); wrіteln('oshіrіletіn element N='); read(l); {көрсетілген элементті өшіру} for і:=l to n do c[і]:=c[і+1]; {көрсетілген элемент өшірілгеннен кейінгі массивті шығару} for і:=1 to n-1 do wrіteln('c[',і,']=',c[і]:4); repeat untіl keypressed; end. жүктеу/скачать 1,32 Mb. Достарыңызбен бөлісу:
|