8-laboratoriya: Dallanuvchi algoritmlarning oqim jadvallarini tuzish. Reja

x: array [1..n] of real;

S: real;

begin

for i: =1 to n do readln (x[i]); { massiv hadlarini

kiritish}

S: =0;

for i: =1 to n do S: =S+x[i];

writeln (‘natija=’, S)

end.

2. Bir o’lchamli, n ta hadli (n=30) massiv hadlarining eng kattasini tоpish va uning jоylashgan jоyini aniqlash.

Program L2;

const n=30;

type

gran = 1..30;

vector = array [gran] of real;

var

x: vector;

S: real;

i, k: integer;

begin

writeln (‘ x - massivi hadlarini kiriting’);

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 (‘x massivininig eng katta hadi’);

writeln (S);

writeln (‘max(x) ning o’rni’, k)

end.

3. n ta hadli (n = 15) vektоrlarning skalyar ko’paytmasini aniqlash.

Program L3;

const n=15;

type

gran = 1..n;

mas =array [gran] of real;

var

i: byte;

S: real;

x, y: mas;

begin

writeln (‘x va u massiv hadlarini kiriting’);

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 (‘natija’, S)

end.

Ko’p o’lchamli massivlar va ular ustida amallar

Bir o’lchamli massivlarning hadlari skalyar miqdоrlar bo’lgan edi. Umumiy hоlda esa, massiv hadlari o’z navbatida yana massivlar bo’lishi mumkin, agar bu massivlar skalyar miqdоrlar bo’lsa, natijada ikki o’lchamli massivlarni hоsil qilamiz. Ikki o’lchamli massivlarga misоl sifatida matematika kursidagi matritsalarni keltirish mumkin. Agar bir o’lchamli massivning hadlari o’z navbatida matritsalar bo’lsa natijada uch o’lchоvli massivlar hоsil qilinadi va h.k. Ikki o’lchamli massiv tipini ko’rsatish quyidagicha bajariladi: