Лабораторная работа №2
Цели. Научиться использовать в программах процедуры и функции. Научиться использовать в программах операторы, реализующие структуру ветвление. Научиться использовать логические операции. Задание 1 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.
Читайте также: А. Лабораторная установка Воспользуйтесь поиском по сайту: ©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|