Контрольная работа на тему Контрольная работа 141202-08-2

Содержание

Вариант 11 3
Задание 1. Вычисление значения функции 3
Задание 2. Обработка одномерных массивов 7
Задание 3. Обработка двухмерных массивов 12
Задание 4. Работа с подпрограммами 17
Литература 23

Вариант 11
Задание 1. Вычисление значения функции

Цель работы: найти значения функции для изменяющегося аргумента.
Оборудование: персональный компьютер, операционная система Windows XP, среда разработки – Turbo Pascal 7.1.
Условие задачи:
Составить блок-схему алгоритма и программу на языке ПАСКАЛЬ вычисления значения функции Y=F(x) для аргумента x, изменяющегося от xн до xк с шагом изменения Hx.
Функция:


Блок-схема алгоритма:


Назначение переменных

Xn – начальное значение интервала для переменной Х.
Xk – конечное значение интервала.
H – шаг изменения переменной Х.
Y – искомое значение функции при текущем значении аргумента.
K – количество итераций (шагов) выполнения циклического процесса для вычисления таблицы значений функции.
b, c – переменные, которые вводит пользователь.
Х – переменная цикла, содержит текущее значение для вычисления функции.
I – переменная, счетчик цикла.

Описание алгоритма
1. Начало
2. Ввод значений Xn,Xk,h.
3. Вычисление количества шагов и присвоение переменной Z значения Рi.
4. Цикл for, повторяющийся количество раз, равное промежутку от 1 до К.
5. Проверка условия Х>0. Если условие выполняется, то переход к блоку 6, иначе к блоку 7.
7. Проверка условия Х<=0 и x>-3. Если условие выполняется, то переход к блоку 8, иначе к блоку 9.
6,8,9. Вычисление значения функции для текущего значения аргумента.
10. Вывод на печать значений X и Y.
11. Увеличение аргумента X на величину шага изменения h (последний оператор цикла).
12. Конец.

Текст программы
Program prog1;
Uses crt;
Var Xn, Xk, x, y, h, b, c: real;
i, k:integer;
begin
clrscr;
writeln('Введите через пробел Xn, Xk, h, b, c');
readln(xn, xk, h, b, c);
k:=trunc((xk-xn)/h)+1;
x:=xn;
for i:=1 to k do begin
if x>0 then y:=x*x*(sqrt(2)-b*c)
else
begin
if (x>-3) and (x<=0) then y:=b*c*c – 17*x
else y:=sin(x)*sin(x) – 0.8*x
end;
writeln('X = ',x:6:2,' Y= ',y:8:2);
x:=x+h;
end;
readln;
end.

Контрольный пример
Примем Хn=-3, Xk=3, h=2, b=1, c=1. Тогда k=(3-(-3))/2+1 = 4.
i
x
y

1
-3
2,42

2
-1
18

3
1
0,41

4
3
3,73


Протокол