Mavzu: paskalda massivlar



Yüklə 26 Kb.
səhifə1/3
tarix15.04.2023
ölçüsü26 Kb.
#98478
  1   2   3
13-амали


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;

Yüklə 26 Kb.

Dostları ilə paylaş:
  1   2   3




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin