Блок-схема:

Алгоритм программы:

CLR

PRINT TAB(30) “Задача 4»

PRINT TAB(15) «Расчет свойств многокомпонентных систем»

INPUT “введите MS, KO, P”; MS, KO, P

IF MS>67 THEN KS=KO+P*(MS-67) ELSE KS=KO

INPUT “введите N”;N

DIM K(N), M(N)

FOR I=1 TO N

INPUT “введите M(I), K(I)’;M(I), K(I)

NEXT I

S1=0; S2=0

FOR I=1 TO N

S1=S1+M(I)*K(I)

S2=S2+M(I)

NEXT I

K=(S1+KS+MS)/(S2+MS)

PRINT “Результаты расчета”

END

Решение задачи

Вывод: В результате данной работы я определила модуль упругости Е=7,27 10^-10, Н/м²

Задача № 5 Домашнее задание. Задача № 5. Расчет свойств многокомпонентных составов

Ряд свойств промышленных и лабораторных стекол (плотность  ,термический коэффициент линейного расширения α, модуль упругости Е, модуль сдвига G) может быть рассчитан аддитивными методами. Суть метода заключается в том, что любое из перечисленных свойств может быть рассчитано по формуле

где k – расчетное значение свойства;

– аддитивные коэффициенты i-гo компонента;

P_i – содержание i-гo компонента, мас. %.

Задание: произвести замену переменных, составить блок-схему алгоритма, написать программу и, используя исходные данные, приведенные в таблицах 1 и 2, рассчитать заданное вариантом свойство, написать выводы.

Таблица 1 – Исходные данные для расчета свойства материала

Оксид, мас.%	Номер варианта
	4
	Свойство
	модуль упругости
SiO2	81,99
Al2O3	11,59
Fe2O3	0,78
CaO	2,26
MgO	0,60
K2O	1,18
Na2O	1,60
Сумма	100,0

Таблица 2 – Аддитивные коэффициенты для расчета свойств материалов

Свойство, ki	Компоненты
	SiO2	Al2O3	Fe2O3	CaO	MgO	K2O	Na2O
модуль упругости Е, МПа	650	1140	521	1116	921	410	595

Блок-схема:

Текст программы:

Решение задачи

Вывод: В результате данной работы я определила модуль упругости Е=7,1423,04 МПа

Задача № 6 Задача № 6. Простые операции над матрицами

Многие операции с матрицами не вызывают сложности, когда матрица рассматривается лишь как некий двумерный массив, над каждым элементом которого проводят одинаковые операции. Такими операциями являются умножение и деление на константу, сложение с константой.

Задание: произвести замену переменных, составить блок-схему алгоритма, написать программу и, используя исходные данные, приведенные в таблице 1, произвести заданную операцию над матрицей А, получить результирующую матрицу B.

Таблица 1 – Исходные данные

	Номер варианта
	4
	Вид операции
	Вычитание
К	0,85

Вариант 4

0,3	4,5	-5	-5,3	2,7
15,2	0,2	8,6	2,5	0

Текст программы:

CLR

PRINT TAB(30) “Задача 6»

PRINT TAB(15) «простые операции с матрицами»

INPUT “введите количество строк N” ; N

INPUT “введите количество столбцов M” ; M

INPUT “введите константу K” ; K

DIM A(N,M), B(N,M)

FOR I=1 TO N

FOR J=1 TO M

INPUT “введите элемент матрицы A(I,J)”;A(I,J)

NEXT J,I

FOR I=1 TO N

FOR J=1 TO M

B(I,J)=A(I,J)-K

NEXT J,I

PRINT “ Результаты расчета”

FOR I=1 TO N

FOR J=1 TO M

PRINT B(I,J)

IF J=M THEN PRINT

NEXT J,I

PRINT “Решала Калашнова А.В.”

END