Mavzu: paskalda massivlar

13 – amaliy mashg’ulot
MAVZU: PASKALDA MASSIVLAR
Reja:

1. 
   Massivlar haqida umumiy ma`lumоtlar;
   
2. 
   Bir o’lchamli massivlar va ular ustida amallar;
   
3. 
   Ko’p o’lchamli massivlar va ular ustida amallar.
   

Tayanch tushunchalar: massiv, bir o’lchamli massivlar, ko’p o’lchamli massivlar, array.

1. 
   Bir o’lchamli, n ta hadli (n=30) massiv hadlarini yig’ish.
   

Program L1;
const n=30;
var
i: integer;
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 (nq30) 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.
Ikki o’lchamli massivlar ustidagi bir nechta tugallangan prоgrammalar bilan tanishib chiqaylik.
1. Matritsalarni qo’shish.

Program L2;
const n = 3; m = 4;