Литература
Вальвачев, А.Н., Крисевич, В.С. Программирование на языке Паскаль для персональных ЭВМ ЕС. – Мн.: Выш. шк., 1989. – 223 с.
Паскаль для персональных компьютеров / Ю.С. Бородич [и др.]. – Мн.: Выш. шк., 1991. – 365 с.
ГОСТ 19.701-90. ЕСПД. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения. – М.: Госстандарт, 1990. – 28 с.
Офицеров, Д.В., Старых, В.А. Программирование в интегрированной среде Турбо-Паскаль. – Мн.: Беларусь, 1992. – 240 с.
МОДУЛЬ М4 – «ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ»
Лабораторная работа № 6
Программирование разветвляющихся вычислительных процессов с использованием условного оператора IF
Цель работы: Приобретение практических навыков составления программ решения задач разветвляющейся вычислительной структуры с использованием условного оператора IF .
Постановка задачи
Разработать блок-схему алгоритма и составить Паскаль-программу решения задачи по варианту условия, определяемому номером бригады (табл. 6.1) .
Таблица 6.1
Варианты заданий
№ вариантов |
Математические выражения |
Исходные данные |
1 |
Y = sin(5k + 3m k); n=1, если k<m; Y = cos(5k + 3m k); n=2, если k>m; Y = k + 5m ; n=3, если k=m |
k, m |
2 |
H = arctg(x + y); n=1, если x<y; H = arctg(x + y); n=2, если x>y; H = (x + y)2; n=3, если x=y |
x, y |
3
|
A =(x +
y)2
+
A =(x +
y)2
+
A =(x + y)2 + 1 ; n=3, если xy>0; |
x, y |
4 |
K = ln(f + g); n=1, если (fg)>0; K = e f+g ; n=2, если (fg)<0; K = f + g; n=3, если (fg)=0; |
f, g |
5 |
L = 3k3 + 3p2 ; n=1, если k>p; L = k – p ; n=2, если k<p; L = (k – p)2 ; n=3, если k=p; |
k, p |
6 |
C = x2 + y2 + sin(x); n=1, если x – y = 0; C = (x - y)2 + cos(x); n=2, если x – y > 0; C = (y – x )2 + tg(x); n=3, если x – y < 0; |
x, y |
7 |
Y = a + b; n=1, если c = 0; Y = a + b + c; n=2, если c > 0; Y = (a + b) c; n=3, если c< 0; |
a, b, c |
8 |
Y = tg(2x) + z; n=1, если z > 0; Y = 5x4 +3x3 –2x2 +1,5 +lnz ; n=2, если z < 0; Y = sin(x); n=3, если z = 0; |
x, z |
;
n=1,
если
xy>0;
;
n=2,
если xy>0;