Презентация к уроку «Циклы в Паскале. Решение задач»

Циклы. Решение задач

по блок-схеме и фрагменту программы

   Var y, x:Integer;

Begin

    y:=1; x:=13;

    Repeat

        y:=y +2* x;

        x:=x-4

    Until x

    Writeln(‘y=’,y)

End .

4 do begin         y:=y*(x+1);         x:=x-3     end;     Writeln(‘y=’,y) End . " width="640"

Var y , x : Integer ;

Begin

    y:= 2 ; x:=1 7 ;

    While x4 do begin

        y:=y*(x+1);

        x:=x-3

    end;

    Writeln(‘y=’,y)

End .

Var y,x:Integer;

Begin

    y:=1;

    For x:=2 to 9 do

        y:=y+3*x;

    Writeln(‘y=’,y)

End .

15;     Writeln(‘y=’,y) End . " width="640"

Var y,x:Integer;

Begin

    y:=5; x:=2;

    Repeat

        y:=y*2*x;

         x:=x+5

    Until x15;

    Writeln(‘y=’,y)

End .

   Var y,x:Integer;

Begin

    y:=1; x:=13;

    While x

        y:=y+x;

        x:=x+10

    end;

    Writeln(‘y=’,y)

End .