Sharti keyin tekshiriladigan takrorlanish jarayoni.
Takrorlanish jarayonining REPEAT operatori takrorlanishlar soni noma'lum
bo’lganda ishlatiladi.
Umumiy ko’rinishi: REPEAT S UNTIL b;
bu yerda b - logik ifoda, S - sikl tanasi.
WHILE operatoridan farq qilib shart siklning oxirida ishlatiladi, logik ifodani
TRUE qiymatida hech bo’lmaganda bir marta bajariladi. Funktsiyalarni jadval
ko’rinishida chiqaradigan universal programma ishlab chikish mumkin.
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*A+X*X*X);
WRITELN(X,Y); X:=X+HX;
END;
Do'stlaringiz bilan baham: |