- •2Федеральное агентство по образованию
- •Алгоритмизация и программирование
- •Основы программирования в среде Турбо Паскаля.
- •Приоритет операций в выражении
- •Задание 1 (программа 1_1)
- •Программирование разветвленных алгоритмов. Операторы передачи управления
- •Программирование циклических алгоритмов с заданным числом повторений
- •Программирование циклических алгоритмов с предусловием
- •Программирование циклических алгоритмов с постусловием
- •Модифицировать программу 3_2 для вычисления функций f1(X) и f2 (X) с применением оператора цикла с постусловием. Выполнить ее и сравнить результа-ты с полученными ранее.
- •Программирование алгоритмов обработки одномерных массивов
- •Задание 1
- •Программирование с использованием функций
- •Программирование с использованием процедур
- •Лабораторная работа 10 Обработка символьных и строковых данных
- •Множества
- •Первая и вторая цифры размерность исходных множеств.
- •Модульное программирование
- •Динамические структуры данных. Списки
- •Задание 1 (программа 15_1)
- •Графика
- •Задания к расчетно-графической работе
- •Порядок выполнения лабораторных работ
- •Обозначения графические в схемах алгоритмов (гост 19.701-90)
- •Сообщение об ошибках Сообщения об ошибках периода компиляции
- •Сообщения об ошибках периода исполнения Ошибки операционной системы dos
- •Ошибки вода - вывода
- •Критические ошибки
Программирование циклических алгоритмов с постусловием
Стpуктуpа оператора цикла с постусловием
REPEAT <оператор 1>;
(повторять)
<оператор 2>;
...
<оператор N>
UNTIL <условие окончания цикла>;
(до тех поp, пока)
Пример. Вычислить 15 значений функций
y1(x) = tg(x) ; и y2(x) = ctg(x) при a ≤ x ≤ b,
a=0.6*Pi, b=0.7*Pi.
Для вычислений разработана СА (рис.6) и следующая
программа:
Program Lab5;
Const n = 14;
a = 0.6*Pi;
b = 0.7*Pi;
Var x, y1, y2, dx: real;
Begin
dx:=abs((a-b)/n);
x:=a;
Repeat
y1:=sin(x)/cos(x);
y2:=1/y1;
writeln('x=', x:6:4,' y1= ', y1:7:4,' y2=', y2:7:4);
x:=x+dx
Until x>b;
End.
Пример 2. Вычислить сумму элементов s = 1+1/4+1/9+1/16+... c точностью до
E = 0.00001 (рис. 7).
PROGRAM sum;
CONST
E=0.00001; {точность}
VAR
s,r: REAL; {s - сумма, r – слагаемое}
i:INTEGER; {i - счетчик слагаемых}
BEGIN
s:=0;
i:=1;
REPEAT
r:=1/sqr(i); {вычисление слагаемого}
s:=s+r;
i:=i+1 {счет слагаемых}
UNTIL r<E; {сравнение слагаемого с Е}
WRITELN ('Сумма=',s:9:5); {вывод суммы}
END.
Задание 1 (программа 5_1)
Модифицировать программу 3_2 для вычисления функций f1(X) и f2 (X) с применением оператора цикла с постусловием. Выполнить ее и сравнить результа-ты с полученными ранее.
Задание 2 (программа 5_2)
Начертить структурную схему алгоритма, написать и отладить программу для одной из следующих задач.
1. Вычислить приближенное значение z = arctg x и сравнить с
x - x3/3 + x5/5 - ... + (-1)nx2n+1/(2n+1) + ... (|х|<1), прекращая вычисления, когда очередной член по абсолютной величине будет меньше eps=0.00001.
2. Вычислить y = x - x2/2 + x3/3 - ... + (-1)n-1xn/n + ... с точностью eps=0.00001,
где |x|<1. Сравнить результат с вычисленным через стандартную функцию значением y = LN(1+x).
3. Вычислить y = 1 + x/1! + x2/2! + ... + xn/n! + ... с точностью eps=0.00001 и срав-нить результат с вычисленным через стандартную функцию значением y = ЕXP(x).
4. Вычислить y = sin x = x - x3/3! +x5/5! -...+ (-1)nx2n+1/(2n+1)!+... с точностью eps=0.00001.
5. Вычислить y = 1 - x2/2! + x4/4! - ... + (-1)nx2n/(2n)! + ... с точностью eps = 0.0001 и сравнить результат с вычисленным через стандартную функцию значением y = cos (x).
6. Найти произведение цифр заданного натурального числа.
7. Определить число, получаемое выписыванием в обратном порядке цифр заданного натурального числа.
8. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10-3.
9. Дана непустая последовательность различных целых чисел, за которой следует нуль. Определить порядковый номер и величину наибольшего среди отрицательных чисел этой последовательности.
10. Вычислять периметры и площади прямоугольных треугольников по длинам катетов, пока один из заданных катетов не окажется нулевым.
11. Дана непустая последовательность положительных целых чисел, за которой следует отрицательное число (это признак конца последовательности). Вычислить среднее геометрическое этих чисел.
12. Дана непустая последовательность ненулевых целых чисел, за которой следует нуль. Определить, сколько раз в этой последовательности меняется знак.
13. Числа Фибоначчи (fn) определяются формулами
f0 = f1 = 1; f n = f n-1 + f n-2 при n = 2,3,... .
Вычислить сумму всех чисел Фибоначчи, которые не превосходят 1000.
14. Дана непустая последовательность положительных вещественных чисел х1, х2, х3,..., за которыми следует отрицательное число. Вычислить величину
х1 + 2х2 + ... + (N-1)xN-1 + N хN, где N заранее не известно.
15. Вычислить длины окружностей, площади кругов и объемы шаров для ряда заданных радиусов. Признаком окончания счета является нулевое значение радиуса.
16. Определить, есть ли среди цифр заданного числа одинаковые.
17. Определить, является ли заданное натуральное число палиндромом, т. е. таким, десятичная запись которого читается одинаково слева направо и справа налево.
18. Вычислить наименьшее общее кратное натуральных чисел a и b.
19. Дано число L. Определить первый отрицательный член последовательности х1, х2, х3,..., где х1= L, xi = tg(xi-1).
20. Определить, является ли заданное натуральное число совершенным, т.е. равным сумме всех своих (положительных) делителей, кроме самого этого числа (например, совершенное число 6=1+2+3).
Задание 3 (программа 5_3)
Модифицировать программу 4_1 с использованием оператора цикла REPEAT ... UNTIL и сравнить результаты с полученными в работе 4.
Лабораторная работа 6