x: array [1..n] of real;
S: real;
begin
for i: =1 to n do readln (x[i]); { массив щадларини
киритиш}
S: =0;
for i: =1 to n do S: =S+x[i];
writeln (‘натижа=’, S)
end.
2. Бир ылчамли, n та щадли (n=30) массив щадларининг энг каттасини топиш ва унинг жойлашган жойини ани=лаш.
Program L2;
const n=30;
type
gran = 1..30;
vector = array [gran] of real;
var
x: vector;
S: real;
i, k: integer;
begin
writeln (‘ х - массиви щадларини киритинг’);
for i: =1 to n do readln (x[i]);
S: =x[1]; k: =1;
for i: =2 to n do
if x[i] > S then
begin
S: =x[i]; k: =i
end;
writeln (‘х массивининиг энг катта щади’);
writeln (S);
writeln (‘max(x) нинг ырни’, k)
end.
3. n та щадли (n = 15) векторларнинг скаляр кыпайтмасини ани=лаш.
Program L3;
const n=15;
type
gran = 1..n;
mas = array [gran] of real;
var
i: byte;
S: real;
x, y: mas;
begin
writeln (‘х ва у массив щадларини киритинг’);
for i: =1 to n do readln (x[i]);
for i: =1 to n do readln (y[i]);
S: =0;
for i:=1 to n do S:= S + x[i] * y[i];
writeln (‘натижа’, S)
end.
3. Кып ылчамли массивлар ва улар устида амаллар
Бир ылчамли массивларнинг щадлари скаляр ми=дорлар былган эди. Умумий щолда эса, массив щадлари ыз навбатида яна массивлар былиши мумкин, агар бу массивлар скаляр ми=дорлар былса, натижада икки ылчамли массивларни щосил =иламиз. Икки ылчамли массивларга мисол сифатида математика курсидаги матрицаларни келтириш мумкин. Агар бир ылчамли массивнинг щадлари ыз навбатида матрицалар былса натижада уч ылчовли массивлар щосил =илинади ва щ.к.
Икки ылчамли массив типини кырсатиш =уйидагича бажарилади:
array [<индекс типи>] of array [<индекс типи>] of <скаляр тип>;
Икки ылчамли массивларнинг типларини бир неча хил йылда ани=лашни =уйидаги мисол устида кыриб чи=айлик (А матрица 10 та сатр ва 20 та устундан иборат былиб, унинг хадлари ща=ий=ий типга тегишли былсин):
1. var
A: array [1..10] of array [1..20] of real;
2. type matr = array [1..10] of array [1..20] of real;
var
A: matr;
3. type gran1 = 1..10; gran2 = 1..20;
matr = array [gran1, gran2] of real;
var A: matr;
4. var A: array [1..10, 1..20] of real;
Яна шуни щам айтиш мумкинки, икки ылчамли массив индексларининг типлари турли хил щам былиши мумкин. Бу щолни =уйидаги мисол устида кыриб чи=айлик:
Program L1;
const n = 24;
type hafcun = (dush, sesh, chor, pay, jum, shan, yaksh);
Ishkun = dush..jum;
detson = array [1..n] of char;
var A: array [boolean] of array [1..n] of char;
B: detson;
С: array [1..365] of detson;
Икки ылчамли массивлар устидаги бир нечта тугалланган программалар билан танишиб чи=айлик.
1. Матрицаларни =ышиш.
Program L2;
const n = 3; m = 4;
{ n - матрица сатрлари сони,
m - устунлар сони}
var i, j: integer;
A, B, C: array [1..n,1..m] of real;
begin {А, В матрица щадларини киритиш}
for i : = 1 to n do
for j: =1 to m do
readln (A[i,j], B[i,j]);
for i : = 1 to n do
for j: = 1 to m do
begin
C[i,j] := A[i,j] + B[i,j];
writeln (C[i,j])
end
end.
2. Матрицани векторга кыпайтириш.
Program L3;
const n =3; m = 4;
type matr = array [1..n, 1..m] of real;
vect = array [1..m] of real;
var i, j: byte;
A: matr;
B, C: vect;
begin
writeln (‘А матрица щадларини киритинг’);
for i:=1 to n do
for j:=1 to m do
readln (A[i,j]);
writeln (‘B вектор щадларини киритинг’);
for i:=1 to n do readln (B[i]);
for i:=1 to n do
begin
C[i]:=0;
for j:=1 to m do
C[i]:= C[i] + A[i,j] * B[j];
writeln (C[i]);
end
end.
3. Матрица щадларининг энг каттасини топиш ва унинг жойлашган жойини ани=лаш.
Program L4;
const n=3; m=4;
var A: array [1..n, 1..m] of real;
R: real;
i, j: byte; K, L: byte;
begin {А матрица щадларини киритиш}
for i: =1 to n do
for j: =1 to m do
readln (A[i,j]);
R:= A[1,1]; L:= 1; K:= 1;
for i: =1 to n do
for j: =1 to m do
begin
if R< A[i,j] then
begin
R: =A[i,j];
L: = i; K: =j;
end;
end;
writeln (‘max A=’, R);
writeln (‘сатр=’,L,’устун =’,K);
end.
Назарий саволлар ва таянч иборалар:
Массив деб нимага айтилади?
Массив щадига =андай мурожаат =илинади?
Бир ылчовли массивлар =андай эълон =илинади?
Бир ылчовли массивнинг энг катта ва энг кичик щадларини топиш дастурини тузинг;
Векторнинг скаляр кыпайтмасини щисоблаш дастурини тузинг?
Кып ылчамли массивларга таъриф беринг;
Кып ылчамли массивларни эълон =илиш усулларини кырсатинг;
Турли ылчамли массивларнинг щадларини киритиш ва чоп этиш =андай амалга оширилади?
Матрицаларни =ышиш дастурини тузинг;
Матрицани векторга кыпайтириш дастурини тузинг;
Матрицани матрицага кыпайтириш дастурини тузинг;
Тескари матрицани щисоблаш дастурини тузинг.
Do'stlaringiz bilan baham: |