Контрольная работа по программированию № 2
(логические и арифметические выражения, развилка)

Вариант 1    Вариант 2    Вариант 3    Вариант 4    Вариант 5     Вариант 6

Вариант 7    Вариант 8    Вариант 9    Вариант 10    Вариант 11    Вариант 12

Вариант 13    Вариант 14    Вариант 15    Вариант 16

Вариант I

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

                        (X <= 0) and (Sqr(X) + Sqr(Y) <= 4) or (X >= 0) and (Y <= -X + 2) and (Y >= X - 2).

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

            Program MyError;

            Var X, Y, Сумма :  integer;

            Begin

                        WriteLn(Введите значение X);

                        ReadLn(X);

                        WriteLn(Введите значение Y);

                        ReadLn(Y);

                        Сумма = X + Y;

                        WriteLn(Сумма);

            End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

            Program Kr_2;

            Var X1, Y1, X2, Y2, R1, R2 : Real;

            Begin

                        WriteLn(�Введите X1, Y1�);

                        ReadLn(X1, Y1);

                        WriteLn(�Введите X2, Y2�);

                        ReadLn(X2, Y2);

                        R1 := SQRT(X1 * X1 + Y1 * Y1);

                        R2 := SQRT(X2 * X2 + Y2 * Y2);

                        If  R1 = R2 Then WriteLn(�Лежат�) Else WriteLn(�Не лежат�);

            End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 2

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Y <= -X + 1) and (Y <= X + 1) and (Y >= -X - 1) and (Y >= X - 1) and (Sqr(X) + Sqr(Y) <= 1)

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

                        Program Ошибки;

                        Var X, Y : Integer;

                        Begin

                                     WriteLn(Введите значение X:); ReadLn(X);

                                     WriteLn(Введите значение Y:); ReadLn(Y);

                                     S := X + Y;

                                     If  S < 0 Then S := ABS(S)

                                     WriteLn(S);

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

            Program Kr_2;

            Var S1, S2, Dg, Dr, A : Real;

            Begin

                        WriteLn('Введите S1 и S2: '); ReadLn(S1, S2);

                        A := SQRT(S1); Dg := A * SQRT(2);

                        Dr := SQRT(4 * S2 / Pi);

                        If Dg <= Dr Then WriteLn('Да') Else WriteLn('Нет')

            End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 3

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Sqr(X) + Sqr(Y) <= 1) and (Y >= X) and (Y >= -X)

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

            Program Д;

            Var X : Real;

            Begin

                        WriteLn(Введите значение X); ReadLn(X);

                        Y := SQR(X) - 1;

                        If Y < 0 Then Y := Y * -1

                        WriteLn(Y);

            End

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

            Program Kr_2;

            Var S1, S2, Dr, A : Real;

            Begin

                        WriteLn('Введите S1 и S2: '); ReadLn(S1, S2);

                        A := SQRT(S1); Dr := SQRT(4 * S2 / Pi);

                        If Dr <= A Then WriteLn('Да') Else WriteLn('Нет')

            End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 4

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(X >= -1) and (X <= 0) and (Y >= -2) and (Y <= -X) or (X >= 0) and (X <= 1) and (Y >= -2) and (Y <= X)

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

            Program Summa;

            Begin

                        Var X, Y : Integer; Z : Boolen;

                        WriteLn('Введите X и Y: '); ReadLn(X; Y);

                        If X + Y > 0 Then Z := True; Else Z := False;

                        WriteLn(Z);

            End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, S : Real;

                        Begin

                                     WriteLn('Введите A, B, C: '); ReadLn(A, B, C);

                                     If SQR(A) + SQR(B) = SQR(C)

                                     Then     begin

                                                             S := 0.5 * A * B;

                                                             WriteLn('Являются; S = ', S : 7 : 2)

                                                 end

                                     Else WriteLn('Не являются')

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 5

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Sqr(X) + Sqr(Y-1)<= 1) and (Y <= 1 - Sqr(X))

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

            Program Max

            Var a, b, c : Real;

            Begin

                        WriteLn('Введите три числа: '); ReadLn(a, b, c);

                        If a > b Then B := a; Else B := b;

                        If B > c Then WriteLn(B); Else WriteLn(c)

            End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

            Program Kr_2;

            Var N, R, S, A, B, C, D : Integer;

            Begin

                        WriteLn('Введите натуральные N, R, S: '); ReadLn(N, R, S);

                        A := N div 1000; B := N mod 1000 div 100;

                        C := N mod 100 div 10; D := N mod 10;

                        If  (A * B * C * D = R * R) or (A * B * C * D = S * S * S)

                        Then  WriteLn('Верно') Else WriteLn('Неверно')

            End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 6

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Y >= 1) or (Y <= 1) and (Y >= 0) and (Y >= X) and (Y >= -X)

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

            Program MyError;

            Var a, b, min;

            Begin

                        Write('Введите a и b: '); ReadLn(a, b);

                        If a < b Then min:=a; WriteLn('Да');

                                      Else min:=b; WriteLn('Нет');

                        WriteLn(min : 5 : 2)

            End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

            Program Kr_2;

            Var A, B, C, Max, Min, Max2, Min2 : real ;

            Begin

                        WriteLn('Введите три числа: '); ReadLn(A, B, C);

                        If A > B Then begin Max := A; Min := B end

                                      Else begin Max := B; Min := A end;

                        If Max > C Then begin Max2 := Max; Min2 := C end

                                        Else begin Max2 := C; Min2 := Max end;

                        Max2 := Max2 - (Min + Min2);

                        WriteLn(Max2 : 7 : 2)

            End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 7

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Sqr(X) + Sqr(Y) <= 1) and (Y <= 0.5 * X)

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

                        Program MyError

                        Var A, X : Real;

                        Begin

                                     Write(X =); ReadLn(X);

                                     If X >= 0 Then A := X; Else A := |X|;

                                     WriteLn(A)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var N, A, B, S : Integer;

                        Begin

                                     Write('Введите трехзначное число: '); ReadLn(N);

                                     A := N div 100;

                                     B := N mod 10;

                                     If A > B Then S := 0.5 * (A + B) Else

                                                                                     If A < B then S := SQRT(A * B)

                                                                                     Else S := A + B;

                                     WriteLn(S)

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 8

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Y <= 0) and (Y <= 2 * X + 3) and (3 * Y >= X - 1) or (Y >= 0) and (Y <= -X) and (Y <= 2 * X + 3)

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

                        Program Gde_oshybka?;

                        Var X, Y : Real;

                        Begin

                                     Write(Введите угол); ReadLn(X);

                                     If -Pi / 2 < X < Pi / 2 Then Y := tg(X);

                                     WriteLn(Y : 7 : 2)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, H : Integer;

                        Begin

                                     Write('Введите три числа: '); ReadLn(A, B, C);

                                     If A > B

                                     Then begin H := A; A := B; B := H end;

                                     If A > C

                                     Then begin H := A; A := C; C := H end;

                                     If B > C Then begin H := B; B := C; C := H end;

                                     WriteLn(A, ' ', B, ' ', C)

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 9

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(X >= 0) and (Sqr(X) + Sqr(Y) <= 1) or (X <= 0) and (Y <= 0.5 * X + 1) and (Y >= -0.5 * X - 1).

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

                        Program Ошибка;

                        Var A : real;

                        Begin

                                     Write('Введите число');

                                     ReadLn(A);

                                     If A > 0 and A < Pi

                                     Then C := SIN(A); WriteLn(C : 6 : 2)

                                     Else WriteLn(Нет)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var N, M, A, B, S, Q : Integer;

                        Begin

                                     Write('Введите N и M (M <= 99): '); ReadLn(N, M);

                                     A := M div 10; B := M mod 10; S := A + B;

                                     Q := S * S * S;

                                     If N * N > Q Then WriteLn('Да') Else WriteLn('Нет')

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 10

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(X >= 0) and (Sqr(X) + Sqr(Y) <= 1) and (Y <= X) and (Y >= -X) or  (X <= 0) and (Sqr(X) + Sqr(Y) <= 1) and (Y <= -X) and (Y >= X)

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

                        Program MyError

                        Begin

                        Var X : Real;

                                     Write('Введите X: '); ReadLn(X);

                                     If X > 0 Then P := LnX Else X := ABS(X);

                                     P := LnX;

                                     WriteLn(P : 7 : 2)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, S, Min : Integer;

                        Begin

                                     Write('Введите три числа: '); ReadLn(A, B, C);

                                     If A + B + C > 1 Then

                                     begin

                                                 If A < B Then Min := A

                                                 Else Min := B;

                                                 S := Min;

                                     end

                                     Else S:=C;

                                     WriteLn(S)

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 11

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(X <= 0) and (Sqr(X) + Sqr(Y) <= 4) or (X >= 0) and (Y <= -X + 2) and (Y >= X - 2).

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

                        Program Ошибки;

                        Var X, Y : Integer;

                        Begin

                                     WriteLn(Введите значение X:); ReadLn(X);

                                     WriteLn(Введите значение Y); ReadLn(Y);

                                     S := X + Y;

                                     If S < 0 Then S := ABS(S)

                                     WriteLn(S);

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var S1, S2, Dr, A : Real;

                        Begin

                                     WriteLn('Введите S1 и S2: '); ReadLn(S1, S2);

                                     A := SQRT(S1); Dr := SQRT(4 * S2 / Pi);

                                     If Dr <= A Then WriteLn('Да') Else WriteLn('Нет')

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 12

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Y >= -X + 1) and (Y >= X + 1) and (Y <= -X - 1) and (Y <= X - 1) and (Sqr(X) + Sqr(Y) <=1)

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

                        Program Д;

                        Var X : Real;

                        Begin

                                     WriteLn(Введите значение X); ReadLn(X);

                                     Y := SQR(X) - 1;

                                     If Y < 0 Then Y := Y * -1 WriteLn(Y);

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, S : Real;

                        Begin

                                     WriteLn('Введите числа A, B, C: '); ReadLn(A, B, C);

                                     If Abs(SQR(A) + SQR(B) - SQR(C)) < 1e-7

                                     Then begin S := 0.5 * A * B;

                                                      WriteLn('Являются; S = �, S : 7 : 2)

                               end

                                     Else WriteLn('Не являются')

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 13

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Sqr(X) + Sqr(Y) <= 1) and (Y >= X) and (Y >= -X)

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

                        Program Summa;

                        Begin

                                     Var X, Y : Integer;

                                     Z : boolen;

                                     WriteLn('Введите X и Y: '); ReadLn(X; Y);

                                     If X + Y  > 0 Then Z := True; Else Z := False;

                                     WriteLn(Z);

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, Max, Min, Max2, Min2 : Real;

                        Begin

                                     WriteLn('Введите три числа: '); ReadLn(A, B, C);

                                     If A > B Then begin Max := A; Min := B end

                                                 Else begin Max := B; Min := A end;

                                     If Max > C Then begin Max2 := Max; Min2 := C; end

                                                 Else begin Max2 := C; Min2 := Max end;

                                     Max2 := Max2 - (Min + Min2);

                                     WriteLn(Max2 : 7 : 2)

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 14

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

            (X >= -1) and (X <= 0) and (Y >= -2) and (Y <= -X) or (X >= 0) and (X <= 1) and (Y >= -2) and (Y <= X)

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

                        Program Max

                        Var a, b, c : Real;

                        Begin

                                     WriteLn('Введите три числа: '); ReadLn(a, b, c);

                                     If a > b Then B := a; Else B := b;

                                     If B > c Then WriteLn(B); Else WriteLn(c)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, Max, Min, Max2, Min2 : Real;

                        Begin

                                     WriteLn('Введите три числа: '); ReadLn(A, B, C);

                                     If A > B Then begin Max := A;  Min := B end

                                                 Else begin Max := B;  Min := A end;

                                     If Max > C Then begin Max2 := Max; Min2 := C end

                                                 Else begin Max2 := C; Min2 := Max end;

                                     Max2 := Max2 - (Min + Min2);

                                     WriteLn(Max2 : 7 : 2)

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 15

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

