і лінії (abs (funkcia (post)-funkcia (x2) ) <0.001) g-> DrawLine (pen, postX1 + sdvigX, sdvigY +40, postX1 + sdvigX, postY + sdvigY +40) ;//щоб будувало останню вертикальну лінію навіть у тому випадку якщо інтервал не можна поділити на рівні частини (x2-post <0.0001) будував останню горизонтальну лінію ((abs (funkcia (post)-funkcia (x2)) <0.001) && (x2-post <0.000001)) g-> DrawLine (pen, xx + sdvigX, yy + sdvigY + 40, xx + sdvigX, postY-((postY-yy)/2) + sdvigY +40) ;//щоб домалював предпосл вертикальну лінію (abs (yy) 0 & ; & postY> 0) | | (yy <0 && postY <0)) && postX1 <= x2 * delX) домальовую вертикальні лінії
}// обчислення інтеграла (abs (yy)> abs (postY) && ((yy> 0 && postY> 0) | | (yy <0 && postY < ; 0)) && postX1 <= x2 * delX) + SdvigY +40, postX1 + sdvigX, postY + sdvigY +40) ;//домальовую вертикальні лінії
}// обчислення інтеграла (x2-post <0.0001) домальовував останню вертикальну лінію
}
} (radioButton2-> Checked == true) {(tochnost <1)
{S = Convert :: ToInt64 (S/tochnost); кількості інтервалів розбиття
}
{MessageBox :: Show ("Не обрано метод рішення");}
}
} MessageBox :: Show ("Перевірте введені межі інтегрування"); (x1 == x2) {MessageBox :: Show ("Інтеграл = 0, даний випадок візуалізації не підлягає!") ; label4-> Text = "0";}> ~ Brush ();> ~ Pen ();> ~ Graphics (); -> Invalidate ();
}: System :: Void Form1_Load (System :: Object ^ sender, System :: EventArgs ^ e) {
}: System :: Void button2_Click (System :: Object ^ sender, System :: EventArgs ^ e) {^ f = gcnew dopforma ();> Hide ();> ShowDialog () ;> Show ();
}: System :: Void radioButton1_CheckedChanged (System :: Object ^ sender, System :: EventArgs ^ e) {-> Enabled = false; -> Enabled = true;
}: System :: Void radioButton2_CheckedChanged (System :: Object ^ sender, System :: EventArgs ^ e) {//другу форму створюю-> Enabled = false; -> Enabled = true;
}
};
}
