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

 

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

 


Рейтинг ресурсов УралWeb
© А.А. Широких, А.П. Шестаков, 1999-2000
X