Язык программирования Pascal. Строки и записи. Васильев В.В - 12 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

12
Write('Дюймы: '); Readln(a.dyum);
Writeln('* Введите длину b в дюймовой системе измерения *');
Write('Ярды: '); Readln(b.yard);
Write('Футы: '); Readln(b.fut);
Write('Дюймы: '); Readln(b.dyum);
Write('Сумма длин a и b = ');
s:=a.dyum+b.dyum; r.dyum:=s mod 12;
s:=s div 12 + a.fut + b.fut; r.fut:=s mod 3;
r.yard:=s div 3+a.yard+b.yard;
Write(r.yard,' ярд. ',r.fut,' фут. ',r.dyum,' дюйм .');
readkey
End.{Add_dyum}
Как и в массивах , значения переменных типа запись можно присваивать
другим переменным того же типа. Например, для написанной выше программы
допустим оператор присваивания a:=b. Значения всех полей записи b будут
присвоены соответствующим полям записи a .
Задача 3. Пусть даны комплексное число z (пара вещественных чисел ) и
вещественное число
ε
>0. Вычислить с точностью
ε
значение комплексной
функции:
(
)
()
sin
!!
...
!
...zz
zzz
n
n
n
=−+−+
−
+
+
+3521
35
1
21
.
♣ Опишем тип Complex – запись с полями Re (вещественная часть ком -
плексного числа) и Im (мнимая часть комплексного числа) вещественного типа.
Аргумент z и результат sin_z искомой функции объявим переменными типа
Complex.
Член ряда Тейлора (см. условие задачи ) может быть задан с помощью сле-
дующей рекуррентной формулы:
(
)
()()
z
z
nn
z
nn+
=
−⋅
++
1
2
1
2223
,
zz
0
=
,
n
=
0
1
2
,
,
,
.
.
.
Для вычисления текущего члена ряда нам потребуется процедура
multy_(z1,z2, var res), возвращающая результат умножения комплексных чисел z1
и z2 в переменной res. Напомним, что произведение комплексных чисел , задан -
ных в алгебраической форме , вычисляется по формуле:
zzaabbabbai
1212121212
⋅=⋅−⋅+⋅+⋅⋅
.
Постоянный множитель
z
2
имеет смысл вычислить в переменной sq один
раз в блоке установки начальных значений .
Для деления произведения
zz
n
2
⋅
на
(
)
(
)
−
+
+
2223nn
понадобится проце-
дура деления div_(var z, r) комплексного числа z на целое r .
Чтобы складывать члены ряда напишем процедуру add_(z1,z2, var res), воз-
вращающую результат сложения комплексных чисел z1 и z2 в переменной res.
Комплексный синус будем вычислять в процедуре Sin_(z; el; var res). Орга-
низуем итерационные вычисления. В переменной res будем накапливать сумму

Страницы