Самостоятельная работа на тему "Программирование на Паскале"
методическая разработка по информатике и икт (9 класс)

Вариант 1

ФИО___________________________________  Класс _______

Чему будет равно значение s после выполнения программы?

1) a:= 10;

b:= 4;

a:= a*b + a;

s:= 2*a+3*b;

2) a :=5;

b := 9;

a := a*b;

s := a mod b;

Чему будет равно значение b после выполнения программы?

3) a :=10;

b :=9;

a := a*(b+a);

if a>b then

b:= a+10*2;

4) a :=4;

b :=5;

a := a*(b+a);

if athen

b:= a*(a+3) else b:=a;

Чему будет равно x после выполнения программы?

5) a :=10;

b :=3;

x :=0;

for i:=1 to a do

x := x + b;

6) a :=10;

b:=1;

for i:=b to a do

if i mod 2 = 0 then

x := x +1;

Чему будет равно k после выполнения программы?

7) a :=14;

b:=1;

for i:=b to a do

if i>10 then

k := k+i ;

if k<24 then

k:= k+24 else k:=k-24;

8) a := 20;

b := 1;

for i:=a downto b do

if (i mod 2 = 0) and (i mod 5 = 0) then

k:=k+1;

if k*k > -a+21*b then

k:=a+b else k:=a-b;

Чему будет равно k после выполнения части программы?

9) a[1] :=1;  a[2] := 2;

a[3] :=3;  a[4] := 4;

a[5] :=5;  a[6] := 6;

a[7] :=7;  a[8] := 8;

a[9] :=9;  a[10]:=10;

n :=8;

for i:=1 to n do

if a[i] mod 3 = 0 then

k:=k+i;

*10) a[1] :=13;  a[2] := 24;

a[3] :=35;  a[4] := 46;

a[5] :=25;  a[6] := 68;

a[7] :=79;  a[8] := 64;

a[9] :=81;  a[10]:=99;

n :=10;

k:=0;

for i:=n downto 1 do

if a[i] = sqr(i) then

k:=k+1;

k:=k+7;

Вариант 2

ФИО___________________________________  Класс _______

Чему будет равно значение s после выполнения программы?

1) a := 6;

b := 4;

a := a*b + b;

s := 2*a+3*b;

2) a :=5;

b := 9;

a := b div a + 2;

s := a*10 mod b;

Чему будет равно значение b после выполнения программы?

3) a :=4;

b :=9;

a := a*(b+a);

if a>b then

b:= a+9*3;

4) a :=8;

b :=2;

a := a*(b+a);

if athen

b:= a*(a-3) else b:=a;

Чему будет равно x после выполнения программы?

5) a :=10;

b :=2;

x :=2;

for i:=b to a do

x := x + 3;

6) a :=10;

b:=1;

for i:=b to a do

if i mod 2 = 1 then

x := x+1;

Чему будет равно k после выполнения программы?

7) a :=9;

b:=2;

for i:=b to a do

if i>6 then

k := k+i ;

if k<20 then

k:= k+20 else k:=k-20;

8) a := 30;

b := 5;

for i:=a downto b do

if (i mod 2 = 0) and (i mod 5 = 0) then

k:=k+1;

if k*k > -a+21*b then

k:= a+b else k:=a-b;

Чему будет равно k после выполнения части программы?

9) a[1] :=1;  a[2] := 2;

a[3] :=3;  a[4] := 4;

a[5] :=5;  a[6] := 6;

a[7] :=7;  a[8] := 8;

a[9] :=9;  a[10]:=10;

n :=10;

for i:=1 to n do

if a[i] mod 2 = 0 then

k:=k+1;

*10) a[1] :=1;  a[2] := 8;

a[3] :=35;  a[4] := 16;

a[5] :=55;  a[6] := 36;

a[7] :=79;  a[8] := 65;

a[9] :=82;  a[10]:=100;

n :=10;

k:=0;

for i:=n downto 1 do

if i = sqrt(a[i]) then

k:=k+1;

k:=k*k;

Вариант 3

ФИО___________________________________  Класс _______

Чему будет равно значение s после выполнения программы?

1) a := 2;

