Лб инф передел / Pascal / Лабораторные по информатике / Образец
.doc
Российский
Государственный Гидрометеорологический
университет
Кафедра Морских
Информационных Систем
Лабораторная
работа N 1
Алгоритмы
линейной структуры
Вариант N 2
Выполнил студент
группы ИС-148
Еременко В.И.
Санкт-Петербург
2012
Российский
Государственный Гидрометеорологический
университет
Кафедра Морских
Информационных Систем
Лабораторная
работа N 1
Алгоритмы
линейной структуры
Вариант N 2
Выполнил студент
группы ИС-148
Еременко В.И.
Санкт-Петербург
2012
1.Задание
С помощью операторов присваивания задать значения всем аргументам, входящим в выражение, вычислить выражение и, присвоив полученное значение переменной Х, вывести результат на экран
2.Формализация
X= Y=
a=1 b=2
3.Таблица имен
Имя в задаче |
Имя в программе |
Тип Данного |
Содерж. Смысл |
a |
a |
Исх. переменная |
1 |
в |
в |
Исх. переменная |
2 |
х |
х |
Расч. переменная |
|
y |
y |
Расч. переменная |
|
4.Блок- схема алгоритма
5.Таблица трассировки
№ Шага |
№ Блока |
Результат вычисл |
1 |
1 |
Ввод а=1 в=2 |
2 |
2 |
Х= |
3 |
3 |
Y= |
4 |
4 |
Вывод: x=0.45409087351979 y=0.54020023609158311689 |
5 |
5 |
Конец |
6.Код программы
Program P1;
Var a,b,x,y:Real;
Begin
Writeln(‘vvedite a,b’);
Readln(a,b);
X:=(exp(exp(-ABS(a)*ln(0.2)))+cos(/(a*b); y:=(cos(+arctan(a))/(b+x);
Writeln(‘x=’, x:8:6, ‘ y=’, y:8:6) End.
7.Результаты и выводы