Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

3897

.pdf
Скачиваний:
0
Добавлен:
13.11.2022
Размер:
417.77 Кб
Скачать

21

Вариант 8.

А. Вычислить значения f, z для заданных значений a, b, c, ,x по приведённым ниже формулам:

f

ln(a

x 2 )

sin2 (x / b) ;

 

 

 

 

 

 

 

 

 

 

z

e cx

x

 

 

x

a

 

 

,

 

 

 

 

 

 

 

x

 

 

x

b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

при c = 0,5; a = 1,2; b = 9,2; x = 2,2.

Б. Определить, принадлежит ли точка T(x1,y1) к замкнутой области.

y

1

-1

1 x

-1

Вариант 9

А. Вычислить значения Y, R для заданных значений a, b, x по приведённым ниже формулам:

; y

a2 x

b

x cos(a b)x

;

 

 

 

x 1

 

 

 

 

 

 

 

 

 

 

R

 

x2

b

b2 sin3 (x a) / x ,

при a = 0,3; b = 0,9; x = 0,61.

Б. Определить, принадлежит ли точка T(x1,y1) к замкнутой области – треугольнику.

y

1

-1

0

1 x

22

Вариант 10

А. Вычислить значения z, ω для заданных значений a, b, x по приведённым ниже формулам:

z

axsin 2x

e 2 x (x

b)

;

 

 

 

 

 

 

 

w

cos2 x3

x /

a 2

b 2

,

 

 

 

 

 

при a = 0,5; b = 3,1; x = 1,4.

Б. Определить, принадлежит ли точка T(x1,y1) к замкнутой области – треугольнику.

y

1

0

2

x

3.3. Лабораторная работа 2 Программирование алгоритмов разветвляющейся и циклической струк-

туры

Цель работы – овладение практическими навыками алгоритмизации и программирования вычислительного процесса разветвляющейся и циклической структур, получение дальнейших навыков по отладке и тестированию программы.

Задания для самостоятельной подготовки

1.Изучить возможности языка программирования для реализации:

вычислительного процесса разветвляющейся структуры;

вычислительных процессов циклической структуры.

2.Разработать алгоритм решения в соответствии с заданием, составить схему алгоритма.

3.Составить программу решения задачи.

23

4.Подготовить тесты (число тестов равно числу ветвей вычислительного процесса) для проверки правильности функционирования программы.

5.Выполнить программу на ЭВМ и протестировать все ветви алгоритма.

6.Разработать алгоритм табулирования заданной функции.

7.Составить и отладить программу табулирования функции.

8.Выполнить программу на ЭВМ, сравнить результаты счета с тестовыми.

Постановка задачи

1.Вычислить значение функции, указанной в варианте. Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.

2.Модифицировать программу таким образом, чтобы вычислялось многократно значение функции при изменении аргумента в указанном вариантом диапазоне и с заданным шагом. Организовать вывод результатов в виде таблицы.

Таблица функции Y(x) X Y

---------

---------

Пример модифицированной программы и схемы алгоритма, которая вычисляет значение функции

 

at

b, если at 1;

S

cos

at, если at

1;

 

e atcos at, если at

1

для a = 1,3; b = 1,29 при изменении t в диапазоне t

[0,1; 2,1] с шагом 0,1; ре-

зультаты выводятся в виде таблицы.

В данной задаче неизвестно количество повторений цикла, для переменной T известно начальное значение TN = 0,1 конечное значение TK = 2,1 и шаг изменения равен 0,1, т. е. T = T + 0.1. Переменная Т удовлетворяет определению параметра цикла. Согласно выше изложенным рекомендациям, необходимо нарисовать схему циклического процесса в общем виде, затем заполнить основные блоки, реализовать тело цикла. Схема примет вид:

24

A,B,TN,TK,DT

T=TN

 

нет

T<=TK

END

да

P=AT

P<1

S=P+B

 

 

 

P=1

 

 

Тело цикла

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

S=COS P

 

S=e-p COS P

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

T, S

T=T+DT

PROGRAM PRIM 2;

{Лабораторная работа 2 }

{студента группы ИСЭ Х1 Иванова И.И. }

VAR P, A, B, T, S: REAL;

TN,TK,DT:REAL; {значения t: начальное, конечное, шаг изменения}

BEGIN

25

WRITELN('введите A, B, TN, TK, DT');

READLN(A,B,TN,TK,DT);

