Команда ветвления. Программа нахождения корней квадратного уравнения. (Учитель информатики Дзиова М.П.)

Тема: Исправление ошибок в простой программе с условными операторами.

1. Требовалось написать программу, которая решает уравнение относительно х для действительных чисел а, Ь, с, введенных с клавиатуры, о которых заведомо известно, что а0, b0 и c0. Была написана следующая программа:

var a, b, с, D, xl, x2: real;

begin

readln(a, b, с, xl, x2);

D := b*b - 4*a*c;

if D 0

then begin

xl := (-b + sqrt(D))/(2*a);

x2 := (-b - sqrt(D))/(2*a);

write('xl =', xl);

write('x2 =', x2); end

else writeln ('действительных корней нет');

end.

Известно, что программа написана с ошибками. Последовательно выполните три задания:

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

2. Укажите, какая часть программы является лишней.

3. Укажите, как, по-вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы.

1. Требовалось написать программу, которая определяет, имеется ли среди введенных с клавиатуры положительных целых чисел а и Ь хотя бы одно четное. Была написана следующая программа:

var a, b: integer;

begin

readln(a, b);

a := a mod 2;

if a 0 then b := b mod 2;

if b 0 then

writeln ('четных чисел нет')

else writeln ('четное число есть');

end.

Известно, что программа написана с ошибками. Последовательно выполните три задания:

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

2. укажите, как, по вашему мнению, нужно доработать программу, чтобы не было случаев ее неправильной работы;

3. укажите, как можно доработать программу, чтобы она вместо вложенных операторов IF содержала логическую операцию OR.

Оценочный лист 14 апреля 2016 г.

ФИ ________________________

--------------------------------------------------------------------------------------------------------------------------------------------------

Оценочный лист 14 апреля 2016 г.

ФИ ________________________