2. Шарты соңынан берілген цикл операторына мысалдар:
М ысал 1. While операторымен шығарылған 1.5-суретте көрсетілген 1-мысалды енді Repeat операторымен қайталап шығарайық, программада қандай оператор қолдануымызға байланысты алгоритм схемасы да (1.7-сурет), программа да аздап өзгеріске ұшырайды.
Program cymma;
Const eps=1e-5;
Var k: integer;
a, s: real;
begin
s:=0; k:=1;
repeat
a:=1/sqr(k);
s:=s+a;
k:=k+1
until a
writeln(‘қайталау саны=’, (k-1):2, ‘s=’, s:8:3)
end.
1.7-сурет
М ысал 2.  қатарының мүшелеріне дейінгі  шексіз қатар мүшелерінің мәнін есептеуге арналған программаны құру керек (1.8-сурет).
PROGRAM М3 (input, output);
VAR X, Y, EPS : REAL;
N: INTEGER;
BEGIN
READ(X, EPS);
N:=1;
Y:=1;
REPEAT
Y:=Y*X/N;
WRITELN(Y);
N:=N+1;
UNTIL Y
END.
Достарыңызбен бөлісу: |
