Помогите, пожалуйста, организовать цикл

[Axel1981]

Задание заключается в том, чтобы написать на Pascalе программку, которая решает систему линейных уравнений методом Жордановых исключений.

Программу я сделал, всё решает правильно. Но препод требует чтобы я все вычисления организовал в цикл. У меня пока ничего не получается, в общем очень рассчитываю на вашу помощь.

Во вложениях система уравнений, метод решения (на другом примере) и сама программа.

P.S.: Разрешающие элементы я брал по порядку по главной диагонали, т.е. сначала a11, затем a22 и т.д.

Вот ещё ссылка по методу решения: http://liloisproj.narod.ru/nullt.htm

[puporev]

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

[Axel1981]

puporev, огромное Вам спасибо за помощь.