WRITELN('ТАБЛИЦА ФУНКЦИИ S(T)':50);

WRITELN('T':35,S(T)':10);

T:=TN;

 

WHILE T<=TK

 

BEGIN

{начало тела цикла}

P:= A*T;

IF P

1 THEN S:=P+B

ELSE

 

IF

ROUND(P) = 1 THEN S:=COS(P)

{функция ROUND переводит в целое число с округлением, поскольку для веще-

ственных чисел нельзя использовать операцию равно (=)}

 

ELSE

 

S:=EXP(-R)*COS(P);

 

WRITELN(T:40:3,S:10:3);

 

T:=T + DT;

END;

{конец тела цикла}

END.

 

3.4. Варианты задания к лабораторной работе 2

Вариант 1

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных.

at 2 ln t

1

t 2

a

0,5

t

0;3

y 1

t

1

b

2

t

0,15

eat cosbt

t

2

 

 

 

 

Вариант2

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

 

 

 

 

 

 

 

 

 

 

26

 

x 2

7 / x2

x

1,3

a

1,5 x

0,8;2

 

ax3

 

 

 

 

 

 

 

 

 

y

7

x

 

x

1,3

 

t

0,1

 

lg(x

7

x )

x

1,3

 

 

 

Вариант 3

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

 

ax2

bx

c

 

x

1,2

a

2,8

x

1;2

 

 

 

 

 

 

 

 

 

 

 

 

 

w

a / x

 

x2

1

 

x

1,2

b

0,3

x

0,05

 

(a

bx) /

x2

1 x

1,2

c

4

 

 

Вариант 4

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

 

x2

7 / x2

x

1,4

a

1,65 x

0,7;2

Q

ax3

7

x

 

x

1,4

 

x

0,1

 

ln(x

7

 

x a

 

 

)

x

1,4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вариант 5

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

 

1,5cos2 x

x

1

a 2,3 x

0,2;2,8

y

1,8ax

 

x

1

x

0,2

(x 2)

2

6 1

x

2

 

 

 

 

3tg x

 

x

2

 

 

Вариант 6

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

 

 

 

 

 

 

 

 

 

x3 x a

x

a a

2,5 x

1;5

w

xsinax

x

a

x

0,5

 

e ax cosax

x

a

 

 

27

Вариант 7

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

bx

lgbx

bx

1

b

1,5 x

0,1;1

Q 1

 

bx

1

 

x

0,1

bx

lgbx

bx

1

 

 

 

Вариант 8

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

y

sinxlgx

x

3,5

x

2;5

cos2 x

x

3,5

x

0,1

 

Вариант 9

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

f

lg(x

1)

 

x

1

a

20,3 x

0,5;2

sin2

 

 

 

 

 

 

 

 

 

ax

 

x

1

 

x

0,1

 

 

 

 

 

 

 

Вариант 10

Вычислить значение функции. Осуществить вывод значений вводимых исходных данных и результат вычисления значений функции, сопровождая вывод наименованиями переменных

 

 

 

 

 

 

 

 

 

 

 

(ln3 x

x2 ) / x t

x

0,5

t

2,2 x

0,2;2

 

 

 

 

 

 

 

 

 

z

 

x t

1/ x

x

0,5

 

x

0,2

 

cos x

t sin2 x

x

0,5

 

 

 

28

Библиографический список

1.Паскаль. Программирование на языке высокого уровня : учебник для вузов / Т. А. Павловская. – СПб. : Питер, 2003. – 393 с.

2.Практикум по алгоритмизации и программированию на языке Паскаль: учеб. пособие / Ю. А. Аляев. – М.: Финансы и статистика, 2004. – 528 с.

3.Паскаль 7.0. Практическое программирование : учеб. пособие / Л. М. Климова – М.: КУДИС-ОБРАЗ, 2000. – 496 с.

4.Алгоритмизация и программирование на Турбо Паскале : учеб. пособие / В. С. Новичков и др. – М.: Горячая линия – Телеком, 2005. – 438 с.

5.Специальная информатика : учеб. пособие / С. В. Симонович и др.– М.: АСТ – ПРЕСС КНИГА, 2005. – 480 с.

6.Вычислительные системы, сети и телекоммуникации / В. Л. Бройдо – СПб. : Питер, 2003. – 688 с.

7.Информатика для юристов и экономистов / С. В. Симонович и др. –

СПб. : Питер, 2004. – 688 с.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]