Краш программы при выполнении - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дан код на Pascal ABC, программа должна рисовать фрактал Ресслера, при выполнении программы происходит краш, не могу понять в чем ошибка, буду очень благодарен за помощь!

Решение задачи: «Краш программы при выполнении»

textual
Листинг программы
procedure ressler (x,y,z,dt,a,b,c: real);
    begin
    var x1, y1, z1: real;
    var i : integer;

Объяснение кода листинга программы

  1. В первой строке объявлена процедура с именем ressler.
  2. В скобках указаны типы данных аргументов, передаваемых в процедуру: real - для x, y, z, dt, a, b, c; integer - для i.
  3. Далее идут строки с объявлением локальных переменных: x1, y1, z1 - с типом real; i - с типом integer.
  4. В первой строке тела процедуры начинается выполнение блока инструкций.
  5. Переменным x1, y1, z1 присваиваются значения аргументов x, y, z соответственно.
  6. Переменной i присваивается значение 0.
  7. Далее идет цикл, который выполняется до тех пор, пока значение переменной i меньше 3.
  8. Внутри цикла выполняются следующие действия:
    • Переменной x1 присваивается значение x1 + dt.
    • Переменной y1 присваивается значение y1 + dt.
    • Переменной z1 присваивается значение z1 + dt.
    • Переменная i увеличивается на 1.
  9. После окончания цикла выполняются следующие действия:
    • Переменная x присваивается значение x1.
    • Переменная y присваивается значение y1.
    • Переменная z присваивается значение z1.
  10. Процедура заканчивается.

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы