Лб инф передел / Pascal / Лабораторные по информатике / ЛБ инф / ЛБ 1.1 / Лаб. раб. 1

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

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

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

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

Вариант N 2

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

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

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

2012

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

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

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

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

Вариант N 10

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

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

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

2012

1.Задание

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

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

X= Y=

a=2 b=3

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

Имя в задаче	Имя в программе	Тип Данного	Содерж. Смысл
a	a	Исх. переменная	2
в	в	Исх. переменная	3
х	х	Расч. переменная
y	y	Расч. переменная

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

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

№ Шага	№ Блока	Результат вычислений
1	1	Ввод а=2 в=3
2	2	Х== = 1.447389
3	3	Y== =537.791908
4	4	Вывод: x=1.447389 y=537.791908
5	5	Конец

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

Program pr1;

{Kurs1 is-148 Solovarov R.A Lab1}

Var a,b,x,y: Real;

Begin

Writeln('Enter x=a,b');

Readln(a,b);

x:=(SIN(2*PI*70/360)+PI*EXP(-(a+b))/COS(2*PI*75/360)*LN(SQR(a)+SQR(b)));

Y:=(EXP((ABS(x)+2.5)-(a+b+1.5))+(EXP(-x)+1.5)/a*b+EXP(a+b)*SQRT(SQR(a)+SQR(b)));

Writeln('x= ',x:8:6,'y= ',y:8:6);

End.

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

x=1.447389 при x=2 y=537.791908 при y=3

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