Var Xn : real; // Вычисляемые числа

Snew : real; // Вычисляемая сумма чисел

Begin

// Печать текущей суммы

N:=N+1;

Writeln('X[', N:1, '] = ', a2, ' Сумма = ', Sold);

// Вычисление нового слагаемого

Xn:=(a1+a2) / 2;

// Проверка потери точности

if Xn=a2 then

Begin Writeln('Достигнут предел точности вычислений');

Writeln('Дальнейшие вычисления приведут к искажению результатов');

Writeln('Вычисления будут остановлены');

Writeln('Следующие результаты являются приближенными:');

Calk:=Sold;

End

else Begin

// Проверка условия остановки

if (((Sold+Xn) > G))

then Calk:=Sold

else Begin // Вычисление новой суммы и рекурсивный вызов

Snew:=Sold+Xn;

Calk:=Calk(a2, Xn, Snew, G, N);

End;

End;

End;

Результат работы программы с выдачей предупредения представлен на следующем рисунке:

5. Вопросы для подготовки к зачёту

• Виды языков программирования. Области их применения.

• Особенности структуры программ, написанных на языке «Паскаль».

• Типы данных в языке «Паскаль».

• Использование дополнительных библиотек в языке «Паскаль».

• Операторы ввода/выводя на языке «Паскаль».

• Ветвящиеся вычислительные процессы. Оператор ветвления. Простые и сложные условия.

• Оператор переключатель «Case» (оператор многовариантного ветвления) и особенности его использования.

• Массивы в языке «Паскаль».

• Цикл «For» и особенности его использования в языке «Паскаль».

• Цикл «While» с пред условием и особенности его использования в языке «Паскаль».

• Цикл «Repeat» с пост условием и особенности его использования в языке «Паскаль».

• Работа с символьной информацией и обработка строк.

• Процедуры и функции в языке «Паскаль».

• Область видимости имён. Локальные и глобальные переменные.

• Передача параметров по значению и по указателю.

• Передача массивов в процедуры и функции.

• Рекурсивные функции.

• Понятие модуля и способы написания модулей на языке Паскаль.

6. Список рекомендуемой литературы

Основная

1. Немцова Т.И. Программирование на языке высокого уровня. Программирование на языке Object Pascal : учеб. пособие для студентов СПО / Т. И. Немцова, С. Ю. Голова, И. В. Абрамова ; под ред. Л. Г. Гагариной. - М. : ИД "Форум" : ИНФРА-М, 2013. - 495 с. : ил. + эл. опт. диск (CD-ROM). - (Профессиональное образование).

2. Головин И.Г. Языки и методы программирования : учеб. для студентов вузов / И.Г. Головин, И.А. Волкова. - М. : Академия, 2012. - 304 с. - (Высшее профессиональное образование. Бакалавриат).

3. Колдаев В.Д. Основы алгоритмизации и программирования. - М. : ИД "Форум" : ИНФРА-М, 2012.

Дополнительная

1. Фаронов В.В. Turbo Pascal : учеб. пособие для студентов вузов / В. В. Фаронов. - СПб. : Питер, 2007. - 367с. : ил. - (Учебное пособие ).

2. Кнут Д. Искусство программирования, т. 1. Основные алгоритмы, 3-е изд. / Пер. с англ: Уч. пос. – М.: Издательский дом «Вильямс», 2000.

3. Кнут Д. Искусство программирования, т. 2. Получисленные алгоритмы, 3-е изд./ Пер. с англ: Уч. пос. – М.: Издательский дом «Вильямс», 2000.

4. Кнут Д. Искусство программирования, т. 3. Сортировка и поиск, 2-е изд./ Пер. с англ: Уч. пос.- М.: Издательский дом «Вильямс», 2000.

5. Липский В. Комбинаторика для программистов /Пер. с польск. – М.: «Мир», 1988.