Контрольная Вариант 8 Паскаль

      ФЕДЕРАЛЬНОЕ МИНИСТЕРСТВО ВНУТРЕННИХ ДЕЛ РОССИИ ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ САРАТОВСКИЙ ЮРИДИЧЕСКИЙ ИНСТИТУТ Самарский филиал Практическая работа по информатики. Выполнил: Студент 1 курса 511 группы Варго Д.Я. САМАРА -

2009 Задание 1. Составить алгоритм вычисления следующей функции: при x5 при x5 a = 1,9; b = 3,4 х = 7,39 Решение: Прежде, чем приступить к составлению алгоритма, давайте определим элементы функции и их назначение. Очевидно, в функции участвуют две формулы: и Выбор, по какой из формул рассчитывать функцию, определяется значением переменной x. Числа a и b в формулах являются константами, введенными, во-первых, для более наглядного написания формул, а во-вторых, для расширения класса задач, решаемых данным алгоритмом (изменяя

константы, мы получаем новые задачи). Итак, для того, чтобы получить решение, мы должны, во-первых, узнать, чему равны значения констант a и b, во-вторых, узнать, для какого значения х будем вычислять функцию, в-третьих, в зависимости от значения х выбрать формулу для расчета у и вычислить функцию, и, наконец, вывести (записать) полученный результат. Формально, алгоритм расчета функции будет выглядеть следующим образом:

1)Задаем значение a и b: a=1,9; b=3,4. 2)Получаем значение x, для которого надо вычислить функцию, х=7,39. 3)Если x<5, то вычисляем функцию по первой формуле (подпункт 3.а), иначе - по второй (пп. 3.b). a) d) 4)Записываем результат и завершаем работу. На основе алгоритма построим блок-схему. По полученной блок схеме составим программу на языке Паскаль. PROGRAM RAZVETV; {Название программы} CONST {Раздел описания констант}

A=1.9; B=3.4; VAR {Раздел описания переменных} X, Y: REAL; BEGIN {НАЧАЛО ПРОГРАММЫ} WRITE (‘ВВЕДИТЕ X, ’); {Выводим на экран сообщение о необходимости ввести Х} READLN(X); {Вводим значение Х} IF X<5 THEN Y: = SIN(x) SQR (A+X) Не так сначала квадрат потом синус и аргумент фунцкии а+х неделим ELSE Y: = LN (SQRТ( АВS(B+X))); {Если Х<5 то Y=…, иначе

Y= …} WRITELN (‘Y=’, Y); {Выводим результат вычислений} END. {КОНЕЦ ПРОГРАММЫ} Задание 2. Для функции вычислить значения для x&#61646;[2,7], с шагом &#61508;х=0,5; a=3,5, b=нет. Решение: Определяем элементы функции и их назначение. Числа a и b являются константами, назначение которых то же, что и у констант в первом примере. &#61508;х также является константой, смысл которой - задать шаг изменения значения переменной х.

Для получения решения, мы должны, во-первых, узнать, чему равны значения констант a, b и &#61508;х, во-вторых, задать начальное значение х, для которого будем вычислять функцию, в-третьих, производим расчет значения функции, записываем результат, увеличиваем х на значение &#61508;х, если х&#61603;7, то повторяем действия с расчетом функции, фиксированием результата и увеличением х, завершаем работу. Формально, алгоритм расчета функции будет выглядеть следующим образом:

1)Задаем значения констант a, b и &#61508;х: a=3,5; b=нет; &#61508;х=0,5. 2)Задаем первое значение x: x=2. 3)Вычисляем значение функции для текущего значения х: 4) Записываем результат. 5)Вычисляем следующее значение х: х=х+&#61508;х. 6)Если х попадает в заданный интервал, то повторяем действия с пункта 3: если х&#61603;7 - переходим к п.3. 7)Завершаем работу. 8)На основе алгоритма построим блок-схему.

По полученной блок схеме составим программу на языке Паскаль. PROGRAM CIKL; {Название программы} CONST {Раздел описания констант} A=3.5; DX = 0.5; VAR {Раздел описания переменных} X, Y: REAL; BEGIN {НАЧАЛО ПРОГРАММЫ} X: = 2; {Присваиваем начальное значение Х} WHILE X<=7 DO {ЦИКЛ - ПОКА} BEGIN {НАЧАЛО БЛОКА}

Y: = A*X(1 + A*EPX( SQR(-X)));{Вычисляем функцию} WRITELN (‘ПРИ X=’, X, ‘Y=’, Y); {Выводим результат вычислений} X: = X+DX; {Вычисляем следующее значение Х} END; {КОНЕЦ БЛОКА} END. {КОНЕЦ ПРОГРАММЫ} Задание 3. Дан массив из 5 чисел: Х=[2 4 6,2 3 1,4], вычислить значение функции , где a=3,5; b=4,1.

Решение: Как и в предыдущих примерах, определяем элементы функции и их назначение. Числа a и b являются константами, назначение которых то же, что и у констант в первом примере. Появился новый элемент i - переменный индекс, указывающий какой элемент xi нужно выбрать из массива Х. Для получения решения, нам необходимо, во-первых, узнать, чему равны значения констант a и b, во-вторых, просуммировать все элементы массива Х (предварительно добавив к каждому элементу константу b

и возведя полученную сумму в квадрат), к полученному значению добавить константу a, записать результат вычислений и завершить вычисления. Остается добавить, что для того, чтобы просуммировать все элементы массива, мы должны сначала обнулить переменную, которая будет накапливать сумму (y), а затем по очереди (с помощью индекса i) выбираем элемент из массива, прибавляем к нему константу b, возводим в квадрат и добавляем к накапливающей переменной. Словесный алгоритм расчета функции:

1)Задаем значения констант a и b: a=3,5; b=4,1. 2)Вводим значения элементов массива Х. 3)Задаем начальные значения индекса i, и функции y: i=1, y=0. 4)Берем i-тый элемент массива Х, и считаем по своей функции 5)Проверяем, все ли элементы массива Х мы просуммировали (i должно быть равно 5) и если нет, то увеличиваем индекс i и возвращаемся к п.3: если i<5, то i=i+1 и переход к п.3. 6)К накопленной сумме добавляем константу а: y=y+a.

7)Записываем результат. 8)Завершаем работу. На основе алгоритма построим блок-схему. По полученной блок схеме составим программу на языке Паскаль. PROGRAM MASSIV; {Название программы} CONST {Раздел описания констант} A=3.5; B=4.1; VAR {Раздел описания переменных} X: ARRAY [1 5] OF REAL; Y: REAL; I: INTEGER; BEGIN {НАЧАЛО ПРОГРАММЫ}

FOR I: =1 TO 5 DO {ЦИКЛ С ПАРАМЕТРОМ ДЛЯ ВВОДА ЭЛЕМЕНТОВ МАССИВА Х} BEGIN {НАЧАЛО БЛОКА} WRITE (‘Введите значение X [’, I,’], ’); READLN(X [I]); END; {КОНЕЦ БЛОКА} Y: =0; {Обнуляем переменную, в которой будем накапливать сумму} FOR I: =1 TO 5 DO Y: =A+X[I] SQRT(EPX[I]+B/-EPX[I]+X[I]; {ЦИКЛ С ПАРАМЕТРОМ ДЛЯ РАСЧЕТА СУММЫ}

РАЗБЕРИТЕСЬ СО СКОБКАМИ, ЭТО ОЧЕНЬ ВАЖНО Y: = Y+A; WRITELN (‘Y=’, Y); {Выводим результат вычислений} END. {КОНЕЦ ПРОГРАММЫ}