ПРОГРАММА НА ПАСКАЛЕ. Задача C1

⇐ ПредыдущаяСтр 3 из 3

ПРОГРАММА НА ПАСКАЛЕ

varx,y: real;

begin

readln(x, y);

if x*x + y*y <= 1 then

if x >= 0 then

if y >= x then

write('принадлежит')

else

write('не принадлежит')

end.

Решение:

1) (2, 5)

Var x, y: Real; a, b, c: Boolean;

Begin

readln(x,y);

a:= (x*x + y*y <= 1) and (y>=x);

b:=(x*x + y*y <= 1) and (y<=x) and (x>=0);

If (a=true) or (b=true) then

write('принадлежит')

else

write('не принадлежит');

End.

3) Решить 2 задачи самостоятельно:

1) Задача C1

Требовалось написать программу, при выполнении которой с клавиатуры считываются координаты точки на плоскости (х, у — действительные числа) и определяется принадлежность этой точки заданной закрашенной области (включая границы). Ученик написал такую программу:

Паскаль	Бейсик
var x, y: real; begin readln(x,y); if y >= xx − 6 then begin if xx + y*y <= 16 then write('принадлежит') end else if x >= 0 then write('принадлежит') else write('не принадлежит') end.	INPUT x, y IF y >= xx − 6 THEN IF xx + y*y <= 16 THEN PRINT "принадлежит" ELSE IF x =>О THEN PRINT "принадлежит" ELSE PRINT "непринадлежит" END IF END IF END

При проверке работы программа выполнялась по шагам для некоторых контрольных значений х и у, при этом был заполнен протокол тестирования. В результате неаккуратного обращения протокол был испорчен, частично сохранились только четыре строки:

Область	Условие 1 (y >= x*x – 6)	Условие 2 (xx + yy<= 16)	Условие 3 (x >= 0)	Вывод	Верно
	да			—


				принадлежит	нет



				не принадлежит	да



			—		да
			да		да

Графы протокола содержат следующую информацию.

Область - часть плоскости, которой принадлежит проверяемая точка. (Все

возможные области отмечены на рисунке буквами А, В, С, ... S.)

Условие 1, Условие2, Условие 3 — результат проверки соответствующего

условия (да или нет). Если условие не проверялось, в протокол записывался

прочерк.

Вывод — сообщение, которое вывела программа. Если программа ничего не вывела, в протокол записывался прочерк.

Верно - итоговое заключение (да или нет) о правильности результата работы программы при данных значениях х и у.

Последовательно выполните следующее.

1. Восстановите уцелевшие строки протокола, заполнив все клетки таблицы. Там, где содержание восстанавливается неоднозначно, запишите любое возможное значение. Например, если для нескольких областей получается одинаковая строка таблицы, укажите в графе «Область» любую из этих областей.

2. Укажите, как нужно доработать программу, чтобы не было случаев её неправильной работы. (Это можно сделать несколькими способами, достаточно указать любой способ доработки исходной программы.)

2) Задача

Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y — действительные числа) и определяет принадлежность точки заштрихованной области (включая границы). Программист торопился и написал программу неправильно. Ниже для Вашего удобства программа представлена на четырёх языках программирования.

Бейсик	Паскаль
INPUT x, y IF x>=-1 THEN IF y>=-1 THEN IF y<=1 THEN IF xx+yy<=1 THEN PRINT "принадлежит" ELSE PRINT "непринадлежит" END IF END IF END IF END IF END	varx,y: real; begin readln(x,y); if x>=-1 then if y>=-1 then if y<=1 then if xx+yy<=1 then write('принадлежит') else write('не принадлежит'); end

Последовательно выполните следующее:

1) Приведите пример таких чисел x, y, при которых программа неправильно решает поставленную задачу.

2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой правильный способ доработки исходной программы).

⇐ Предыдущая 1 23