Форум программистов, компьютерный форум, киберфорум
Maks
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  

Простейший калькулятор - вариант №1

Запись от Maks размещена 09.11.2024 в 18:06. Обновил(-а) Maks 24.03.2026 в 22:24
Показов 1601 Комментарии 0

Калькулятор в конфигурации БСП.
1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
// Сложение
&НаКлиенте
Процедура Сложить(Команда)
    Число3=Число1+Число2;
КонецПроцедуры
 
// Вычетание 
&НаКлиенте
Процедура Вычесть(Команда)
    Число3=Число1-Число2;
КонецПроцедуры
 
// Умножение
&НаКлиенте
Процедура Умножить(Команда)
    Число3=Число1*Число2;
КонецПроцедуры
 
// Деление 
&НаКлиенте
Процедура Разделить(Команда)   
    Если НЕ Число2=0 Тогда
        Число3=Число1/Число2;  
    Иначе 
        Сообщить ( "На ноль делить нельзя")
    КонецЕсли;
КонецПроцедуры
 
// Возведение в квадрат
&НаСервереБезКонтекста
Функция КвадратЧислаНаСервере(Число1,Число2)
    Если НЕ Число2 Тогда
        Результат=Число1*Число1;
    Иначе
        Результат=Число2*Число2;
    КонецЕсли;
    Возврат Результат;
КонецФункции
 
&НаКлиенте
Процедура КвадратЧисла(Команда)
    Число3=КвадратЧислаНаСервере(Число1,Число2);
КонецПроцедуры
 
// Квадратный корень
&НаСервереБезКонтекста
Функция КвадратныйКореньНаСервере(Число1,Число2)
    Если НЕ Число2 Тогда
        Результат=Sqrt(Число1);
    Иначе 
        Результат=Sqrt(Число2);
    КонецЕсли;
    Возврат Результат;
КонецФункции
 
&НаКлиенте
Процедура КвадратныйКорень(Команда)
    Число3=КвадратныйКореньНаСервере(Число1,Число2);
КонецПроцедуры
Нажмите на изображение для увеличения
Название: Снимок.JPG
Просмотров: 270
Размер:	65.3 Кб
ID:	9033
Размещено в
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 0
Комментарии
 
Новые блоги и статьи
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[
anaschu 01.06.2026
Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .
21 мат мед. Планы на развитие модели здравоСохранения
anaschu 01.06.2026
AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .
20. Мат мед. Абсентеизм как отдельный тип простоя
anaschu 29.05.2026
Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип
anaschu 28.05.2026
Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта
Eddy_Em 28.05.2026
Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .
Рефакторинг программы уравнивания.
Massaraksh7 26.05.2026
Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений.
Massaraksh7 25.05.2026
Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .
Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает
anaschu 24.05.2026
Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru