Контрольная работа

Тема: Программирование на Pascal»

Вариант 1

1. У ис­пол­ни­те­ля Каль­ку­ля­тор две ко­ман­ды, ко­то­рым при­сво­е­ны но­ме­ра:

1. при­бавь 1

2. умножь на 3

Вы­пол­няя первую из них, Каль­ку­ля­тор при­бав­ля­ет к числу на экра­не 1, а вы­пол­няя вто­рую, утра­и­ва­ет его. За­пи­ши­те по­ря­док ко­манд в про­грам­ме по­лу­че­ния из 2 числа 26, со­дер­жа­щей не более 6 ко­манд, ука­зы­вая лишь но­ме­ра ко­манд.

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

a := 3 + 8*4;

b := (a div 10) + 14;

a := (b mod 10) + 2

c := a + b;

3. Опре­де­ли­те зна­че­ние пе­ре­мен­ной c после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

a := 30;

b := 6;

a := a / 2 * b;

if a > b then

c := a - 3 * b

else

c := a + 3 * b;

4. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var k, s: integer;

begin

s:=1;

k:=0;

while k < 13 do begin

НЕ нашли? Не то? Что вы ищете?

s:=s+2*k;

k:=k+4;

end;

write(s+k);

end.

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

m:=0;

for i:=1 to 10 do

begin

  n:=i+2;

if  n>10  then  m:=n+m*2

else  m:=m+1;

end;

Чему равно  значение переменной f?

St := ’Наша Таня громко плачет’;

F := copy(st,6,4);

Контрольная работа

Тема: Программирование на Pascal»

Вариант 2

1. У ис­пол­ни­те­ля УТРО­И­ТЕЛЬ две ко­ман­ды, ко­то­рым при­сво­е­ны но­ме­ра:

1. вычти 1

2. умножь на 3

Пер­вая из них умень­ша­ет число на экра­не на 1, вто­рая – уве­ли­чи­ва­ет его в три раза.

За­пи­ши­те по­ря­док ко­манд в про­грам­ме по­лу­че­ния из числа 3 числа 16, со­дер­жа­щей не более 5 ко­манд, ука­зы­вая лишь но­ме­ра ко­манд.

2. Пе­ре­мен­ные и опи­са­ны в про­грам­ме как це­ло­чис­лен­ные. Опре­де­ли­те зна­че­ние пе­ре­мен­ной после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

x : = 432;

y : = x div 100;

x : = ( x mod 100 ) * 10;

x : = x + y;

3. Опре­де­ли­те зна­че­ние пе­ре­мен­ной c после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

a := 30;

b := 6;

a := a / 2 * b;

if a > b then

c := a - 4 * b

else

c := a + 4 * b;

4. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var n, s: integer;

begin

n := 2;

s := 35;

while n <= 25 do begin

s := s + 20;

n := n + 5

end;

write(s)

end.


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

m:=0; n:=5;

For i:=1 to 5

n:= i+2

If n>0 then m:=n+m*4

else m:=m+3;

end.


Чему равно  значение переменной S?

S:=’Информатика, дисциплина, изучающая структуру и общие свойства научной информации’;

delete(S,14,11);

Контрольная работа

Тема: Программирование на Pascal»

Вариант 3

1. Ис­пол­ни­тель КАЛЬ­КУ­ЛЯ­ТОР имеет толь­ко две ко­ман­ды, ко­то­рым при­сво­е­ны но­ме­ра:

1. Вычти 1

2. Умножь на 2

Вы­пол­няя ко­ман­ду номер1, КАЛЬ­КУ­ЛЯ­ТОР вы­чи­та­ет из числа на экра­не 1, а вы­пол­няя

ко­ман­ду номер 2, умно­жа­ет число на экра­не на 2. На­пи­ши­те про­грам­му, со­дер­жа­щую не

более 4 ко­манд, ко­то­рая из числа 2 по­лу­ча­ет число 14. Ука­жи­те лишь но­ме­ра ко­манд.

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

