Практикум по алгоритмизации и программированию

Практикум по теме

«Алгоритмизация и программирование» ВАР.№1

№1. Определите значение переменной a после выполнения фрагмента алгоритма.

№2. Определите значение переменной m после выполнения фрагмента алгоритма.

№3. Составьте блок-схему и определите значение переменной S после выполнения следующего алгоритма:

нач

i:=0; S:=0;

нц

пока i<3

i:=i+1;

S:=S+i*i;

кц

кон.

№4. Чему будет равно значение M после выполнения фрагмента:

M:=0;

N:=1;

While N<=12 do

Begin

M:=M+N*3;

N:=N+3;

End;

№5. Какое значение примет B в результате работы фрагмента программы, если D последовательно принимает значения 1, 0, -1, 3, 7, 0, -5? В чём смысл программы?

B:=0;

For i:=1 to 7 do

Begin

Read(D);

IF D>0 then B:=B+1;

End;

Write(B);

№6. Чему будет равно значение переменной M, если в переменную B последовательно вводятся числовые данные -6, 3, 7, -3, 1. Указать назначение фрагмента программы.

Read(B);

M:=B;

FOR i:=1 to 4 do

Begin

Read(B);

IF B>M then M:=B;

End;

Write(M);

№7. До какого числа должна изменяться i, чтобы значение S стало 36:

S:=0;

i:=1;

While i<=… do

Begin

S:=S+i;

i:=i+2;

End;

№8. Чему будет равно значение K после выполнения фрагмента:

K:=0;

i:=1;

Repeat

K:=K+i*4;

i:=i+4;

Until i>20;

№9. Определить по фрагменту программы её смысл. Указать D, если А последовательно приобретает значения -5, 3, -7, 0, 2, 0, 1

D:=7;

FOR i:=1 to 7 do

Begin

Read(A);

IF A>0 then D:=D+A;

End;

Write(D);

№10. Определите, что будет напечатано в результате работы фрагмента программы:

s:=0;

k:=0;

While k<200 do

Begin

s:=s+64;

k:=k+1;

End;

Write(s);

№11. Получив на вход число x, алгоритм печатает два числа a и b.

Укажите наибольшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 5.

Var x, a, b: integer;

Begin

Read(x);

a:=0; b:=1;

While x>0 do

Begin

a:=a+1;

b:=b*(x mod 10);

x:=x div 10;

end;

Write(a,b);

End.

№12. Определить по фрагменту программы её назначение:

Var k, x: integer;

Begin

k:=0;

Repeat

Readln(x);

If (x mod 3 = 0) and (x mod 6 <>0) then k:=k+1;

Until x=0;

Writeln(k);

End.

ПРИМЕЧАНИЕ:

После решения задач ответы занесите в таблицу:

№

задания

Ответ

Указать назначение программы

(только для задач, где это необходимо)

1

2

3

4

5

6

7

8

9

10

11

12

Практикум по теме

«Алгоритмизация и программирование» ВАР.№2

№1. Определите значение переменной а после выполнения фрагмента алгоритма:

№2. Определите значение переменной х после выполнения фрагмента алгоритма.

№ 3. Составьте блок-схему и определите значение переменной D после выполнения следующего алгоритма:

нач

D:=0; i:=1;

нц

пока i>=1

D:=D+1/i;

i:=i-1;

кц

D:=D+10;

кон.

№4. Укажите конечное i так, чтобы значение V было равным 120.

V:=1;

FOR i:=1 to … do

V=V*i;

№5. До какого числа должна изменяться M, чтобы значение A стало равно 20:

А:=0;

M:=2;

While M<=… do

Begin

A:=A+M;

M:=M+2;

End;

№6. Определить по фрагменту программы результат работы и смысл алгоритма:

S:=1;

i:=2;

While i<=12 do

Begin

S=S*i;

i:=i+2;

End;

Write(S/6);

№7. Вычислить значение переменной K, если вводятся числовые данные: 10, -6, -7, 8, -3, 1, -12.5, 9, -8, 0. Указать назначение программы.

Read(С);

K:=C;

FOR i:=1 to 9 do

Begin

Read(C);

IF K>C then K:=C;

End;

Write(K);

№8. Чему будет равно значение В после выполнения фрагмента:

A:=10;

B:=A*2+9;

A:=A+B;

B:=A+1;

№9. Результатом выполнения фрагмента следующей программы будет:

K:=1; X:=5;

Repeat K:=K*X;

X:=X+2;

Until X>10;

Write(K);

№10. Определите, что будет напечатано в результате работы фрагмента программы:

s:=512;

k:=0;

While s<2048 do

Begin

s:=s+64;

k:=k+1;

End;

Write(k);

№11. Получив на вход число x, алгоритм печатает два числа a и b.

Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 14.

Var x, a, b: integer;

Begin

Read(x);

a:=0; b:=1;

While x>0 do

Begin

a:=a+1;

b:=b*(x mod 10);

x:=x div 10;

end;

Write(a,b);

End.

№12. Определить по фрагменту программы её назначение:

Var s, x: integer;

Begin

s:=0;

Repeat

Readln(x);

If (x >9) and (x<100) and (x mod 2 <> 0) then s:=s+x;

Until x=0;

Writeln(s);

End.

________________________________________________________________________________

ПРИМЕЧАНИЕ:

После решения задач ответы занесите в таблицу:

№

задания

Ответ

Указать назначение программы

(только для задач, где это необходимо)

1

2

3

4

5

6

7

8

9

10

11

12

Практикум по теме

«Алгоритмизация и программирование» ВАР.№3

