Решение задачи с применением табличного процессора EXCEL

Программирование линейного вычислительного процесса

Постановка задачи

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

Анализ задачи

Необходимо выполнить расчет промежуточных функций а и х и итоговой функции a для заданных значений исходных данных w и t. Чтобы облегчить запись выражений на языке Паскаль, введем две дополнительные переменные а1 и а2 для числителя и знаменателя функции a.

Таблица переменных

Смысл переменных	Обозначение переменных	Тип переменной
в задаче	в алгоритме
Исходные данные: переменные	w, t	w, t	Вещественный
Промежуточные данные: результаты функций, промежуточные переменные	а, х –	а, х а1, а2	Вещественный
Результаты: значение функции	a	Alfa	Вещественный

Блок-схема алгоритма

Интерфейс программы

Ввод исходных данных запланируем в форме диалога: значения w и t будем вводить с клавиатуры при появлении соответствующего запроса на экране монитора после запуска программы.

Предусмотрим вывод на экран монитора значений а, х и Alfa.

Текст программы на языке Паскаль

Program Lab1;

var t, w, a, x, a1, a2, alfa: real;

BEGIN

write('Vvedite t=> '); Readln(t);

write('Vvedite w=> '); Readln(w);

a:=exp(sqrt(t)*ln(w));

x:=sin(w*t);

a1:=7*sqr(x)*exp(-a*x);

a2:=2+a*abs(x);

alfa:=a1/a2;

writeln;

writeln('Rezultat:');

writeln('A= ', a:6:3, ' X= ', x:6:3, ' Alfa= ', alfa:6:3);

Readln;

END.

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

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

Пусть t=0, w=1. Тогда а=1, х=0, а1=0, а2=2, Alfa=0.

Выполним расчет с помощью программы для этих значений исходных данных.

Получаем:

Vvedite t=> 0

Vvedite w=> 1

Rezultat:

A= 1.000 X= 0.000 Alfa= 0.000

Результаты ручного счета и работы программы совпали, значит, программа составлена верно.

Результаты расчета для заданных значений исходных данных:

Vvedite t=> 0.024

Vvedite w=> 2.475

Rezultat:

A= 1.151 X= 0.059 Alfa= 0.011

Проверка с применением табличного процессора Excel

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

Решение задачи с применением табличного процессора EXCEL

	A	B	C	D	E
	Ввод t	Ввод w	Вычисление А	Вычисление Х	Вычисление Alfa
	0,024	2,475	1,151	0,059	0,011

В ячейки А2 и В2 вводятся исходные данные для расчета – значения t и w.

В ячейку С2 вводится формула =EXP(КОРЕНЬ(A2)*LN(B2)) для нахождения значения промежуточной функции А.

В ячейку D2 вводится формула =SIN(B2*A2) для вычисления значения промежуточной функции Х.

В ячейку Е2 вводится формула для вычисления значения итоговой функции Alfa.

=(7*D2*D2*EXP(-C2*D2))/(2+C2*ABS(D2))