Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Інші
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2002
Тип роботи:
Контрольна робота
Предмет:
Інші
Частина тексту файла (без зображень, графіків і формул):
УКООПСПІЛКА
ПОЛТАВСКИЙ КООПЕРАТИВНЫЙ ИНСТИТУТ
Кафедра информационно-вычислительных систем
Контрольная работа
по дисциплине «Компьютерная техника и программирование»
Вариант 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
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора