Раздел 2. основные конструкции языков программирования

Тема 2.1. Операторы языка программирования

ЗАДАНИЕ 1

Найдите значение d после выполнения следующих операторов:

a:=2; b:=3; c:=2*a+b; d:=a+b+c; d=12

b:=30; c:=2*b+b; b:=b+c; d:=c+b; d=210

a:=4; b:=a*a; c:=a+b; d:=b+c; d=36

a:=8; b:=5*a; c:=a+b; d:=b+c; d=88

ЗАДАНИЕ 2

Запишите, как будет выведено на экран значение Х, если оператор вывода использует формат Х: 5:1 (один штрих - одна позиция)

X	Экран пользователя
99.23	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
0.125	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
-7.89	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
15.4545	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
9.112233E02	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
3.123456E-03	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

ЗАДАНИЕ 3

Описать фрагмент блок-схемы на языке программирования Turbo Pascal

____________________________

________________
ЗАДАНИЕ 4

Запишите заголовки циклаFor для изменения параметра из диапазонов:

1. От -10 до +10 For index: = -10 to 10 do

2. От 100 до 1 For index: = 100 down to 1 do

3. От 15 до 25 For index: = 15 to 25 do

4. От -10 до -20 For index: = -10 down to -20 do

ЗАДАНИЕ 5

Выполните трассировку и определите значение переменной S после выполнения фрагмента программы.

S:=0; I:=0; While I< 5 do I:=I+1; S:=S+I*I; S 0	I	S	I<5?
		ДА

ЗАДАНИЕ 6

Определите сколько раз будет выполняться тело цикла:

S:=0; I:=0; Repeat I:=I-1; S:=S+1/I; Until I<=1;	S:=0; I:=1; Repeat I:=I+1; Until I>2; S:=S+1/I;	S:=0; I:=1; Repeat S:=S+1/I; I:=I+1; Until I<1;

ЗАДАНИЕ 7

Где ошибки (их 4) в следующей программе? Каков будет результат выполнения программы в ТП?

program Задача;

var A, B: byte;

begin

write(‘Исходная задача:’);

writeln(‘Сколько будет (25*4)-45/5?’);

writeln( ‘Решение:);

A= 25*4;

writeln( ‘1) 25*4=’,A);

B:=45/5;

writeln( ‘2) 45/5=’,B)

writeln( ‘3) (25*4)-45/5=’, A-B)

end.

___________________________

___________________________

ЗАДАНИЕ 8

Определите, какой будет результат при выполнении данной последовательности операторов:

P:=1; K:=1; while K<=5 do begin P:=P*K; K:=K+1; end;

а) 25; b) 24; c) 15; d) 120.

__________________________

__________________________

ЗАДАНИЕ 9

В каком из условных операторов допущена синтаксическая ошибка?

a) if B = 0 then Writeln('Деление на нуль невозможно.');

b) if a > b then max := a else max := b;

c) if (a>b) and (b>0) then c:=a+b;

d) if a < b then min := a; else min := b; ЗДЕСЬ ПОСЛЕ «a» стоит « ; »

_______________

_______________

ЗАДАНИЕ 10

Выполните тест. Из предложенных ответов выберите правильный. Верных ответов может быть несколько

1. Какое расширение имеет файл, созданный в ИСП Turbo Pascal?

а) .txt;

b) .exe;

c) .pif;

e) .pas;

f) .bas

2. Какой из перечисленных разделов обязателен в программе, созданной в ИСП Turbo Pascal?

а) раздел LABEL;

b) раздел CONST;

c) раздел TYPE;

d) Раздел VAR;

e) Раздел BEGIN...END.

3. Как открыть экран пользователя ИСП Turbo Pascal?

а) File/Open

b) Alt/F5

c) File/New

d) Ctrl/F9

e) Alt/F9

4. Значением логической переменной может быть:

a) Любое число;

b) Любой тест;

c) Истина или ложь;

d) Таблица.

5. Даны значения переменной a=1, b=2, c=3. Каково будет значение переменной C после выполнения действий: A: =В; В: =С; С: =А+В;

a) C=5;

b) C=3;

c) C=4;

d) C=6.

6. Дан фрагмент программы. Какой будет выведен результат на экран?

a:=27;

If a>0 then a:=a*2 else a:=a+2;

Writeln (a);

а) 27;

b) 54;

c) 729;

d) 29.

7. Какой из фрагментов программы написан правильно:

a) A*X+SIN(X)-EXP(X)/ABS(X);

b) AX+SIN(X)-e(X)/ABS(X);

c) A*X+SIN X+e^X/ ;

d) A*X+SIN X+EXP X/ABS X.

8. Как выполнить компиляцию программы в среде программирования ТП?

а) Alt/F5;

b) Ctrl/F9;

c) Ctrl/F5;

d) Alt/F9;

e) F9.

9. Какой из фрагментов программы написан правильно

a) SQRT(ABS(-AX+C))/LN(ABS(X+SQR(C)));

b) SQRT(ABS(-A*X+C))/LN(ABS(X+SQR(C)));

c) SQRT(ABS(-A*X+C))/LN(ABS(X+C*C);

d) SQR(ABS(A*X+C))/LN(ABS(X+SQR(C))).

10. В каком разделе программы, созданной в ИСП Turbo Pascal, объявляются пользовательские типы данных?

а) раздел LABEL;

b) раздел CONST;

c) раздел TYPE;

d) раздел VAR

11. Как правильно на языке Турбо Паскаль написать следующее выражения

a) (1+x)^(1/3)
b) Exp(1/3*(Ln(1+x)))
c) ln(1/3*(exp(1+x)))
d) Exp(1/3*(Ln(1+x))

12. Оператор цикла с постусловием

a) case

b) repeat

c) for

d) while

13. Оператор цикла с параметром

a) case

b) repeat

c) for

d) while

14. Оператор выбора из двух альтернатив

a) if

b) repeat

c) while

d) case

Критерии оценки теста

100%-95% – 5(отлично)

94%-75% – 4(хорошо)

74%-60% – 3(удовлетворительно)

Менее 60%– 2(неудовлетворительно)