Читать книгу: «Нейросети и программирование. Выпуск 3»

Шрифт:

ISBN 978-5-0067-0597-5 (т. 3)

ISBN 978-5-0062-6016-0

Создано в интеллектуальной издательской системе Ridero

Лабораторные и практические работы №5 и 6 (Смотрите тему занятий «Создание алгоритмов и отладка программ циклической структуры» в таблице) являются для студентов достаточно сложными работами.

Поэтому, для лучшего понимания и усвоения данного материала я рекомендовал бы вам предварительно познакомиться (еще лучше, изучить) с содержанием ГЛАВы 8. ТЕХНОЛОГИИ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ:

8.1. Этапы решения задач на компьютере

8.2. Понятие алгоритма и его свойства

8.3. Способы записи алгоритмов

8.4. Основные виды алгоритмов Основные виды алгоритмов

8.5. Принципы программирования

8.6. Языки программирования

8.7. Классификация и обзор языков программирования

Вопросы для самопроверки

в моих электронных книгах «Информатика и ИТ. Нейросети» (выпуски 1 и 2).

В этой книге я попробую кратко и на конкретных примерах рассмотреть вопросы, касающиеся создания алгоритмов и отладки программ циклической структуры при работе с системой программирования на языке Паскаль.

1.Операторы цикла

Операторы цикла используются для вычислений, которые повторяются многократно. В Паскале имеется три вида циклов: цикл с предусловием while, цикл с постусловием repeat и цикл с параметром for.

1.1.Структурные схемы

Циклы с предусловием (на рис.1, левый) и с постусловием (рис.1, правый)

Рис.1.

Формат оператора с предусловием:

while выражение do оператор

Формат оператора с постусловием:

repeat тело цикла until выражение

1.2.Примеры

Программа печати таблицы значений функции sin для аргумента, изменяющегося в заданных пределах с заданным шагом.

program tabl_fun;
var
Xn, Xk: real; {начальное и конечное значения аргумента}
dX: real; {шаг изменения аргумента}
x, y: real; {текущие значения аргумента и функции}

begin

writeln («Введите Xn, Xk, dX»);
readln (Xn, Xk, dX);
writeln (» – — – — – — – — – — – —»); {заголовок таблицы}
writeln (»│ X │ Y │»);
writeln (» – — – — – — – — – — – —»);
x:= Xn; {первое значение аргумента}
while x <= Xk do {заголовок цикла}
begin
y:= sin (x); {вычисление значения функции}
writeln (»│», x:9:2, ‘ │», y:9:2, ‘ │»); {вывод строки таблицы}
x:= x+dX; {переход к следующему значению аргумента}

end;

writeln (» – — – — – — – — – — – —»);
readln;
end.

Программа, вычисляющая квадратный корень вещественного аргумента Х с заданной точностью eps по итерационной формуле:

у_n= (y_n-1+ x/y_n-1) /2,

где y_n-1– предыдущее приближение к корню (в начале вычислений выбирается произвольно), у_n– последующее приближение. Процесс вычислений прекращается, когда приближения станут отличаться друг от друга по абсолютной величине менее, чем на величину заданной точности.

program square_root;