Автор работы: Пользователь скрыл имя, 23 Декабря 2011 в 06:17, курсовая работа
Қазақстан Республикасындағы білімді ақпараттандыру жүйесі ары қарай дамыту процесін оқып үйренудің ақпараттық ресурсы болып табылатын оқытуға арналған программалық құралдарды дайындамай жүзеге асыруы мүмкін емес. Олардың атқаратын қызметтерінің ауқымы кең, мысалы, бақылайтын және тест жүргізетін программалар, компьютерлік ойындар, ақпараттық жүйелер, оқыту орталары, электрондық оқулықтар және мультимедиалық программалар.
program e9_14;
const n=3;
var i,j,x1,k,s,s1: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,‘ -нөмірлі a-ны енгізіңіз:’); 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;
x1:=0;
for i:=1 to n do x1:=x1+a[1,i];
k:=0;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
s:=s+a[i,j];
if s=x1 then k:=k+1;
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
s:=s+a[j,i];
if s=x1 then k:=k+1;
end;
s:=0; s1:=0;
for i:=1 to n do begin
s:=s+a[i,i];
s1:=s1+a[i,n-i+1];
end;
if s=x1 then k:=k+1; if s1=x1 then k:=k+1;
if k=2*n+2 then write(‘сиқырлы шаршы болады!‘)
else write(’ сиқырлы шаршы
end.
Нәтижесі:
1 1-нөмірлі элементті енгізіңіз:2
1 2-нөмірлі элементті енгізіңіз:9
1 3-нөмірлі элементті енгізіңіз:4
2 1-нөмірлі элементті енгізіңіз:7
2 2-нөмірлі элементті енгізіңіз:5
2 3-нөмірлі элементті енгізіңіз:3
3 1-нөмірлі элементті енгізіңіз:6
3 2-нөмірлі элементті енгізіңіз:1
3 3-нөмірлі элементті енгізіңіз:8
енгізілген шаршы түрі:
2 9 4
7 5 3
6 1 8
сиқырлы шаршы болады!
№24. Берілген бүтін санды 44 матрицасы латын шаршысы бола
ма, яғни оның қатары мен
сандар бір ғана рет кездесе ме, соны анықтаңыз.
|
Мыс:
program e9_15;
label 1,2;
const n=4;
var i,j,s,s1: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,‘ -нөмірлі a-ны енгізіңіз:’); 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;
s1:=0;
for i:=1 to n do s1:=s1+i;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
s:=s+a[i,j];
if s<>s1 then goto 1
end;
for i:=1 to n do
begin
s:=0;
for j:=1 to n do
s:=s+a[j,i];
if s<>s1 then goto 1
end;
s:=0; s1:=0;
for i:=1 to n do begin
s:=s+a[i,i];
s1:=s1+a[i,n-i+1];
end;
write(‘латын шаршысы болады!‘);
goto 2;
1: write(’латын шаршысы болмайды’);
2: end.
Нәтижесі:
1 1-нөмірлі элементті енгізіңіз:1
1 2-нөмірлі элементті енгізіңіз:2
1 3-нөмірлі элементті енгізіңіз:3
1 4-нөмірлі элементті енгізіңіз:4
2 1-нөмірлі элементті енгізіңіз:2
2 2-нөмірлі элементті енгізіңіз:1
2 3-нөмірлі элементті енгізіңіз:4
2 4-нөмірлі элементті енгізіңіз:3
3 1-нөмірлі элементті енгізіңіз:3
3 2-нөмірлі элементті енгізіңіз:4
3 3-нөмірлі элементті енгізіңіз:1
3 4-нөмірлі элементті енгізіңіз:2
4 1-нөмірлі элементті енгізіңіз:4
4 2-нөмірлі элементті енгізіңіз:3
4 3-нөмірлі элементті енгізіңіз:2
4 4-нөмірлі элементті енгізіңіз:1
енгізілген шаршы түрі:
1 2 3 4
2 1 4 3
3 4 1 2
4 3 2 1
латын шаршысы болады!
№25. Бүтін сандардан тұратын 7х7 өлшемді элементтері болып келетін, спираль бойынша орналасқан матрицаны ал.
Мысалы:
1-жолы: Program spiral1;
Var a:array[1..7,1..7] of integer;
s,k1,k2,k3,k4,i,j:integer;
begin
s:=1; i:=1; k1:=1; k2:=2; k3:=1; k4:=2;
while s<=49 do
begin
for j:=k1 to 8-k1 do
begin
a[i,j]:=s; s:=s+1;
end;
k1:=k1+1;
for j:=k2 to 9-k2 do
a[j,8-i]:=s; s:=s+1;
a[8-i,j]:=s; s:=s+1;
begin
end;
Writeln('Spiral boinsha ornalaskan matrisa:');
End.
2-жолы: Program spiral2;
uses crt;
Const n=7;
p=Trunc((n-1)/2);
Type Int_n=1..n;
Matrix=array[int_n,int_n] of integer;
var i,j,t:int_n;
S:integer; M:matrix;
Begin clrscr;
S:=0;
for t:=1 to p do
begin
i:=t;
For j:=t to n-t+1 do