(Sqr(X) + Sqr(Y-1)<= 1) and (Y <= 1 - Sqr(X))

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

                        Program MyError;

                        Var a, b, min;

                        Begin

                                     WriteLn('Введите a и b: '); ReadLn(a, b);

                                     If a < b Then min := a; WriteLn('Да');

                                                 Else min := b; WriteLn('Нет');

                                     WriteLn(min : 5 : 2)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

Program Z3;

Var N : Integer;

Begin

            Write('Введите трехзначное число (корректность ввода не анализируется) ');

            ReadLn(N);

            If N Div 100 < N Mod 10

            Then N := N Mod 10 * 100 + N Div 10 Mod 10 * 10 + N Div 100;          

            WriteLn(N : 4)  

End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Вариант 16

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

            (Y >= 1) or (Y <= 1) and (Y >= 0) and (Y >= X) and (Y >= -X)

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

                        Program MyError

                        Var A, X : Real;

                        Begin

                                     Write(X=); ReadLn(X);

                                     If X >= 0 Then A := X; Else A := |X|;

                                     WriteLn(A)

                        End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

                        Program Kr_2;

                        Var A, B, C, H : Integer;

                        Begin

                                     Write('Введите три числа: '); ReadLn(A, B, C);

                                     If A > B Then begin H := A; A := B; B := H end;

                                     If A > C Then begin H := A; A := C; C := H end;

                                     If B > C Then begin H := B; B := C; C := H end;

                                     WriteLn(A, ' ', B, ' ', C)

                        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.