Лб инф передел / Pascal / Лабораторные по информатике / Лб 3.1 / Соловаров ИС-148 отчёт по Л.Б. 3.1 вар 10

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

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

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

Параметрические задачи.

Программирование формул.

Вариант № 10

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

Соловаров Р.А.

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

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

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

2012

1.Задание

Для заданного с клавиатуры значения N найти (2·N+1)!!

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

N for (2·N+1)!!

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

Имя в задаче	Имя в программе	Тип Данного	Содерж. Смысл
K	K	Исх. переменная	2 или 3 4 или 5 K<5 или K>3
X	X	Исх. переменная	2
Y	Y	Расч. переменная

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

№	№ блока	Результат вычислений
1	1	Значение переменных А и В?
2	2	Если (x>=1) and (x<0)
3	3	Тогда X=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
4	9	Вывод x=0.000
5	10	Конец;
6	1	Если (A=-1) and (A<0)
7	2	Тогда X=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
8	9	Вывод x=
9	10	Конец;
10		Если (B=1) and (B>0)
11		Тогда X=ln(a*b-EXP((1/3)*ln((a*a+b*b)/(a*a-b*b))));
12		Вывод x=0.000
13		Конец.

6.Блок схема

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

PROGRAM P1;

VAR x,Y,k: REAL;

BEGIN Writeln('Введите через пробел x и k'); READLN(x,k);

IF (k=2) or (K=3)

Then Y:=(EXP(k*ln(x)))+x+1;

IF (k=4) or (k=5)

Then Y:=(1/ABS(x+1));

IF (k>5) or (k<3)

Then Y:=SQRT(SQRT(ABS(x+k))+SQRT(ABS(x-1)));

Writeln('Y=', Y:6:2);

END.

8.Вывод

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