Kontrolnaya_rabota_3201
.pdf6)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 |