|
|||||
|
версия 210319 для винды скачать (если на 10 версии будет вылетать при вызове диалоговых окон, попробуйте запускать в режиме совместимости с 8 версией или ниже )
// а=1; б=-5; ц=9; // ответ: решений нет
// а=1; б=-4; ц=4; // ответ: х=2
// а=1; б=3; ц=-4; // ответ: х1=-4, х2=1,
а=3; б=8; ц=-11; // ответ: х1=-11/3 (3.(6)) , х2=1,
сообщить("");
сообщить("***********************************************************");
сообщить(" РЕШАЕМ КВАДРАТНОЕ УРАВНЕНИЕ ");
сообщить("***********************************************************");
сообщить("а="+строка(а));
сообщить("б="+строка(б));
сообщить("ц="+строка(ц));
сообщить("***********************************************************");
сообщить("РЕШЕНИЕ:");
дискриминант= б*б - 4*а*ц;
если дискриминант<0 тогда
сообщить("Дискриминант меньше 0. Уравнение не имеет решений.");
иначеЕсли дискриминант=0 тогда
корень= - б / (2*а);
сообщить("Дискриминант равен 0. корень="+строка(корень));
иначе
корень1= (- б + кореньКвадратный(дискриминант) ) / (2*а);
корень2= (- б - кореньКвадратный(дискриминант) ) / (2*а);
сообщить("Дискриминант равен "+строка(дискриминант));
сообщить("корень1="+строка(корень1));
сообщить("корень2="+строка(корень2));
конецЕсли;
сообщить("Уравнение решено");
сообщить("");
строка1=строкаИзФайла("localInterpretatorUTF8.json");
list=parseJson( строка1 ) ;
list.show();
formOpen("forms\kkmMerc.xml")
formEdit("forms\kkmMerc.xml")