a : = 7 ;

a : = a – 4 ;

b : = –a ;

c : = –a + 2 * b ;

3. Опре­де­ли­те зна­че­ние пе­ре­мен­ной c после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

a := 22;

b := 3;

a := - 2 * b + a / 2;

if a < b then

c := 4 * b – 3 * a

else

c := 3 * a + 4 * b;

4. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var n, s: integer;

begin

n := 24;

s := 0;

while n <= 28 do begin

s := s + 20;

n := n + 2

end;

write(s)

end.

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

m:=0;

for i:=1 to 10 do

begin

  n:=i+2;

if  n>10  then  m:=n+m*2

else  m:=m+1;

end;


Чему равно  значение переменной n?

n:=length (‘прикладная информатика’);

Контрольная работа

Тема: Программирование на Pascal»

Вариант 4

1. Ис­пол­ни­тель КАЛЬ­КУ­ЛЯ­ТОР имеет толь­ко две ко­ман­ды, ко­то­рым при­сво­е­ны но­ме­ра:

1. Вычти 1

2. Умножь на 2

Вы­пол­няя ко­ман­ду номер 1, КАЛЬ­КУ­ЛЯ­ТОР вы­чи­та­ет из числа на экра­не 1, а вы­пол­няя

ко­ман­ду номер 2, умно­жа­ет число на экра­не на 2. На­пи­ши­те про­грам­му, со­дер­жа­щую не

более 4 ко­манд, ко­то­рая из числа 3 по­лу­ча­ет число 16. Ука­жи­те лишь но­ме­ра ко­манд.

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

a : = –3 ;

b : = a + 3 ;

b : = 1 – b ;

c : = –b + 3 * a ;

3. Опре­де­ли­те зна­че­ние пе­ре­мен­ной c после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы

a := 15;

b := 30;

b := a * 2 - b / 2;

if a > b then

c := 3 * b – a / 3

else

c := 3 * a - 4 * b;

4. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var k, s: integer;

begin

s:=0;

k:=1;

while k < 11 do begin

s:=s+k;

k:=k+1;

end;

write(s);

end.

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

m:=0; n:=5;

For i:=1 to 5

n:= i+2

If n>0 then m:=n+m*4

else m:=m+3;

end.


Чему равно  значение переменной s?

S := ’информатика – это специалист, который получил образование в области экономики, менеджмента, права и ИКТ’;

  INSERT(‘Прикладная‘,S,1);

Контрольная работа

Тема: Программирование на Pascal»

Вариант 5

1. У ис­пол­ни­те­ля Каль­ку­ля­тор две ко­ман­ды, ко­то­рым при­сво­е­ны но­ме­ра:

1. при­бавь 3

2. умножь на 2

Вы­пол­няя первую из них, Каль­ку­ля­тор при­бав­ля­ет к числу на экра­не 3, а вы­пол­няя вто­рую, удва­и­ва­ет его. За­пи­ши­те по­ря­док ко­манд в про­грам­ме по­лу­че­ния из 1 числа 47, со­дер­жа­щей не более 6 ко­манд, ука­зы­вая лишь но­ме­ра ко­манд.

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

x:= 8 + 2*5;

y:= (x mod 10) + 14;

x:= (y div 10) + 3;

c:= x - y;

3. Опре­де­ли­те зна­че­ние пе­ре­мен­ной c после вы­пол­не­ния сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

a := 30;

b := 10;

a := a / b * 2;

if a > b then

c := a - 4 * b

else

c := a + 4 * b;

4. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­ще­го фраг­мен­та про­грам­мы:

var n, s: integer;

begin

n := 3;

s := 0;

while n <= 7 do begin

s := s + n;

n := n + 1

end;

write(s)

end.

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

m:=0; n:=4;

For i:=1 to 5

n:= i+3

If n>5 then m:=n+m*4

else m:=m+2;

end.

6. Чему равно  значение переменной n?

n:=pos(‘информатика ’ , ’Прикладная информатика’);