Автор работы: Пользователь скрыл имя, 23 Декабря 2011 в 06:17, курсовая работа
Қазақстан Республикасындағы білімді ақпараттандыру жүйесі ары қарай дамыту процесін оқып үйренудің ақпараттық ресурсы болып табылатын оқытуға арналған программалық құралдарды дайындамай жүзеге асыруы мүмкін емес. Олардың атқаратын қызметтерінің ауқымы кең, мысалы, бақылайтын және тест жүргізетін программалар, компьютерлік ойындар, ақпараттық жүйелер, оқыту орталары, электрондық оқулықтар және мультимедиалық программалар.
for i:=1 to n do
if a[i] mod 2=0 then a[i]:=0 else a[i]:=-1;
writeln;
for i:=1 to n do write(‘ ’,a[i]);
end.
Нәтижесі:
1-нөмірлі элементті енгізіңіз:3
2-нөмірлі элементті енгізіңіз:6
3-нөмірлі элементті енгізіңіз:5
4-нөмірлі элементті енгізіңіз:2
5-нөмірлі элементті енгізіңіз:8
-1 0 -1 0 0
№17. n элементі бар(n-жұп) жиым берілген. Оларды мына ретпен:
a1,an,a2,an-1,…,an/2,an/2+1 басып шығарыңыз.
program e8_4;
const n=6;
var a:array[1..n] of integer; i:integer;
begin
for i:=1 to n do
begin
write(i,‘ -нөмірлі элементті енгізіңіз:’); readln(a[i]);
end;
for i:=1 to n do
write(‘ ’,a[i],’ ’,a[n-1+1])
end.
Нәтижесі:
1-нөмірлі элементті енгізіңіз:8
2-нөмірлі элементті енгізіңіз:6
3-нөмірлі элементті енгізіңіз:4
4-нөмірлі элементті енгізіңіз:2
5-нөмірлі элементті енгізіңіз:8
6- нөмірлі элементті енгізіңіз:6
8 6 6 6 4 6 2 6 8 6 6
№18. n элементі бар(n-жұп) жиым берілген. Мұндағы жұп және тақ
нөмірлі элементтердің орнын былайша: а1 мен а2-ні, а3-пен а4-ті
т.с.с ауыстырыңыз. Қорытынды жиымды шығарыңыз.
program e8_5;
const n=6;
var a:array[1..n] of integer; i,x:integer;
begin
for i:=1 to n do
begin
write(i,‘ -нөмірлі элементті енгізіңіз:’); readln(a[i]);
end;
for i:=1 to n-1 do
if i mod 2=1 then
begin x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x end;
for i:=1 to n do write(‘ ’,a[i]);
end.
Нәтижесі:
1-нөмірлі элементті енгізіңіз:4
2-нөмірлі элементті енгізіңіз:8
3-нөмірлі элементті енгізіңіз:6
4-нөмірлі элементті енгізіңіз:2
5-нөмірлі элементті енгізіңіз:4
6-нөмірлі элементті енгізіңіз:8
8 4 2 6 8 4
№19. Әрқайсысы n элементтен тұратын екі жиым берілген.
Құрамына кезекпен 1-жиым, сосын 2-жиым элементтері енетін
3-жиым құрып оны баспаға
program e8_6;
const n=5;
var a,b:array[1..n] of integer; c:array[1..2*n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
write(i,‘-нөмірлі a және b элементін енгізіңіз:’); readln(a[i],b[i]);
end;
for i:=1 to n do begin
k:=k+1; c[k]:=a[i];
k:=k+1; c[k]:=b[i]
end;
for i:=1 to n*2 do
write(‘ ‘,c[i]);
end.
Нәтижесі:
1-нөмірлі a және b элементін енгізіңіз:5 6
2-нөмірлі a және b элементін енгізіңіз:8 7
3-нөмірлі a және b элементін енгізіңіз:9 1
4-нөмірлі a және b элементін енгізіңіз:3 5
5-нөмірлі a және b элементін енгізіңіз:2 4
5 6 8 7 9 1 3 5 2 4
№20. n элементі(натурал сандар) бар жиым берілген. 3-ке еселі
элементтер санын анықтаңыз.
program e8_9;
const n=5;
var a:array[1..n] of integer; i,s:integer;
begin
for i:=1 to n do
begin
write(i,‘ -нөмірлі элементті енгізіңіз:’); readln(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i] mod 3=0 then s:=s+1;
write(‘3-ке еселі элементтер саны =’,s)
end.
Нәтижесі:
1-нөмірлі элементті енгізіңіз:12
2-нөмірлі элементті енгізіңіз:45
3-нөмірлі элементті енгізіңіз:65
4-нөмірлі элементті енгізіңіз:73
5-нөмірлі элементті енгізіңіз:89
3-ке еселі элементтер саны =2
№21. 55 матрица берілген. Қатар элементтерінің арифметикалық
орта шамасынан тұратын бір өлшемді В(5) жиымын құрыңыз.
program e9_8;
const n=5;
var i,j,s:integer; a:array[1..n,1..n] of integer; b:array[1..n] of real;
begin
for i:=1 to n do
for j:=1 to n do
begin
write(i,j,‘ -нөмірлі a-ны енгізіңіз:’); readln(a[i,j]);
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to 5 do
s:=s+a[i,j];
b[i]:=s/5
end;
writeln(‘құрылған бір өлшемді жиым түрі:’);
for i:=1 to n do
write(b[i]:3); writeln;
writeln(‘енгізілген екі өлшемді жиым түрі:’);
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln
end;
end.
Нәтижесі:
11-нөмірлі элементті енгізіңіз:7
12-нөмірлі элементті енгізіңіз:6
13-нөмірлі элементті енгізіңіз:5
14-нөмірлі элементті енгізіңіз:8
15-нөмірлі элементті енгізіңіз:9
21-нөмірлі элементті енгізіңіз:5
22-нөмірлі элементті енгізіңіз:4
23-нөмірлі элементті енгізіңіз:3
24-нөмірлі элементті енгізіңіз:2
25-нөмірлі элементті енгізіңіз:7
31-нөмірлі элементті енгізіңіз:6
32-нөмірлі элементті енгізіңіз:5
33-нөмірлі элементті енгізіңіз:8
34-нөмірлі элементті енгізіңіз:9
35-нөмірлі элементті енгізіңіз:7
41-нөмірлі элементті енгізіңіз:8
42-нөмірлі элементті енгізіңіз:4
43-нөмірлі элементті енгізіңіз:3
44-нөмірлі элементті енгізіңіз:2
45-нөмірлі элементті енгізіңіз:1
51-нөмірлі элементті енгізіңіз:4
52-нөмірлі элементті енгізіңіз:5
53-нөмірлі элементті енгізіңіз:6
54-нөмірлі элементті енгізіңіз:7
55-нөмірлі элементті енгізіңіз:8
құрылған бір өлшемді жиым түрі:
7.0 4.2 7.0 8.6 6.0
енгізілген екі өлшемді жиым түрі:
7 6 5 8 9
5 4 3 2 7
6 5 8 9 7
8 4 3 2 1
4 5 6 7 8
№22. 55 матрица берілген. Матрицаны жоғарғы үшбұрыш түрінде
шығарыңыз.
program e9_10;
const n=5;
var i,j:integer; a:array[1..n,1..n] of integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write(i,’ ‘,j,‘ -нөмірлі элементті енгізіңіз:’); readln(a[i,j]);
end;
writeln(‘енгізілген екі
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln
end;
writeln(‘матрицаның жоғарғы үшбұрышы:’);
for i:=1 to n do begin
for j:=1 to n do
if j<i then write(‘ ‘) else write(a[i,j]);
end; writeln
end.
Нәтижесі:
1 1-нөмірлі элементті енгізіңіз:2
1 2-нөмірлі элементті енгізіңіз:3
1 3-нөмірлі элементті енгізіңіз:7
1 4-нөмірлі элементті енгізіңіз:9
1 5-нөмірлі элементті енгізіңіз:6
2 1-нөмірлі элементті енгізіңіз:5
2 2-нөмірлі элементті енгізіңіз:4
2 3-нөмірлі элементті енгізіңіз:8
2 4-нөмірлі элементті енгізіңіз:1
2 5-нөмірлі элементті енгізіңіз:0
3 1-нөмірлі элементті енгізіңіз:9
3 2-нөмірлі элементті енгізіңіз:7
3 3-нөмірлі элементті енгізіңіз:4
3 4-нөмірлі элементті енгізіңіз:5
3 5-нөмірлі элементті енгізіңіз:3
4 1-нөмірлі элементті енгізіңіз:6
4 2-нөмірлі элементті енгізіңіз:0
4 3-нөмірлі элементті енгізіңіз:3
4 4-нөмірлі элементті енгізіңіз:7
4 5-нөмірлі элементті енгізіңіз:2
5 1-нөмірлі элементті енгізіңіз:1
5 2-нөмірлі элементті енгізіңіз:8
5 3-нөмірлі элементті енгізіңіз:5
5 4-нөмірлі элементті енгізіңіз:1
5 5-нөмірлі элементті енгізіңіз:9
енгізілген екі өлшемді жиым түрі:
2 3 7 9 6
5 4 8 1 0
9 7 4 5 3
6 0 3 7 2
1 8 5 1 9
матрицаның жоғарғы үшбұрышы:
23796
4810
453
72
9
№23. Берілген 33 бүтін санды матрицасы сиқырлы шаршы екен-
дігін, яғни ондағы әр қатардың, бағанның және диагональдар
дағы сандардың қосындысы тең болатындығын анықтаңыз.
|
Мыс: