Компания РитмИнформ
г.Астрахань

расходные материалы
flash-накопители
комплектующие
диски
бумага
канцтовары
автоматизация
учета
* * * * * В меню (слева) появился пункт price.xls * * * * * Минимальная сумма сделки для получения цены min составляет 8000 рублей После превышения куром отметки 80 рублей за доллар минимальная сумма сделки будет увелиена до 9000 рублей. * * * * *
Наше кредо

Price

Оптом-дешевле

Адреса

Вакансии

Статьи

Немного юмора...


Кубок
РитмИнформ
Шахматы



Язык Санда




price.xls




Top.Mail.Ru

Санда. Консоль нетекстовая (exampleConsole.exe) и MDI (MainMdi210107.exe) 


Описание языка Санда

версия 210426 для винды скачать (если на 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));
    конецЕсли;
    
    сообщить("Уравнение решено");
    сообщить("");
    

    Он находится в папке prgTest под именем пример_квадратноеУравнение_простоеРешение.prg.


  • Иногда бывает необходимо посмотреть содержимое файла в формате JSON. Постой вариант - воспользоваться нашим итерпретатором. Качаешь, распаковываешь и смотришь в каталоге примеров программу testJson.prg (в каталоге prg). Для справки после запуска интерпретатора модно ввести команду MANU или нажать Alt+F1. А можно просто ввести в окно интерпретатора 3 строки:


    	строка1=строкаИзФайла("localInterpretatorUTF8.json");
    	list=parseJson( строка1 ) ;
    	list.show();
    

  • Для пользователей ККМ Меркурий и службы INECRMAN будет интересно посмотреть форму kkmMerc.xml и модуль unit_KKM_Merc.prg. В консоли интерпретатора запустить форму на исполнение можно будет командой


    formOpen("forms\kkmMerc.xml")


    А посмотреть на "начинку" можно будет командой


    formEdit("forms\kkmMerc.xml") 


  • Ну и, естественно, мы начали готовить MDI-интерфейс. Иногда он удобнее консоли. Пока там работает только открытие форм в режиме исполнения и в режиме редактирования. Файл MainMdi210107.exe






НАПИСАТЬ ПИСЬМО
ritminform@bk.ru
www.ritminform.ru www.ritminform.org www.ritminform.pochta.ru www.ritminform.narod.ru Copyright © 2009 Владимир Соколов