Презентация на тему Поиск ошибок в программе.

ax+b=0
относительно x для любых чисел a и b,

x: real;
begin
readln(a,b,x);

b, x , при которых программа неверно решает поставленную

Решение

любое число)
Лишняя часть программы – использование и ввод переменной

Program C1_1;
var a,b: real;
begin
write(‘Введите a и b’);
readln(a,b);
if a = 0 then
if b = 0 then write('любое число')
else write('нет решений')
else
write('x=', -b/a:8:2);
Readln;
End.

Доработка программы:

целых числа a, b, c. Далее требуется преобразовать данные

integer;
Begin
Write(‘Введите a, b, c’);

b, c , после обработки которых исходной программой соотношение

минимальное число вводится последним и попадает в переменную c).
Доработка

Program C1_2;
var a, b, c, x: integer;
Begin
write(‘Введите три числа’); read(a, b, c);
if a > b then begin x:=a; a:=b; b:=x; end;
if b > c then begin x:=b; b:=c; c:=x; end;
if a > b then begin x:=a; a:=b; b:=x; end;
write(‘Упорядоченная последовательность чисел:’);
writeln(a:5, b:5, c:5);
readln;
end.

относительно х для любых чисел а и b, введенных

Readln(a, b, x);
If a=0 then

b, x, при которых программа работает неправильно.
Укажите,

Решение

иметь разные знаки)
Лишняя часть программы – использование и ввод

Program C1_3;
var a,b: real;
begin
readln(a, b);
if a = 0 then
if b = 0 then write (‘х - любое число')
else write ('нет решений')
else
if b = 0 then write('x = 0')
else
if a*b < 0 then write('нет решений')
else
write('x =',b/a:8:2,' или x =',-b/a:8:2);
Readln; end.

Доработка программы:

ax + b > 0
относительно х для любых

readln(a,b,х);
if a=0 then

b, х, при которых программа неверно решает поставленную задачу.

Решение

не указано)
2) Лишняя часть программы – использование и ввод

Доработка программы:

Program C1_4;
Var a, b : real;
Begin
readln(a, b);
if a=0 then
if b>0 then write( 'любое число')
else write( ‘нет решений')
else
if a>0 then write( 'x >',-b/a:8:2)
else write( 'x<',-b/a:8:2);
Readln;
End.

ли точка А(х,у) внутри некоторого кольца («внутри» понимается в

r1,r2 : real;
h: геаl; {расстояние

и Y, при которых программа неверно решает поставленную задачу.

Укажите,

Решение

предполагается, что r1 > r2, хотя в условии это

Program C1_5;
var x, у, rl,r2,h :real;
Begin
Write(‘Введите координаты точки’);
readln (x, у);
Write(‘Введите радиусы двух окружностей’);
readln (rl, r2);
h := sqrt(x*x + y*y);
if ((h < rl) AND (h > r2)) OR
((h < r2) AND (h > r1)) then
writeln('точка А лежит внутри кольца');
Readln; end.

Доработка программы:

неравенство
ax - b < 0
относительно х для

if a=0 then

b, х, при которых программа неверно решает поставленную задачу.

Решение

число)
2) Лишняя часть программы – использование и ввод переменной

Program C1_6;
Var a,b: real;
Begin
readln(a,b);
if a=0 then
if b>0 then write( ‘Любое число')
else write( ‘Нет решений')
else
if a>0 then write( 'x < ', b/a:8:2)
else write( 'x > ', b/a:8:2);
Readln;
End.

Доработка программы:

ли точка А(хn, уn ) внутри треугольной области, ограниченной

begin
if (x0>0) then begin

Yо, при которых программа неверно решает поставленную задачу.
Укажите, как

Решение

C1_7;
var x0, у0, у: real;
Begin
Write(‘Введите координату точки’);
readln (x0, y0);
if

Доработка программы:

- а)/(bx)>0 относительно х для любых ненулевых чисел а

Readln(a, b, x);
If b>0 then

b, x, при которых программа работает неправильно.
Укажите,

Решение

= 0 (b – любое положительное число, a– любое

Program C1_8;
Var a, b : real;
Begin
Readln(a, b);
If b>0 then
If a>0 then Write (‘x>’, a:8:2 , ’или x<0’)
else Write (‘x<’, a:8:2 , ’или x>0’)
else
If a>0 then Write(‘0 else Write( a:8:2, ’Readln;
End.

Доработка программы:

координаты точки на плоскости (x,y) (действительные числа)
и определяет

If y

y при которых программа работает неправильно.

Доработайте программу

Решение

верно определяет принадлежность точки области) (x=0, y=1) (не выдает

Program C1_9;
var x,y: real;
begin
readln(x,y);
if (x >= 0) and (x <= pi/2) and
(y <= 1) and (y >= sin(x))
then
write('принадлежит')
else
write('не принадлежит');
end.

Доработка программы:

+ а)/(bx)

Readln(a, b, x);
If a=0 then

b, x, при которых программа работает неправильно.
Укажите,

Решение

b – любое отрицательное, х можно не указывать).
Лишняя часть

a=10, b=-2, х=0 (a – любое положительное число, b – любое отрицательное, х можно не указывать).
Лишняя часть программы – ввод переменной x.

Program C1_10;
Var a, b : real;
Begin
Readln(a, b);
If a=0 then
If b>0 then Write(‘Решений нет’)
else Write(‘x>0 или x<0’ )
else
If b>0 then Write( -a:8:2, ‘ else
Write(‘x>0 или x<’,-a:8:2 );
Readln
End.

Доработка программы:

ах2+bх+с=0 относительно x для действительных чисел а, b, с,

: real;
Begin
readln(a,b,c,xl,x2);
D:=b*b - 4*a*c;
If (D>0)

с, при которых программа неверно решает поставленную задачу.
Укажите, какая

Решение

быть корень, а программа выдает, что корней нет).
Лишняя часть

Program C1_11;
var a, b, с, D, xl, x2: real;
begin
readln(a, b, с);
D := b*b - 4*a*c;
if D >= 0 then begin
x1 := (-b + sqrt(D)) / (2*a);
x2 := (-b - sqrt(D)) / (2*a);
writeln('xl =', xl:8:2, ‘x2 =', x2:8:2);
end
else writeln ('действительных корней нет');
Readln;
end.

Доработка программы:

ли среди введенных с клавиатуры целых чисел а и

b : integer;
Begin
readln(a,b);
a:=a

и b, при которых программа неверно решает поставленную задачу.
Укажите,

Решение

больше 0)
Доработка программы:
Program C1_12;
var a, b: integer;

a > bx для любых чисел a и b.

b=0 then
if a

b, x, при которых программа работает неправильно.
Укажите

Решение

отрицательным числом)
2) Лишняя часть программы – использование и ввод

Program С1_13;
VAR a, b: real;
BEGIN
readln(a,b);
if b=0 then
if a<=0 then writeln(‘Решения нет’)
else writeln('x - любое число')
else
if b>0 then writeln(‘x<’,a/b:8:2)
else writeln(‘x>’,a/b:8:2);
Readln;
END.

Доработка программы:

ax

readln(a,b,x);
If a=0 then

b, x, при которых программа работает неправильно.
Укажите

Решение

можно не указывать)
2) Лишняя часть программы – использование и

