Kontrolnaya_rabota_3201

6)if x<y then begin else end;

7)begin {begin } end;

8)begin { begin end};

9)begin { x:=7 end};

10)begin begin x:=1; y:=2 end x:=3 end;

11)begin begin x:=1; y:=2 end; x:=3 end;

12)begin if x>1 then begin end; if then else end;

13)begin b:=e; begin write('begin') end end;

14)begin b:=e; begin write('begin'); end end;

15)begin b:=e; begin write('begin a:=2; end') end; end;

16)begin begin begin end begin end end begin end end.

8.Являются ли условными операторами следующие последовательности символов:

1)if x<y then x:=0 else y:=0;

2)if x>y then x:=0 else read(y);

3)if x>=y then x:=0;y:=0 else write(y);

4)if a<b then 100 else z:=25;

5)if a=b then begin; c:=3 end else c:=1;

6)if f or false then a:=2*f else a:=c-2;

7)if c<2 or a>2 then read(a) else read(c);

8)if a+b then write('a') else write('b');

9)if a and true then begin c:=1 else c:=2 end;

10)if (1<=x) and (x<=9) then c:=2; else c:=3;

11)if 2*a-3>0 then (a:=0) and (b:=0) and (c:=0);

12)if t<z else a:=4;

13)a:=if c>d then d else c;

14)if {это условие} a<b {если условие истинно} then a:=b else {если условие ложно} b:=a;

15)if c:=0 then begin read(c);c:=0 end else begin write(c);c:=0 end;

16)if a=2 then a:=a+1 else P(x,y);

9.Запишите одним условным оператором:

1)if k>5 then c:=1; if k>5 then d:=2; if k>5 then e:=3;

if k<=5 then write(c+d); if k<=5 then write(d+e);

2)if a>b then c:=1;

if a>b then d:=2; if a<=b then c:=3; if a<=b then d:=4;

3) if x<y then x:=1 else y:=2; if x<y then y:=0.5 else x:=1.5;

if x>=y then z:=0.25 else z:=2.25; if x>=y then d:=5;

4) if a-b<0 then else c:=1; if a-b<0 then else d:=2; if a>=b then else c:=3; if a>=b then else d:=4.

10.Что будет напечатано? var a,b:integer;

aa,bb,cc:boolean; begin a:=3; b:=5;

aa:=a<b; bb:=a>c; cc:=a; if aa then write('a');

if bb then write('b'); if cc then write('c')

end.

11. Найдите ошибку в программе, определяющей вид треугольника (равносторонний, равнобедренный или разносторонний):

if a=b
then	if a=c
	then write('равносторонний')
	else write('равнобедренный')
else	if b=c
	then write('равнобедренный')

else write('разносторонний').

№ Варианта			Задания
1	1,1	2	7,1	8,1	9,1
2	1,2	3	7,2	8,2	9,2
3	1,3	4	7,3	8,3	9,3
4	1,4	5	7,4	8,4	9,4
5	1,5	10	7,5	8,5	9,1
6	1,6	11	7,6	8,6	9,2
7	1,7	2	7,7	8,7	9,3
8	1,6	3	7,8	8,8	9,4
9	1,5	4	7,9	8,9	9,1
10	1,4	5	7,10	8,10	9,2
11	1,3	10	7,11	8,11	9,3
12	1,2	11	7,12	8,12	9,4
13	1,1	2	7,13	8,13	9,1
14	1,2	3	7,14	8,14	9,2
15	1,3	4	7,15	8,15	9,3
16	1,4	5	7,16	8,16	9,4

5.Циклы

1.Выполните трассировку и ответьте на вопросы по заданному фрагменту программы: for i:=1 to n do

begin j:=2;

while j<=m do begin write(i+j);

j:=j+2

end; writeln

end.

1)Сколько раз будет выполнен оператор write(i+j)?

2)Сколько строчек будет напечатано?