№1. Определите значение переменной n после выполнения фрагмента алгоритма.

№2. Определите значения переменной х после выполнения фрагмента алгоритма.

№3. Составьте блок-схему и определите значения переменных после выполнения алгоритма:

нач

С:=0; i:=1; j:=5;

нц

пока i<j

C:=C+i*j;

i:=i+1;

j:=j-1;

кц

кон.

№4. Чему будет равно значение D после выполнения фрагмента программы, если A последовательно приобретает значения -7, 5, 0, -5.5, 9

D:=0;

For i:=1 to 5 do

Begin

Read(A);

IF A<=0 then D:=D+1;

End;

Write(D);

№5. Чему будет равно значение K после выполнения фрагмента:

K:=0;

i:=1;

While i<=20 do

Begin

K=K+i*4;

i:=i+4;

End;

№6. Чему равна переменная F, если вводятся числовые данные 35, -6, -7, 8, -3, 1, -14, 9, -8, 0. Указать назначение программы.

Read(H);

F:=H;

FOR i:=2 to 10 do

Begin

Read(H);

IF F>=H then F:=H;

End;

Write(F);

вводимой последовательности)

№7. Определить значение M после выполнения фрагмента:

M:=0;

N:=1;

Repeat M:=M+N*3;

N:=N+3;

Until N>12;

№8. Определить по фрагменту программы смысл алгоритма. Указать D, если А последовательно приобретает значения -5, 3, -7.1, 0, 2.4, 0, 1

D:=0;

FOR i:=1 to 7 do

Begin

Read(A);

IF A>=0 then D:=D+A;

End;

Write(D);

№9. До какого числа должна изменяться i, чтобы значение M стало равно 20:

M:=0;

i:=2;

While i<=… do

Begin

M:=i+M; i:=i+2;

End;

№10. Определите, что будет напечатано в результате работы фрагмента программы:

s:=0;

k:=0;

While s<2000 do

Begin

s:=s+32; k:=k+1;

End;

Write(k);

№11. Получив на вход число x, алгоритм печатает два числа a и b.

Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 8.

Program ABC;

Var x, a, b: integer;

Begin

Read(x);

a:=0; b:=0;

While x>0 do

Begin

a:=a+1;

b:=b+(x mod 10);

x:=x div 10;

end;

Write(a,b);

End.

№12. Определить по фрагменту программы её назначение:

Program A123;

Var n, k: integer;

Begin

Readln(n);

k:=0;

While n<>0 do

Begin

k:=k+1;

n:=n div 10;

End;

Writeln(k);

End.

________________________________________________________________________________

ПРИМЕЧАНИЕ:

После решения задач ответы занесите в таблицу:

№

задания

Ответ

Указать назначение программы

(только для задач, где это необходимо)

1

2

3

4

5

6

7

8

9

10

11

12

Практикум по теме

«Алгоритмизация и программирование» ВАР.№4

№1. Определите значение переменной n после выполнения фрагмента алгоритма.

№2. Определите значения переменной у после выполнения фрагмента алгоритма:

№3. Составьте блок-схему и определите значение переменной М после выполнения следующего алгоритма:

нач

a:=1; b:=1; M:=0;

нц

пока a<=5

a:=a+b;

b:=b+a;

M:=M+a+b;

кц

кон.

№4. Какое значение примет B в результате работы программы, если D последовательно приобретает значения 1, 0, -1, 3, 7, 0, -5. В чём смысл программы?

B:=0;

FOR i:=1 to 7 do

Begin

Read(D);

IF D>=0 then B:=B+1;

End;

Write(B);

№5. Чему будет равно значение M после выполнения фрагмента:

M:=12;

N:=1;

While N<=12 do

Begin

M:=N*3+M; N:=N+3;

End;

№6. До какого числа должна изменяться i, чтобы значение S стало 36:

S:=0;

i:=1;

While i<=… do

Begin

S=S+i; i:=i+2;

End;

№7. Чему будет равно значение переменной M1, если вводятся числовые данные -27, 4, 7, -3, 0. Указать назначение программы.

Read(B);

M1:=B;

FOR i:=2 to 5 do

Begin

Read(B);

IF B>M1 then M1:=B;

End;

Write(M1);

№8. Результатом выполнения фрагмента следующей программы будет:

A:=1; B:=5;

Repeat A:=A*B;

B:=B+2;

Until B>8;

Write(A);

№9. Чему будет равно значение K после выполнения фрагмента:

K:=4;

i:=1;

While i<=20 do

Begin

K=i*4+K; i:=i+4;

End;

№10. Определите, что будет напечатано в результате работы фрагмента программы:

s:=1024;

k:=0;

While s<2000 do

Begin

s:=s+32; k:=k+1;

End;

Write(k);

№11. Получив на вход число x, алгоритм печатает два числа a и b.

Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 8.

Program ABC;

Var x, a, b: integer;

Begin

Read(x);

a:=0; b:=0;

While x>0 do

Begin

a:=a+1;

b:=b+(x mod 10);

x:=x div 10;

end;

Write(a,b);

End.

№12. Определить по фрагменту программы её назначение:

Var n, k, z: integer;

Begin

Readln(n);

k:=0;

While n<>0 do

Begin

z:=n mod 10;

k:=k+z;

n:=n div 10;

End;

Writeln(k);

End.

________________________________________________________________________________

ПРИМЕЧАНИЕ:

После решения задач ответы занесите в таблицу:

№

задания

Ответ

Указать назначение программы

(только для задач, где это необходимо)

1

2

3

4

5

6

7

8

9

10

11

12