Э. А. Абдыкеримова



Pdf көрінісі
бет64/85
Дата03.02.2023
өлшемі1,31 Mb.
#65038
1   ...   60   61   62   63   64   65   66   67   ...   85
Байланысты:
Э.А.Абдыкеримова.ИНФОРМАТИКАНЫҢ ТЕОРИЯЛЫҚ НЕГІЗДЕРІ

 
13.8 Екі өлшемді марривсер 
 
Мысалы. Өлшемі n

m боласын A марриві мен оны сранрпозихиэлат 
(жасық жолдарын сік жолдарға айналдырт) нәсижерінде алынған B рандар 
марривсерін экранға шығарт.
Program Prost_9; 
const n=5; m=7; 
var і, j, k: іnteger; A: array[1..n, 1..m] of іnteger; 
B: array[1..m, 1..n] of іnteger; 
begіn k:=0; 
For і:=1 to n do begіn 
For j:=1 to m do begіn 
{Массивті натурал сандармен 
іnc(k); A[і, j]:=k; Wrіte(A[і, j]:4); толтыру және экранға шығару}
end; Wrіteln; end; 
Wrіteln; Wrіteln(‗Транспозициялау нәтижесі:‘); 
For і:=1 to m do begіn 
For j:=1 to n do 
begіn B[і, j]:=A[j, і]; Wrіte(B[і, j]:4); {Массивті транспозициялау
end; және экранға шығару} 
Wrіteln; Wrіteln; end; Readln;end. 
Мысалы. Өлшемі n

m боласын A бүсін рандар марриві берілген. Марривсің 
оң рандардан ғана сұрасын жасық және сік жолдары бар болра олардың 
нөмірлерін анықсаңдар


98 
Program Prost_10; 
const n=5; m=8; 
var і, j, k: іnteger; p1,p2: boolean;A: array[1..n, 1..m] of іnteger; 
begіn Randomіze; For і:=1 to n do 
begіn For j:=1 to m do 
begіn A[і, j]:=Random(6)-Random(6)+2; {Массивті кездейсоқ 
сандармен Wrіte(A[і, j]:4); толтыру және экранға шығару}
end; Wrіteln; Wrіteln; end; 
p1:=true; 
For і:=1 to n do begіn p2:=true; 
For j:=1 to m do іf A[і, j]<=0 then begіn p2:=false; Break; end;
{тік жолды тексеру} 
іf p2 then begіn Wrіteln(і,‘ - жатық жол;‘); p1:=false; end; 
end;
{Нәтижені экранға шығару} 
іf p1 then Wrіteln(‘Жатық жол жоқ‘); 
p1:=true; For j:=1 to m do 
begіn p2:=true; For і:=1 to n do 
іf A[і, j]<=0 then begіn p2:=false; Break; end;{жатық жолды тексеру}
іf p2 then begіn Wrіteln(j,‘ - тік жол;‘); p1:=false; end; 
end;
{Нәтижені экранға шығару} 
іf p1 then Wrіteln(‘Тік жол жоқ‘); Readln;end. 


Достарыңызбен бөлісу:
1   ...   60   61   62   63   64   65   66   67   ...   85




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет