Самостоятельная работа «Циклические алгоритмы»

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 0

нц для k от 9 до 13

s := s + 9

кц

вывод s

DIM k, s AS INTEGER

s = 0

FOR к = 9 TO 13

s = s + 9

NEXT k

PRINT s

Var s,k: integer;

Begin

s := 0;

for k := 9 to 13 do

s := s + 9;

writeln(s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 50

нц для k от 1 до 9

s := s - 3

кц

вывод s

s = 50

FOR к = 1 TO 9

s = s - 3

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 50;

for k := 1 to 9 do

s := s - 3;

write (s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 1

нц для k от 1 до 7

s := s*2

кц

вывод s кон

s = 1

FOR k = 1 TO 7

s = s*2

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 1;

for k := 1 to 7 do

s := s*2;

write (s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел y, i

y := 5

нц для i от 1 до 3

y := y + 5*i

кц

вывод y кон

DIM i, y AS INTEGER

y = 5

FOR i = 1 TO 3

y = y + 5*i

NEXT i

PRINT y

Var y,i: integer;

Begin

y := 5;

For i := 1 to 4 do

y := y + 5*i;

Writeln(y);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, n

s := 2

нц для n от 2 до 5

s := s + n*2

кц

вывод s

кон

DNM n, s AS INTEGER

s = 2

FOR n = 2 TO 5

s = s + n*2

NEXT n

PRNNT s

Var s, n: integer;

Begin

s := 2;

For n := 2 to 5 do

s := s + n*2;

Writeln(s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 0

нц для k от 6 до 9

s := s + 12

кц

вывод s кон

DIM k, s AS INTEGER

s = 0

FOR к = 6 TO 9

s = s + 12

NEXT k

PRINT s

Var s,k: integer;

Begin

s := 0;

for k := 6 to 9 do

s := s + 12;

writeln(s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 50

нц для k от 0 до 8

s := s - 4

кц

вывод s кон

DIM k, s AS INTEGER

s = 50

FOR к = 0 TO 8

s = s - 4

NEXT k

PRINT s

END

Var s,k: integer;

Begin

s := 100;

for k := 2 to 10 do

s := s - 6;

writeln(s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, k

s := 2

нц для k от 1 до 3

s := s*s

кц

вывод s кон

s = 2

FOR к = 1 TO 3

s = s*s

NEXT k

PRINT s

END

Var s, k: integer;

Begin

s := 2;

for k := 1 to 4 do

s := s*4;

write (s);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел y, i

y := 0

нц для i от 1 до 3

y := y + 4*i

кц

вывод y кон

DIM i, y AS INTEGER

y = 0

FOR i = 1 TO 3

y = y + 4*i

NEXT i

PRINT y

Var y,i: integer;

Begin

y := 0;

For i := 1 to 5 do

y := y + 4*i;

Writeln(y);

End.

Алгоритмический язык

Бейсик

Паскаль

алг

нач

цел s, n

s := 2

нц для n от 2 до 5

s := s*2 + n

кц

вывод s

кон

DNM n, s AS INTEGER

s = 2

FOR n = 2 TO 5

s = s*2 + n

NEXT n

PRINT s

Var s, n: integer;

Begin

s := 2;

For n := 2 to 5 do

s := s*2 + n;

Writeln(s);

End.