2.Определите, сколько раз будет выполнено тело цикла в приведенном фрагменте программы: s:=0; i:=1; read(n);

while i<=n do; begin s:=s+i; i:=i+2;

end;

3.Задан фрагмент программы. Выполните трассировку и ответьте на вопрос: «Сколько раз будет выполнено тело цикла и какими будут значения переменных a,b и sпосле завершения этого фрагмента?»

a:=1; b:=1; while a+b<8 do begin a:=a+1;

b:=b+2

end;

s:=a+b;

4.Правильно ли записаны на Паскале операторы цикла? Если «Да», то подсчитайте, сколько раз выполняется тело цикла. Если «Нет», объясните ошибки.

1)while true do i:=i+1;

2)for z:=1 to 2*z do i:=i+1;

3)while false do i:=i-1;

4)for u:=2*a downto –1 do i:=i-1;

5)for i:=j to j+1 do s:=s+i;

6)k:=0;

for i:=2 downto k do k:=k*2;

7)j:=56;

for i:=-4 to j div 7 do j:=j-2;

8)j:=56;

i:=-4;

while i<=j div 7 do begin j:=j-2; i:=i-1

end;

9) for i:=1 to n do a[i]:=2*i+6;

for a[1]:=1 to n do write(a[a[1]],' ');

10)i:=5;while i>0 do i:=i+1;

11)i:=5;while i<=0 do i:=i-1;

12)i:=5;while i>=0 do i:=i-1;

13)i:=5;while i<=0 do i:=i+1;

14)i:=90;repeat i:=i-1 until i>0;

15)i:=90;repeat i:=i-1 until i<=0;

16)i:=9;repeat i:=i+1 until i>10;

17)i:=9;repeat i:=i+1 until i<=10;

18)i:=9;repeat i:=i-1 until false;

19)i:=9;repeat i:=i+1 until true;

20)i:=9;repeat i:=i*2 until false and not false;

21)i:=9;repeat i:=i/2 until true or false;

22)i:=9;repeat i:=i/2 until true and false;

23)i:=9;repeat i:=i*2 until not (i<9) and (i>=9);

24)i:=9;while (i<=100) and (i>100) do i:=i+1;

25)i:=9;while (i<=100) do i:=i div 2;

26)for i:=9 downto i div 2 do i:=i div 2;

27)while read(x) do write(x);

28)for i:=-1 to –10 do write(i+1);

29)i:=1; while i<2 do i:=j;

30)while x<1 do x:=x>0;

31)k:=0; for i:=1 to 8 do; k:=k+i;

32)g:=9; for i:=1.0 downto –1.0 do g:=g*2;

33)g:=1; for i:=1 downto –16 d0 g:=g*2;

34)for i,j:=1 to n do write('П Р И В Е Т !! :)) ');

35)for i+j:=1 to n do read(a,b,c);

36)f0r k:=1 to 2*k do write('Ч Е П У Х А ');

37)x:=for i:=1 to 7 do write('Ну и что..?');

38)for if:=1 to 10 do write('then 1 else 2');

39)for x>0 to 35 do readln;

40)repeat write('ВСЕМ ПРИВЕТ!') until false;

41)x:=1; repeat x:=x+1 until 100;

42)repeat true until true;

43)x:=0; repeat x:=x+1 until x<0;

44)repeat for i:=1 until 100 do readln(n).

5.Установите, чему равен х:

1)x:=0;

for i:=-5 to 0 do n:=i*i; x:=x+n;

2)n:=5;

x:=0;

for i:=1 to n do x:=i; writeln(x);

3)for i:=1 to 5 do

for j:=1 to 5 do write('x');

6.Найдите ошибки во фрагментах программ: 1) var k,i:integer; x,y:real;

begin y:=0;for x:=0.1 to 0.9 do y:=y+sin(x) end; 2) var k,i:integer; x,y:real;

begin k:=81; y:=1 for i:=1 to sqrt(k) do y:=2*y end; 3) var k,i:integer; x,y:real;

