Циклдік алгоритмдерге есептер шығару

ЦИКЛДІК АЛГОРИТМДЕРГЕ ЕСЕПТЕР ШЫҒАРУ

program kobeit; 
var P, I, n: integer; 
begin 
P:=1; 
write ( ‘бүтін сан енгіз’ ); 
read ( n ); 
for i:=1 to n do 
if i mod 2 = 0 then 
begin 
P:= p * 1; 
end; 
write ( ‘ P = ‘, P ); 
end. 

PROGRAM ESEP1;

VAR A, B, Y:INTEGER;

BEGIN

READLN(A,B);

IF AB THEN Y:=A ELSE Y:=B;

WRITELN('Y=',Y);

END.

PROGRAM ESEP2;

VAR X, Y:REAL;

BEGIN

READLN(X);

IF X

WRITELN('Y=',Y);

END.

PROGRAM E1;

VAR X,Y:REAL;

BEGIN

READLN(X);

IF X

WRITELN(‘Y:=’,Y);

END

1-Мысал: 1- ден 100- ге дейінгі сандардың қосындысын табу керек. 
PROGRAM ESEP1;
VAR I, S: INTEGER;
BEGIN

S:=0;
FOR I:=1 TO 100 DO
S:=S+I;
WRITELN (‘S = ‘ , S);
END. 

2-Мысал. 10-нан 20-ға дейінгі барлық жұп сандардың көбейтіндісін шығаратынпрограмма құрыңдар. 
PROGRAM ESEP2;

VAR I, K: INTEGER;

BEGIN

K:=1;

FOR I:=10 TO 20 DO

IF I MOD 2=0 THEN

K:=K*I;

WRITELN ('K=',K);

END.

3-Мысал: 1, 3, 5, ... , 15 сандар тізбегі берілген. Осы тізбектің квадраттарының кестесін құру керек.

PROGRAM ESEP3;

VAR I, K: INTEGER;

BEGIN

FOR I:=1 TO 15 DO

IF I MOD 2=1 THEN

BEGIN

K:=SQR(I);

WRITELN ('K=',K);

END;

END.

 1-ден 9-ға дейінгі тақ сандардың қосындысын шығаратын программа құрыңдар.  PROGRAM ESEP1;

VAR I, S: INTEGER;

BEGIN

S:=0;

FOR I:=1 TO 9 DO

IF I MOD 2=1 THEN

S:= S +I;

WRITELN (' S =', S);

END.

 -10, -8, -6, ... , 10 сандар тізбегі берілген. Осы тізбектің кубтарының кестесін құру керек.

PROGRAM ESEP2;

VAR I, K: INTEGER;

BEGIN

FOR I:=-10 TO 10 DO

IF I MOD 2=0 THEN

BEGIN

K:=SQR(I)*I;

WRITELN ('K=',K);

END;

END.

10- нан 20- ға дейінгі сандардың қосындысын табу керек. 
PROGRAM ESEP1;

VAR I, S: INTEGER;

BEGIN

S:=0;

FOR I:=10 TO 20 DO

S:=S+I;

WRITELN ('S = ' , S);

END.

1-ден 8-ге дейінгі бүтін сандардың квадраттары мен кубтарын есептеп шығару

PROGRAM E1;

VAR I, N, M: INTEGER;

BEGIN

FOR I:=1 TO 8 DO BEGIN

N := I*I;

M := N*I;

WRITELN('N=',N, ' ', 'M=',M);

END;

END.