- •Алгоритмизация и программирование
- •Среда программирования turbo pascal 7.0
- •Структура меню среды
- •Правила оформления программ
- •Команды редактора тп
- •Компиляция и исправление ошибок в программе
- •Элементы языка pascal Алфавит языка
- •Константы. Идентификаторы
- •Операторы Оператор присваивания
- •Оператор безусловного перехода
- •Стандартные функции
- •Условный оператор if
- •Опеpатоp варианта case
- •Составной и пустой операторы
- •Операторы цикла
- •Процедуры прерываний
- •Типизированные константы
- •Структура программы
- •Типы в Турбо Паскале
- •Целые типы
- •Классификация целых типов
- •Встроенные процедуры и функции для целых типов
- •Логический тип
- •Символьный тип
- •Служебные символы
- •Строковый тип
- •Встроенные функции и процедуры для обработки строк
- •Перечислимый тип
- •Ограниченный тип (диапазон)
- •Вещественные типы
- •Вещественные типы
- •Встроенные функции
- •Структурированные типы данных. Массивы
- •Технология программирования Этапы подготовки и решения задач на компьютере
- •3.3. Отладка программных средств
- •Зарезервированные слова Turbo Pascal 7.0
- •Лабораторная работа 1 Основы программирования в среде Турбо Паскаля. Оператор присваивания, процедуры ввода - вывода
- •Приоритет операций в выражении
- •Лабораторная работа 2 Программирование разветвленных алгоритмов. Операторы передачи управления
- •Лабораторная работа 3 Программирование циклических алгоритмов с заданным числом повторений
- •Лабораторная работа 4 Программирование циклических алгоритмов с предусловием
- •Лабораторная работа 5 Программирование циклических алгоритмов с постусловием
- •Модифицировать программу 3_2 для вычисления функций f1(X) и f2 (X) с применением оператора цикла с постусловием. Выполнить ее и сравнить результа-ты с полученными ранее.
- •Лабораторная работа 6 Программирование алгоритмов обработки одномерных массивов
- •Задание 1
- •Лабораторная работа 7 Программирование алгоритмов обработки двумерных массивов
- •Порядок выполнения лабораторных работ
- •Приложение 1 Обозначения графические в схемах алгоритмов (гост 19.701-0)
- •Приложение 2 Сообщение об ошибках Сообщения об ошибках периода компиляции
- •Сообщения об ошибках периода исполнения Ошибки операционной системы dos
- •Ошибки вода - вывода
- •Критические ошибки
- •Приложение 3 Кодировка символов в соответствии с кодами ascii
- •Альтернативная кодировка госТа для кодов 128...255
- •Приложение 5 Клавиши с кодами из двух частей
- •Содержание
Лабораторная работа 5 Программирование циклических алгоритмов с постусловием
Ст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.