Тема 17. Захист конституційного ладу України

Дата добавления: 2015-10-19; просмотров: 1904

Задание: Вычислить

Решение:

1.Блок-схема алгоритма с оператором выбора приведена на рис. 2.3.

Рисунок 2.3

Нет

Да

Нет

Да

Нет

Да

2.Текст программы

program p3a;

var a,b,y:real;

x:integer;

begin

a:=3.7;b:=6.1;

write('введите x='); readln(x);

case x of

-2: y:=x+2*b;

1: y:=exp(-x);

3: y:=cos(a*x);

else

begin

writeln ('значение xзадано неверно' );

writeln('нажми Enter');

readln;

exit;

end;

end;

writeln('при x=',x:2,' значение y=',y:5:2);

readln;

end.

3.Результат выполнения контрольного примера.

при x=-2 значение y=10.20

при x=1 значение y= 0.37

при x=3 значение y= 0.10

vvedite x=5

значение xзадано неверно

нажми Enter

Задачи повышенной сложности

1) Написать программу нахождения суммы большего и меньшего из 3 чисел.

2) Найти max{min(a, b), min(c, d)}.

3) Даны три числа a, b, c. Определить, какое из них равно d. Если ни одно из них не равно d, то найти max(d-a, d-b, d-c).

4) Даны числа x, y, z. Найти значение выражения:

5) Написать программу, которая по заданным трем числам определяет, является ли сумма каких-либо двух из них положительной.

6) На оси OX расположены три точки a, b, c. Определить, какая из точек b, c расположена ближе к a.

7) Даны действительные числа a, b, c. Удвоить эти числа, если a<b<c, и заменить их абсолютными значениями, если это не так.