b := 12;

a := a*b +(a*b);

s:= 2*a+3*b;

2) a :=14;

b := 6;

a := a div b + 8;

s := a*10 mod b;

Чему будет равно значение b после выполнения программы?

3) a :=3;

b :=9;

a := a*(b+a);

if a>b then

b:= b + a*3;

4) a :=4;

b :=3;

a := b*(b+2);

if a>b then

b:= a*a else b:=a;

Чему будет равно x после выполнения программы?

5) a :=10;

b :=2;

x :=2;

for i:=1 to b do

x := (x + 3)*i;

6) a :=10;

b:=1;

for i:=b to a do

if i mod 2 = 0 then

x := x+i ;

Чему будет равно k после выполнения программы?

7) a :=7;

b:=16-2*a ;

for i:=a downto b do

if i>9 then

k :=k+i+1;

if k<18 then

k:= k+18 else k:=k-18;

8) a := 100;

b := 10;

for i:=a downto b do

if (i mod 2 = 0) and (i mod 5 = 0) then

k:=k+1;

if k*k > -a+21*b then

k:=(a+b)+1 else k:=(a-b)+1;

Чему будет равно k после выполнения части программы?

9) a[1] :=1;  a[2] := 2;

a[3] :=3;  a[4] := 4;

a[5] :=5;  a[6] := 6;

a[7] :=7;  a[8] := 8;

a[9] :=9;  a[10]:=10;

n :=10;

for i:=1 to n do

if a[i] mod 2 <> 0 then

k:=k+i;

*10) a[1] :=1;  a[2] := 8;

a[3] :=35;  a[4] := 12;

a[5] :=10;  a[6] := 11;

a[7] :=99;  a[8] := 65;

a[9] :=82;  a[10]:= 2;

n :=9;

k:=0;

for i:=2 to n do

if sqr(a[i])<150 then

if i mod 2 = 0 then

k:=k+1;

Вариант 4

ФИО___________________________________  Класс _______

Чему будет равно значение s после выполнения программы?

1) a :=5;

b := 9;

a := a*b +b;

s:= 3*a+2*b;

2) a :=10;

b :=9;

a := a div 2 + 6;

x := a*10 mod b;

Чему будет равно значение b после выполнения программы?

3) a :=3;

b :=9;

a := a*(b+a);

if athen

b:= a*(a+3);

4) a :=10;

b :=3;

a := a*(b+7);

if a>b then

b:= a*a else b:=a;

Чему будет равно x после выполнения программы?

5) a :=10;

b :=4;

x :=3;

for i:=1 to b do

x := x + i*i + a;

6) a :=10;

b:=1;

for i:=b to a do

if i mod 2 <> 0 then

x := x+i ;

Чему будет равно k после выполнения программы?

7) a :=7;

b:=a*a ;

for i:=a to b do

if i mod 7 = 0 then

k :=k+1;

if k=0 then k:= k+18

else k := k*10;

8) a := 20;

b := 5;

for i:=a downto b do

if (i mod 2 = 0) and (i mod 5 = 0) then

k:=k+1;

if k*k > -a+21*b then

k:=(a+b)-b else k:=(a-b)+b;

Чему будет равно k после выполнения части программы?

9) a[1] :=1;  a[2] := 2;

a[3] :=3;  a[4] := 4;

a[5] :=5;  a[6] := 6;

a[7] :=7;  a[8] := 8;

a[9] :=9;  a[10]:=10;

n :=10;

for i:=1 to n do

if a[i] = i then

k:=k+i;

*10) a[1] :=1;  a[2] := 8;

a[3] :=35;  a[4] := 12;

a[5] :=10;  a[6] := 11;

a[7] :=99;  a[8] := 65;

a[9] :=82;  a[10]:= 2;

n :=8;

k:=0;

for i:=n downto 3 do

if a[i]then

k:=k+1;

k := sqr(k);

key

1

2

3

4

1

112

68

132

180

2

0

3

4

2

3

210

79

117

9

4

36

80

225

10000

5

30

29

16

73

6

5

5

30

25

7

26

4

18

70

8

21

25

91

20

9

9

5

25

55

10

10

16

3

9