Program С1_14;
VAR a,b: real;
BEGIN
readln(a,b);
If a=0 then
if b=0 then writeln(‘решений нет')
else writeln('x любое число')
else
If a>0 then writeln(‘x<’,abs(b)/a:8:2)
else writeln(‘x>’,abs(b)/a:8:2);
readln;
END.

Доработка программы:

ли точка А(х0,у0) внутри квадратной области, ограниченной прямыми, параллельными

readln(х0,у0);
If (x0

и у0, при которых программа неверно решает поставленную задачу.

Решение

программа не выдает никаких сообщений).
Доработка программы:
Program C1_15;

ли построить треугольник из отрезков с длинами х, у

If (x+y>z) then begin

у и z, при которых программа неверно решает поставленную

Решение

если первое условие истинно (x + y > z),

Доработка программы:

Program C1_16;
var х, у, z: real;
Begin
Write(‘Введите длины трех отрезков’);
readln (x, у, z);
if (x + y > z) and (x + z > y) and (y + z > x)
then
writeln('треугольник построить можно')
else
writeln('треугольник построить нельзя');
Readln;
end.

и радиусом. Даны две окружности. Требовалось определить, имеют ли

Readln (х2,у2,r2);
If sqrt(sqr(x2-x1)+sqr(y2-y1))=r1+r2
then

при которых программа неверно решает поставленную задачу.
Укажите,

Решение

(случай внутреннего касания)
Доработка программы:
Program C1_17;
Var x1,у1,r1,x2,y2,r2 :real;
Begin
Readln

в записи натурального числа А.

Программист поторопился и сделал

Readln (А); s:=0;
while a>=10 do

при которых программа неверно решает поставленную задачу.
Укажите,

Решение

a,s :longint;
Begin
write(‘Введите целое число’);
Readln(А); s:=0;

точки на плоскости (x,y) и определяет принадлежность точки заштрихованной

x, y );
If Y

Найти ошибки в программе.

Решение

для которой выполняются условия:
(y>x-1) или (y>0) или
((y>-sinx) и

Доработка программы:

Program C1_19;
var x, y: real;
begin
write(‘Введите коорд. точки’);
readln(x, y);
if (y <= x-1) and (y <= 0)) and
(y >= -sin(x)) and (x<=pi)
then write('принадлежит')
else write('не принадлежит');
readln;
end.

Проверяемые в программе условия выделяют следующие области (закрашены желтым цветом).

π

2π

координаты точки на плоскости (x, y – действительные числа)

readln(x, y);
if y >= x

при которых программа неверно решает поставленную задачу.
Укажите,

Решение

обозначенную на рисунке синим цветом, а не всю заштрихованную

Доработка программы:

Program C1_20;
var x, y: real;
begin
write(‘Введите координаты точки’);
readln(x, y);
if ((y >= x) or (y >= 0)) and (y <= 2-x*x)
then write('принадлежит')
else write('не принадлежит');
readln;
end.