УКООПСПІЛКА ПОЛТАВСКИЙ КООПЕРАТИВНЫЙ ИНСТИТУТ Кафедра информационно-вычислительных систем Контрольная работа по дисциплине «Компьютерная техника и программирование» Вариант 0 Выполнил: Проверил: Полтава 2002 Задание 1 Определить пористость материалов по формуле (П, %):
где Р0 — объемная масса, кг/м3; Р — истинная плотность, кг/м3. Постановка задачи Раздел 1. Организационно-экономическая сущность Имя задачи PORIST  Цель решения автоматизация математических вычислений  Периодичность решения по запросу пользователя  Пользователи математик, товаровед  Источники входной информации сертификаты на товары, математические и справочные таблицы  Форма представления результатов видеограмма с отображением пористости материала  Раздел 2. Описание данных 2.1. Выходные данные 2.1.1. Перечень выходных форм (сообщений) Выходная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Расчет пористости материала Видеограмма Значение результата PORIST  2.1.2. Описание выходных форм (сообщений) Реквизиты форм  № п/п Название реквизита Идентификатор выходной формы (сообщения) Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Пористость материала PORIST % 9(2).99 П  2.2. Входные данные 2.2.1. Перечень входных форм (сообщений) Входная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Сертификат на товар Бланк документа Документ СЕРТ  2 Таблица плотностей материалов Бланк документа Документ ТПЛ  2.2.2. Описание входных форм Реквизиты форм  № п/п Название реквизита Идентификатор входной формы Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Объемная масса СЕРТ кг/м3 9(4).99 P0  2 Истинная плотность ТПЛ кг/м3 9(4).99 Р  Раздел 3. Алгоритмизация 3.1. Математическое описание вычислительного алгоритма № п/п Математическая формула  1 2  1 
 3.2. Распределение памяти ПЭВМ Идентификатор P0 Р П  Переменная, константа P0 P Por  3.3. Тип алгоритма Тип алгоритма — линейный 3.4. Блок-схема алгоритма
Программа program PORIST; var P0, P, Por: real; begin writeln('Введите объемную массу, кг/куб.м'); readln(P0); writeln('Введите истинную плотность, кг/куб.м'); readln(P); Por := (1 - P0 / P) * 100; writeln('Пористость материала ', Por:5:2, '%'); end. Результаты работы программы Введите объемную массу, кг/куб.м 423.6 Введите истинную плотность, кг/куб.м 568.2 Пористость материала 25.45% Задание 2 Определить значение числа Х по формуле:
Постановка задачи Раздел 1. Организационно-экономическая сущность Имя задачи FUNCX  Цель решения автоматизация математических вычислений  Периодичность решения по запросу пользователя  Пользователи математик, товаровед  Источники входной информации сертификаты на товары  Форма представления результатов видеограмма с отображением значения числа Х  Раздел 2. Описание данных 2.1. Выходные данные 2.1.1. Перечень выходных форм (сообщений) Выходная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Расчет значения числа Х Видеограмма Значение результата FUNCX  2.1.2. Описание выходных форм (сообщений) Реквизиты форм  № п/п Название реквизита Идентификатор выходной формы (сообщения) Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Искомое число FUNCX число 9(2).99 Х  2.2. Входные данные 2.2.1. Перечень входных форм (сообщений) Входная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Сертификат на товар Бланк документа Документ СЕРТ  2.2.2. Описание входных форм Реквизиты форм  № п/п Название реквизита Идентификатор входной формы Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Число a СЕРТ число 9(3).99 a  Раздел 3. Алгоритмизация 3.1. Математическое описание вычислительного алгоритма № п/п Математическая формула  1 2  1 
 3.2. Распределение памяти ПЭВМ Идентификатор a X  Переменная, константа a X  3.3. Тип алгоритма Тип алгоритма — разветвляющийся 3.4. Блок-схема алгоритма
