Паскаль

ФЕДЕРАЛЬНОЕ МИНИСТЕРСТВО ВНУТРЕННИХ ДЕЛ РОССИИ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

САРАТОВСКИЙ ЮРИДИЧЕСКИЙ ИНСТИТУТ

Самарский филиал

Практическая работа по информатики.

Выполнил:

Студент 1 курса 511 группы

Варго Д.Я.

САМАРА - 2009

Задание 1.

Составить алгоритм вычисления следующей функции:

при x

при x

х = 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.

Для функции

Решение:

Определяем элементы функции и их назначение. Числа a и b являются константами, назначение которых то же, что и у констант в первом примере. Dх также является константой, смысл которой - задать шаг изменения значения переменной х.

Для получения решения, мы должны, во-первых, узнать, чему равны значения констант a, b и Dх, во-вторых, задать начальное значение х, для которого будем вычислять функцию, в-третьих, производим расчет значения функции, записываем результат, увеличиваем х на значение Dх, если х?7, то повторяем действия с расчетом функции, фиксированием результата и увеличением х, завершаем работу.

Формально, алгоритм расчета функции будет выглядеть следующим образом:

1. Задаем значения констант a, b и Dх: a=3,5; b=нет; Dх=0,5.

2. Задаем первое значение x: x=2.

3. 1. Вычисляем значение функции для текущего значения х:

   
   

4. Записываем результат.

5. Вычисляем следующее значение х: х=х+Dх.

6. Если х попадает в заданный интервал, то повторяем действия с пункта 3: если х?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 - переменный индекс, указывающий какой элемент x_i нужно выбрать из массива Х.

Для получения решения, нам необходимо, во-первых, узнать, чему равны значения констант 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. {КОНЕЦ ПРОГРАММЫ}