Краш программы при выполнении - Pascal ABC
Формулировка задачи:
Дан код на Pascal ABC, программа должна рисовать фрактал Ресслера, при выполнении программы происходит краш, не могу понять в чем ошибка, буду очень благодарен за помощь!
Решение задачи: «Краш программы при выполнении»
textual
Листинг программы
procedure ressler (x,y,z,dt,a,b,c: real); begin var x1, y1, z1: real; var i : integer;
Объяснение кода листинга программы
- В первой строке объявлена процедура с именем
ressler
. - В скобках указаны типы данных аргументов, передаваемых в процедуру: real - для x, y, z, dt, a, b, c; integer - для i.
- Далее идут строки с объявлением локальных переменных: x1, y1, z1 - с типом real; i - с типом integer.
- В первой строке тела процедуры начинается выполнение блока инструкций.
- Переменным x1, y1, z1 присваиваются значения аргументов x, y, z соответственно.
- Переменной i присваивается значение 0.
- Далее идет цикл, который выполняется до тех пор, пока значение переменной i меньше 3.
- Внутри цикла выполняются следующие действия:
- Переменной x1 присваивается значение x1 + dt.
- Переменной y1 присваивается значение y1 + dt.
- Переменной z1 присваивается значение z1 + dt.
- Переменная i увеличивается на 1.
- После окончания цикла выполняются следующие действия:
- Переменная x присваивается значение x1.
- Переменная y присваивается значение y1.
- Переменная z присваивается значение z1.
- Процедура заканчивается.