Функция вычисления сопротивления ( С++)

[Юля_]

Добрый день! Работа на тему "Расчет сопротивления резисторов электрической цепи".
для последовательных резисторов: R=R1+R2+Rn;
для параллельно соединенных проводников: 1/R=1/R1+1/R2+1/Rn.
По сути, задача 6 класса, НО в самой функции сложения сопротивления, иногда вылетает ошибка:
"Необработанное исключение типа "System.Runtime.InteropServices.SEH Exception" произошло в Курсовая Юля.exe

Дополнительные сведения: Внешний компонент создал исключение."
Она вылетает, только если создаешь цепь и резисторы в ней соединяешь параллельно, затем последовательно и снова параллельно. или просто используешь 2 раза подряд параллельное соединение. указывает на строку: r=new float[n];
в остальных случаях все ок!
в чем может быть ошибка? Почему ему не нравитсЯ такое выделение памяти?

private: System::Void Calc(float *a){
	 R=0; //переменная результата вычисления сопротивления
	float Rn=0; //Переменная-накопитель промежуточных результатов 
	 int i1=0,kol1=0,i2=0;
	 n=0; //Переменная количества разветвлений на участке цепи
	 for(int i=0;i<kol;i++)
	 if(a[i]>0)R+=a[i];  //к подсчитанному сопротивленю добавляем положительные элементы массива
	else{ //если элемент отрицательный начинается обработка элементов, описывающих параллельное соединение

	 for(i1=i+1;a[i1]>-20;i1++) //(a[i+1];a[i]=-20) – диапазон элементов параллельного соединения
	if(a[i1]==-1){n++;kol1++;} //a[i1]=-1 –переход на следующ. лиию
	 else kol1++;

            float *r;
	 kol1++;
	 n++;
	 r=new float[n]; //создаем массив, каждый элемент которого – сумма сопротивлений одной линии
	 for(i1=0;i1<n;i1++)r[i1]=0;
	 for(i1=i+1;a[i1]>-20;i1++) //цикл подсчета значений элементов массива *r
	 { 
	if(a[i1]!=-1)
	r[i2]+=a[i1];
	else i2++;
	 }
	 for(i2=0;i2<n;i2++)Rn+=1/r[i2]; //промежуточный подсчет
	 R+=1/Rn; //прибавление к ранее подсчитанному сопротивлению величины сопротивления участка параллельного соединения
	 i+=kol1; //в дальнейшем просмотре результирующего массива пропускаем элементы, сопротивление которых только что посчитано
	 n=0;
	 kol1=0;
	 i1=0;
	 i2=0;
	 Rn=0;

	delete r;

[onewho]

На какой строке хоть выбивает ?

[Сtrl]

Деление на ноль, может?

[Юля_]

r=new float[n];

[Юля_]

Деление на ноль...? чисто теоритически такое могло получиться, но он выкидывает именно на строке r=new float[n]; до основной формулы там еще далеко