Вход

Паскаль

Реферат по программированию
Дата добавления: 29 марта 2010
Язык реферата: Русский
Word, rtf, 121 кб
Реферат можно скачать бесплатно
Скачать
Не подходит данная работа?
Вы можете заказать написание любой учебной работы на любую тему.
Заказать новую работу


 

 

 

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

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

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

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









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
















Выполнил:

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

Варго Д.Я.


























САМАРА - 2009

Задание 1.

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


при x





при x




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?[2,7], с шагом Dх=0,5; a=3,5, b=нет.

Решение:

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

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

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

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

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

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


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

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

  5. Если х попадает в заданный интервал, то повторяем действия с пункта 3: если х?7 - переходим к п.3.

  6. Завершаем работу.

  7. На основе алгоритма построим блок-схему.





По полученной блок схеме составим программу на языке Паскаль.

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. {КОНЕЦ ПРОГРАММЫ}





© Рефератбанк, 2002 - 2017