Program sum2;
Var I,s:integer;
Begin S:=0;
For I:=50 downto 1 do s:=s+2 *1;
Writef'su mma=‘,s:6);
End.
2.
While
va
Repeat
operatorlaridan
foydalanib,
1
y
3
5
10
15
20
y ig ‘in dining qiym atini 0,0001 aniqlikda hisoblashga dastur tuzing.
Program p i;
Var s,a,eps:real; l:integer;
Begin
S:=0; eps:=0.0001; I:=l; a:=l/(I*5);
While a>eps do begin s:=s+a; I:=I+1; a:=l/(I*5); end;
Write(‘su m m a - ‘,s: 12:8);
End.
Program p2;
Var s,a,eps:real; I:integer;
Begin
S:=0; eps:=0.0001; 1:=0; a:=0;
Repeat s:=s+a;
/ : = / + / ;
a:-l/(I*5) until a<=eps;
Write(‘summa=‘,s: 12:8);
End.
3.7. P a s k a l tilid a m a s s iv la r va u la r d a n fo y d a la n ish .
B ir
xil tip d ag i, chekli sondagi tartiblangan elem entlardan tashkil topgan
to 'p la m g a
massiv
deb ataladi. M assivlarni ifodalash
uchun uning nom i va undagi
elem en tlar soni k o 'rsa tila d i. M asalan:
A/SOj
-
50 ta elem entdan iborat
A
nom li,
B/К/
esa
К
ta
elem entdan tashkil topgan
V
nom li m assiv. M assiv elem entlari
Paskal tilid a aniqlangan har xil tipdagi o 'z g a ru v c h ila r b o 'lish i m um kin. M assivlar
tu zilish ig a
q arab bir, ikki yoki
N
o 'lc h o v li b o 'la d i. A g ar
m atem atika fanidagi vek-
to m i q arasak , uni bir o 'lc h o v li
m assiv deb, A' satr va Л / ustundan tashkil topgan
m atritsani
q arasak esa, uni ikki o 'lch o v li m assiv deb ifodalash m um kin.
M assiv lar um um iy k o 'rin ish d a quyidagicha aniqlanadi: