Э. А. Абдыкеримова
жүктеу/скачать 1,31 Mb. Pdf көрінісі
|
|
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,31 Mb. Достарыңызбен бөлісу:
|