1-маъруза: Математик моделлаштиришнинг асосий тушунчалари, масалаларни эщмда ечиш бос=ичлари ва алгоритмлар назарияси

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.


Назарий саволлар ва таянч иборалар:

1. 
   Массив деб нимага айтилади?
   
2. 
   Массив щадига =андай мурожаат =илинади?
   
3. 
   Бир ылчовли массивлар =андай эълон =илинади?
   
4. 
   Бир ылчовли массивнинг энг катта ва энг кичик щадларини топиш дастурини тузинг;
   
5. 
   Векторнинг скаляр кыпайтмасини щисоблаш дастурини тузинг?
   
6. 
   Кып ылчамли массивларга таъриф беринг;
   
7. 
   Кып ылчамли массивларни эълон =илиш усулларини кырсатинг;
   
8. 
   Турли ылчамли массивларнинг щадларини киритиш ва чоп этиш =андай амалга оширилади?
   
9. 
   Матрицаларни =ышиш дастурини тузинг;
   
10. 
    Матрицани векторга кыпайтириш дастурини тузинг;
    
11. 
    Матрицани матрицага кыпайтириш дастурини тузинг;
    
12. 
    Тескари матрицани щисоблаш дастурини тузинг.