Лб инф передел / Pascal / Лабораторные по информатике / Возможные варианты / ЛБ Ани / лаба 2.1

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

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

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

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

Вариант N 2

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

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

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

2012

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

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

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

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

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

Вариант № 7

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

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

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

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

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

2012

1.Задание

По введенным с клавиатуры значениям x,k вычислить Y=f(x)

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

Y=

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

Имя в задаче	Имя в программе	Тип Данного	Содерж. Смысл
k	k	Исх. переменная
x	x	Исх. переменная
Y	Y	Расч. переменная

Начало

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

Y,x,k- вещ.

Ввод x

Ввод k

k=1

k=2

1

1

x>2

Вывод Y

Конец

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

№ Шага	№ Блока	Результат вычисл
1	1	Ввод x=2, k=2
2	2

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

PROGRAM P1;

VAR x,Y,k: REAL;

BEGIN

Writeln('x='); READLN(x);

Writeln('k='); READLN(k);

IF k=1

Then Y:=sqr(x)*sqr(x);

IF (k=2) AND (x>0)

Then Y:=EXP((1/4)*ln(x));

IF (k>2) AND (x>0)

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

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

END.