Лб инф передел / Pascal / Лабораторные по информатике / лаба 2.1
.docx
Российский Государственный Гидрометеорологический университет
Кафедра Морских Информационных Систем
Лабораторная работа 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 |
|
3 |
3 |
Вывод Y=0.13 |
4 |
4 |
конец |
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.
7. Результаты и выводы.
Y=1.13 при k=2 и x=2.
Поскольку результаты трассировки совпали с результатами программы, то программа выполненв верно.