Лб инф передел / Pascal / Лабораторные по информатике / Задание

Российский Государственный Гидрометеорологический университет

Кафедра Морских Информационных Систем

Лабораторная работа N 1

Алгоритмы линейной структуры

Вариант N 2

Выполнил студент группы ИС-148

Еременко В.И.

Санкт-Петербург

2012

Российский Государственный Гидрометеорологический университет

Кафедра Морских Информационных Систем

Лабораторная работа № 1.1

Линейный вычислительный процесс.

Расчет по формуле.

Вариант № 7

Выполнила студентка группы ИС-148

Пелевина А.С.

Работу принял доцент кафедры МИС

Неклюдова С.А.

Санкт-Петербург

2012

1.Задание

С помощью операторов присваивания задать значения всем аргументам, входящим в выражение, вычислить выражение и, присвоив полученное значение переменной Х, вывести результат на экран

2.Формализация

С= B=

3.Таблица имен

Имя в задаче	Имя в программе	Тип Данного	Содерж. Смысл
x	X	Исх. переменная	1.1
a	A	Расч. переменная	1
C	C	Расч. переменная
B	B	Расч. переменная
M	M	Расч.переменная
P	P	Расч. переменная

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

Начало

x,a,C,B,M,P- Веществ.

Ввод x

M=

P=

С=

B=

Вывод C,B.

Конец

5.Таблица трассировки

№ Шага	№ Блока	Результат вычисл
1	1	Ввод x=1.1,a=1
2	2	M==44.750332
3	3	P==3.3140076
4	4	C==2310.1808
5	5	B==36487.1512235
6	6	Вывод С=2310.1808 B=36487.1512235
7	7	Конец

6.Код программы

PROGRAM P1;

VAR a,x,B,C,P,M: Real;

BEGIN

Writeln('vvedite x=');

Readln(x);

M:=EXP(2*ln((a*sqr(x+1))+(sqr(sqr(sin(x))))-1+(3.089*sqr(x)*sqr(x)-2)/(1-((x-1)/(x+1)))));

P:=EXP(3*ln((EXP(2*ln(x-1)))+3*x));

C:=EXP(2*ln(M+P));

B:=EXP((3/2)*ln(C/(a+x)));

Writeln('C=', C:8:6,' B=', B:8:6)

END.

7. Результаты и выводы.

C=2310.1808 B=36487.1512235

Поскольку результаты трассировки совпадают с результатами программы, то программа выполнена верно.