begin k:=0; for i:=1 to 9 do k:=k+sqr(i); k:=k*i end; 4) var k,i:integer; x,y:real;

begin k:=1; for i:=1 to 64 do begin i:=2*i; k:=k+1 end end.

7.Какими будут значения переменных p и s после выполнения операторов: p:=a; s:=0;

while p>0 do

begin s:=s+p mod 10;

p:=p div 10

end.

Определите значение результата p при следующих значениях исходного данного:

a=109.

а) a=23; б) a=32; в)

8.Запишите фрагменты решения следующих задач на Паскале (укажите сходные черты и различия в решениях):

1)1+2+3+…+n;

2)5+6+7+…+(n+5);

3)1+3+5+…+(2n-1);

4)2+4+6+…+2n;

5)1+4+7+…+(3n-2);

6)1 2 3 … n;

7)2 4 6 … 2n;

8)sin(1)+sin(2)+sin(3)+…+sin(n);

9)n+(n-1)+…+2+1;

10)сумму натуральных чисел отрезка [a;b];

11)сумму четных чисел отрезка [a;b];

12)cos(n)+cos(n-1)+…+cos(2)+cos(1);

13)	1		1				1				1	;
	2		4								2n
				6
14)		1						1		1				1		1	;
	2n 1 2n 3 2n 5												3 1

15)k (k+1) (k+2) … 2k;

16)(n+m) (n+2m) (n+3m) … (n+m2);

9.Сколько раз будут выполнены операторы из тела циклов в следующих фрагментах программ:

1)for k:=-1 to 1 do writeln;

2)for k:=10 to 20 do read(n[k]);

3)for k:=20 to 10 do i:=i+k;

4)k:=5; r:=15;

for i:=k+1 to r-1 do k:=k+r; 5) k:=r;

for i:=k to r do write('УРА!').

10.Определите значение переменной s после выполнения следующих операторов: s:=0; n:=10;

for i:=2 to n do s:=s+100 div i.

11.Установите, какую задачу решает каждый из предложенных фрагментов программ: 1) readln(n);

s:=0;

while n>0 do

begin s:=s*10+n mod 10; n:=n div 10

end; 2) s:=0;

for i:=1 to n do

for j:=i+1 to n do s:=s-a[j,i]; 3) s:=0;

for i:=3 downto –2 do if i mod 2=0 then s:=s-i else s:=s+i;

4)i:=p; j:=q; while i<j do

begin r:=a[i]; a[i]:=a[j]; a[j]:=r; i:=i+1;

j:=j-1

end;

5)p:=1; i:=1; y:=x;

while i<=n do begin y:=sin(y); p:=p*y; i:=i+2

end; 6) s:=0;

for i:=n downto 1 do begin p:=1;

for j:=1 to i do p:=p*j; s:=s+p

end;

7)i:=1; j:=n; while i<=j do

begin read(a[i],a[j]); i:=i+1; j:=j-1

end.

12.Установите, являются ли оператором цикла следующие записи:

1)while x<0 do x:=x+0.5;

2)while x<0 do x:=x-100;

3)while 0<x<1 do y:=sqr(y+0.01;

4)while a>0 do y:=2*y;

5)while a>b do a:=a-1; b:=b+1;

6)while true do write('a');

7)while false do write('b').

	№ Варианта	Задания
	1		4,1-4,3	8,1
	2		4,4-4,6	8,2
	3		4,6-4,9	8,3
	4		4,10-4,13	8,4
	5		4,14-4,15	8,5
	6		4,16-4,18	8,6
	7		4,19-4,21	8,7
	8	1,2,3,5,6,7,9,10,11,12	4,22-4,24	8,8
	9		4,25-4,27	8,9
	10		4,28-4,308,10
	11		4,31-4,338,11
	12		4,34-4,368,12
	13		4,37-4,398,13
	14		4,40-4,428,14
	15		4,43-4,1	8,15
	16		4,2-4,4	8,16