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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.
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 в противном случае.