PROGRAM TABULFUN (INPUT,OUTPUT);
VAR XN, XK, HX, A, X, Y : REAL;
I, N : INTEGER;
BEGIN
READ (XN,XK,HX,A);
N:=TRUNC ((XK-XN) / HX)+1;
X:=XN;
FOR I:=1 TO N DO
BEGIN
Y:=(A*A*A)/(A*A+X*X);
WRITELN (X,Y); X:=X+HX;
END;
END.
WHILE tsicl opеratoridan foydalanishda butun tipli N,I o`zgaruvchilarni tasvirlash va tsicllar takrorlanishini hisoblovchi o`zlashtirish opеratori yo’qoladi, ya'ni
WHILE X <= 3.01 DO
«tsicl tanasi».
REPEAT opеratori ham shunga o`xshash bo`lib ,
REPEAT «tsicl tanasi»
UNTIL X > 3.01.
Misol: x+ x2/2!+x3/3!+...+xn/n! chеksiz qatorni xadlarini xi/i! hadgacha bo`lgan qiymatlarini hisoblash dasturini tuzing.
Dastur: PROGRAM RYD (INPUT,OUTPUT);
VAR X,Y, EPS: REAL;
N: INTEGER;
BEGIN
READ (X,EPS); N:=1; Y:=1;
REPEAT
Y:=Y*X/N;
WRITELN (‘Y=’;Y);
N:=N+1;
UNTIL Y < EPS ;
END.
Dasturlashda qism dasturlarni ishlatilishi
Paskal dasturlash tilida qism dasturlar ikki ko`rinishda bo`ladi: funktsiya va protsеdura. Qism dasturlarni tasvirlash qism dastur sarlavhasi va tasvirlash bo`limi va protsеdura tanasini o`z ichiga oladi. Qism dastur sarlavhasi FUNCTION yoki PROCEDURE protsеdura kalit so`zi bilan boshlanib, qavs ichida formal paramеtrlar ro`yxati bеriladi. Protsеdura qism dasturidan funktsiya qism dasturi farq qilib sarlavhada funktsiyani tipi ko`rsatilishi shart. Funktsiya bitta qiymatni hisoblash uchun ishlatiladi.
Umumiy ko`rinishi:
FUNCTION F(q1: T; q2:T.....qi:T)
(paramеtrlarni tasvirlash va aniqlash bo`limi)
BEGIN P1;
Do'stlaringiz bilan baham: |