(1) true;
(2) 15;
(3) 3
X
5;
(4) ;
(5) A + B = 3;
(6) 3 - Ord(Chr(Abs(X) + 12)));
(7) ;
(8) 'A'A;
(9) (Cos X + Sin X) - Z;
(10) Sqrt(X) div5;
(11) (A mod B = 3 + 2) &(A
3);
(12) Succ(X/Y);
(13) Pred('A');
(14) Succ(Chr(Ord('A')+3)).
2. Пусть A, B, C, D -- переменные целого, вещественного, логического и литерного типа соответственно. Указать, какие из приведенных ниже операторов не содержат ошибок:
(1) C := A
0;
(2) B := A + 1;
(3) A := B + 2;
(4) D := Chr(A mod 40);
(5) A := Round(B + 2.14);
(6) A := A/3 + 15;
(7) A := Sqrt(A) + 1;
(8) begin end;
(9) begin D := ' D' end;
(10) write(B:A:2);
(11) read(A,B,D),
(12) write(' WRITE' :A);
(13) read(A+1, B+2);
(14) writeln(' A'
D);
(15) begin read(A,B); write(B,A) end.
3. Указать, какие из приведенных ниже программ содержат ошибки.
(1) module A1; var X : real; begin read(X) end A1.
(2) module A2; var A2:real; begin read(A2); write(A2) end A2.
(3) module A3;
const B ='1'; C =
True; D = 3.14; E = 12;
var F,G : real; H
: boolean; K,L : integer; AAAA : integer; BB : char;
begin writeln (B:10;
C:5, D:4:1, E:5);;;; end A3.
(4) module A4; var A: integer; begin READ(A); Write(A) end A4.
(5) module A5 ;
function C(D:integer): integer;begin return
(D+1) mod 10 end C;
begin write('ОТВЕТ=',C(15)) end A5.
(6) module A6;
const R = 10,2;
var X,Y : real;
function D(Z,W : real) : boolean;
begin D := Sqr(Z) + Sqr(W)
R end D;
function E(Z:real; W:real) : boolean;
begin E := (Z0)
&
(W0)
end
E;
begin read(X,Y); write(D(X,Y) &
E(X,Y)) end A6.
4. Пусть и -- переменные целого типа. Указать, какие из следующих операторов решают задачу обмена значениями у A и B:
(1) begin A := B; B := A end,
(2) begin C := A; A := B; B := C end,
(3) begin A := A+B; B := A-B; A := A-B end,
(4) begin C := A; A := B; B := A end.
5. Представить в виде Zonnon-выражений следующие алгебраические выражения:
(1)
(2)
(3)
(4)
6. Для каждого из следующих выражений определить его тип и типы всех переменных, из которых это выражение составлено:
(1) (A = 'A') or B & (C mod 2 + 1
D div 3),
(2) Chr(A + B)
D,
(3) Odd(A
B - 1)
C,
(4) (Pred(A)
'B') or (C mod(D + 1) = E).
7. Пусть и -- две вещественные переменные, используемые для хранения координат точки, а -- заштрихованная часть плоскости, изображенная на рис. 2. 14.
Записать логическое выражение, принимающее истинное значение тогда и только тогда, когда справедливо высказывание "точка с координатами (X,Y) принадлежит ".
Рис. 2.14. Области на плоскости
8. Пусть имеется три вещественных числа A, B и C. Записать в виде логического выражения высказывание:
(1) существует треугольник со сторонами A
B и C;
(2) существует прямоугольный треугольник со сторонами A
B и C;
(3) A
является максимумом из чисел AB
и C,
а B
-- минимумом;
(4) если треугольник со сторонами A
B и C
существует, то он является остроугольным;
(5) уравнение
не имеет действительных корней.
9. Пусть имеется три литеры A B и C. Записать в виде логического выражения следующие высказывание:
(1) ABC
изображают число, кратное семнадцати;
(2) A
является знаком арифметической операции, B
-- четной цифрой, а C -- буквой;
(3) AB
изображают номер литеры C
в литерном типе;
(4) либо A
является буквой, а B
не является цифрой, либо одна из литер A
или B
расположена в литерном типе рядом с C.
10. Даны вещественные числа X1, X2, X3, Y1, Y2 и . Записать логическое выражение, принимающее истинное значение тогда и только тогда, когда начало координат принадлежит треугольнику с вершинами, имеющими координаты.
11. Написать функцию, которая по заданным вещественным числам проверяет:
(1) пересекается ли отрезок, соединяющий вершины с координатами , с отрезком, граничные вершины которого имеют координаты и ,
(2) находится ли точка
внутри треугольника, вершины которого имеют координаты
и .
Next:2.3
Доказательство свойств программ Up:2.2
Выражения, операторы и выражения
Previous:2.2.7
Определяемые функции