Программа program FUNCX; var a, x: real; begin write('Введите a: '); readln(a); if a <= 1 then if 2 * a < 0.95 then x := 2 * a else x := 0.95 else if a < 25 then x := a / 5 else x := a / 25; writeln('X = ', X:7:2); end. Результаты работы программы Ниже приведены результаты работы программы при исходных данных, обеспечивающих прохождение каждой ветви алгоритма: Введите a: -13 X = -26.00 Введите a: 0.92 X = 0.95 Введите a: 15.1 X = 3.02 Введите a: 25.9 X = 1.04 Задание 3 Определить значение Y по формуле:
Постановка задачи Раздел 1. Организационно-экономическая сущность Имя задачи SUMMA  Цель решения автоматизация математических вычислений  Периодичность решения по запросу пользователя  Пользователи математик, товаровед  Источники входной информации сертификаты на товары  Форма представления результатов видеограмма с отображением значения суммы  Раздел 2. Описание данных 2.1. Выходные данные 2.1.1. Перечень выходных форм (сообщений) Выходная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Расчет значения Y Видеограмма Значение результата SUMMA  2.1.2. Описание выходных форм (сообщений) Реквизиты форм  № п/п Название реквизита Идентификатор выходной формы (сообщения) Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Значение суммы SUMMA число 9(4).99 Y  2.2. Входные данные 2.2.1. Перечень входных форм (сообщений) Входная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Сертификат на товар Бланк документа Документ СЕРТ  2.2.2. Описание входных форм Реквизиты форм  № п/п Название реквизита Идентификатор входной формы Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Значение B СЕРТ число 9(4).99 B  2 Значение Х СЕРТ число 9(4).99 Х  3 Верхний предел СЕРТ целое число 9(3) N  Раздел 3. Алгоритмизация 3.1. Математическое описание вычислительного алгоритма № п/п Математическая формула  1 2  1 
 3.2. Распределение памяти ПЭВМ Идентификатор B X N K Y  Переменная, константа B X N K Y  3.3. Тип алгоритма Тип алгоритма — циклический 3.4. Блок-схема алгоритма
Программа program SUMMA; var x, y, b: real; k, n: integer; begin writeln('Введите N, X, B'); readln(n, x, b); y := 0; for k:=1 to n do y := y + exp(k * ln(b)) * exp(2 * k * ln(x)); writeln('Y = ', y:7:2); end. Результаты работы программы Введите N, X, B 12 1.4 2.2 Y = 53793950.59 Задание 4 Определить наибольший элемент (Amax) и его место в матрице AI,J, I = 1, (, N; J = 1, (, M по формуле:
где I — счетчик строк матрицы; J — счетчик столбцов матрицы. Постановка задачи Раздел 1. Организационно-экономическая сущность Имя задачи MAXMATR  Цель решения автоматизация математических вычислений  Периодичность решения по запросу пользователя  Пользователи математик, товаровед  Источники входной информации сертификаты на товары  Форма представления результатов видеограмма с отображением наибольшего элемента матрицы и его координат  Раздел 2. Описание данных 2.1. Выходные данные 2.1.1. Перечень выходных форм (сообщений) Выходная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Определение наибольшего элемента матрицы Видеограмма Значение результата MAXMATR  2.1.2. Описание выходных форм (сообщений) Реквизиты форм  № п/п Название реквизита Идентификатор выходной формы (сообщения) Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Наибольший элмент матрицы MAXMATR число 9(2).99 Amax  2 Номер строки наибольшего элемента матрицы MAXMATR целое число 9 imax  1 2 3 4 5 6  3 Номер столбца наибольшего элемента матрицы MAXMATR целое число 9 jmax  2.2. Входные данные 2.2.1. Перечень входных форм (сообщений) Входная форма (сообщение)  № п/п Название формы Тип Форма представления Идентификатор формы  1 2 3 4 5  1 Сертификат на товар Бланк документа Документ СЕРТ  2.2.2. Описание входных форм Реквизиты форм  № п/п Название реквизита Идентификатор входной формы Ед. изм. Вид (тип, класс), формат Идентификатор реквизита  1 2 3 4 5 6  1 Количество строк матрицы СЕРТ целое число 9 N  2 Количество столбцов матрицы СЕРТ целое число 9 M  3 Матрица СЕРТ массив 9(2).99 A  Раздел 3. Алгоритмизация 3.1. Математическое описание вычислительного алгоритма № п/п Математическая формула  1 2  1 
 3.2. Распределение памяти ПЭВМ Идентификатор N M A I J Imax Jmax Amax  Переменная, константа N M A I J Imax Jmax Amax  3.3. Тип алгоритма Тип алгоритма — циклический 3.4. Блок-схема алгоритма
Программа program MAXMATR; var n, m: integer; a: array [1..10, 1..10] of real; i, j, imax, jmax: integer; Amax: real; begin writeln('Введите количество строк и столбцов матрицы (N, M)'); readln(N, M); writeln('Введите матрицу построчно'); for i:=1 to N do for j:=1 to M do read(a[i, j]); Amax := a[1, 1]; imax := 1; jmax := 1; for i:=1 to N do for j:=1 to M do if a[i, j] > Amax then begin Amax := a[i, j]; imax := i; jmax := j; end; writeln('Amax = A(', imax, ',', jmax, ') = ', Amax:5:2); end. Результаты работы программы Введите матрицу построчно 2.2 -1.4 0 6 3.9 -0.2 6 -7 3.7 11 2.3 9.01 4.13 5 0 3.2 6.13 2.96 0 0.11 Amax = A(2,5) = 11.00