1. Написать программу для нахождения значения y с использованием операторов IF …. Выражения для вычисления значения выражений оформить:
а) в виде процедуры;
б) в виде функции.
Оформить реализованный в программе алгоритм в виде блок-схемы.
Подготовить тесты для проверки правильности работы программы.
Исполнить программу по шагам (с заходом в процедуру и без захода в процедуру).
Оформить протокол исполнения программы (для одного из тестовых значения).
1. Вариант
Вычислить значение функции y для произвольного значений x .
2. Вариант
Вычислить значение функции y для произвольного значений x .
3. Вариант
Вычислить значение функции y для произвольного значений x .
4. Вариант
Вычислить значение функции y для произвольного значений x .
5. Вариант
Вычислить значение функции y для произвольного значений x .
6. Вариант
Вычислить значение функции y для произвольного значений x .
7. Вариант
Вычислить значение функции y для произвольного значений x .
???
8. Вариант
Вычислить значение функции y для произвольного значений x .
9. Вариант
Вычислить значение функции y для произвольного значений x .
10. Вариант
Вычислить значение функции y для произвольного значений x .
11. Вариант
Вычислить значение функции y для произвольного значений x .
12. Вариант
Вычислить значение функции y для произвольного значений x .
13. Вариант
Вычислить значение функции y для произвольного значений x .
14. Вариант
Вычислить значение функции y для произвольного значения x .
15. Вариант
Вычислить значение функции y для произвольного значения x .
16. Вариант
Вычислить значение функции y для произвольного значения x .
17. Вариант
Вычислить значение функции y для произвольного значения x .
18. Вариант
Вычислить значение функции y для произвольного значения x .
19. Вариант
Вычислить значение функции y для произвольного значения x .
20. Вариант
Вычислить значение функции y для произвольного значения x .
21. Вариант
Вычислить значение функции y для произвольного значения x .
22. Вариант
Вычислить значение функции y для произвольного значения x .
23. Вариант
Вычислить значение функции y для произвольного значения x .
24. Вариант
Вычислить значение функции y для произвольного значения x .
25. Вариант
Вычислить значение функции y для произвольного значения x .
2. Написать программу для вычисления y с использованием:
а) оператора if..;
б) оператора множественного ветвления.
1. Вариант
Вычислите для произвольного значения х.
2. Вариант
Вычислите для произвольного значения х.
3. Вариант
Вычислите для произвольного значения х.
4. Вариант
Вычислите для произвольного значения х.
5. Вариант
Вычислите для произвольного значения х.
6. Вариант
Вычислите для произвольного значения х.
7. Вариант
Вычислите для произвольного значения х.
8. Вариант
Вычислите для произвольного значения х.
9. Вариант
Вычислите для произвольного значения х.
10. Вариант
Вычислите для произвольного значения х.
11. Вариант
Вычислите для произвольного значения х.
12. Вариант
Вычислите для произвольного значения х.
13. Вариант
Вычислите для произвольного значения х.
14. Вариант
Вычислите для произвольного значения х.
15. Вариант
Вычислите для произвольного значения х.
16. Вариант
Вычислите для произвольного значения х.
17. Вариант
Вычислите для произвольного значения х.
18. Вариант
Вычислите для произвольного значения х.
19. Вариант
Вычислите для произвольного значения х.
20. Вариант
Вычислите для произвольного значения х.
21. Вариант
Вычислите для произвольного значения х.
22. Вариант
Вычислите для произвольного значения х.
23. Вариант
Вычислите для произвольного значения х.
24. Вариант
Вычислите для произвольного значения х.
25. Вариант
Вычислите для произвольного значения х.
Вариант0
Вычислить значение функции y для произвольного значения x .
{Лабораторная работа №2 задача 1(а)}
Блок _схема для решения задачи
Вспомогательные алгоритмы
Основная программа
Program Lab_Rab_2_1;
var
x,y : real;
function f1 (x : real) :real;
begin
f1 := ln(sqr(x) + 3);
end;
function f2 (x : real) :real;
begin
f2 := arctan(x);
end;
Begin
Write('Введите значение x= ');
Readln(x);
if (x > -2) and (x <= 2) then y := f1(x)
else y := f2(x);
Writeln('Значение функции y(',x:4:2,')= ',y:4:3);
ReadLn;
End.
{Лабораторная работа №2 задача 1(б)}
Program Lab_Rab_2_1;
var
x,y : real;
procedure f (x : real ; var y : real );
begin
if (x > -2) and (x <= 2) then y := ln(sqr(x) + 3)
else y := arctan(x);
end;
Begin
Write('Введите значение x= ');
Readln(x);
f(x,y);
Writeln('Значение функции y(',x:4:2,')= ',y:4:3);
ReadLn;
End.
{Лабораторная работа №2 задача 2(б)}
Program Lab_Rab_2_1;
var
x : real;
y : extended;
k : byte;
function f1 (x : real) : extended;
begin
f1 := ln(abs(sqr(x) * x));
end;
function f2 (x : real) : extended;
begin
f2 := sqrt(exp(x + 3));
end;
function f3 (x : real) : extended;
begin
f3 := exp(3/2 * ln(x));
end;
Begin
ClrScr;
Write('Введите значение x= ');
Readln(x);
if (x < -6.8) then k := 1
else if x < 5 then k := 2
else k := 3;
case k of
1 : y := f1(x);
2 : y := f2(x);
3 : y := f3(x);
end;
Writeln('Значение функции y(',x:4:2,')= ',y:4:3);
ReadLn;
End.
