I bölmə t t t


program Içmassiv;  uses



Yüklə 0,77 Mb.
Pdf görüntüsü
səhifə14/40
tarix29.12.2021
ölçüsü0,77 Mb.
#48444
1   ...   10   11   12   13   14   15   16   17   ...   40
Turbo Pascal Kitabi

program Içmassiv; 

uses Crt; 

var y, g: array[1..10] of real; 

    k, n: integer; 



begin 

  clrscr; 

  n:=0;{ilkin say} 

  for k:=1 to 10 do 

  begin 

    y[k]:=ln(k)-3; 

    if y[k]<0 then {g –üçün element aramaq} 

    begin 

      n:=n+1; 

      g[n]:=y[k]; {n –ci elementi tapmaq} 

    end; 

    writeln(‘y(’, k, ‘)= ’, y[k]:7:2); 

  end; 

  if n=0 then 

    writeln(‘g –içmassivinin elementi yoxdur’) 

  else 

    for k:=1 to n do {g –içmassivi ekrana verilir} 

      writeln(‘g[’, k, ‘]= ’, g[k]:7:2); 

  readln; 

end

Çalışma 12. 12 –cì məsələnì  y(k)=lg(k100)+1; k=1,2,.. ,120. ìfadəsì üçün həll 

edìn. 

 

2.  Ìkìölçülü  massìvlər  –əsasən  cədvəllərlə  ìşləmək  üçün  nəzərdə  tutulur  və 



elementlərì matrìs üsuluyla düzülərək qoşa ìndekslə  nömrələnìr. Bu ìndekslər aìd 

olduõu  elementìn  uyõun  olaraq,  sətìr  və  sütun  nömrələrìnì  göstərìr.  Məs.  A[3,2] 

elementì -A massìvìnìn 3 –cü sətrìndə 2 –cì elementdìr.      

Nümunə üçün bəzì massìvlərìn verìlmə üsullarına baxaq: 

- Qìymət balı üçün 3 sətìr və 4 sütunlu «Bal» adlı bìr massìvì: 

      Bal: array[1..3, 1..4] of integer=((4, 3, 5, 3), (4, 4, 5, 3)),(3, 4, 5, 5); 

 



Ìlìn günlərìnì ìfadə edən, 12 x 31 ölçülü tam ədəd tìplì «Ìl» massìvì: 




Yüklə 0,77 Mb.

Dostları ilə paylaş:
1   ...   10   11   12   13   14   15   16   17   ...   40




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