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

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

Запись от Maks размещена 10.11.2024 в 00:12
Показов 1158 Комментарии 2

В отличие от предыдущего варианта убрал функции, оставив выполнение на клиенте. Добавлены дополнительные функциональные кнопки.

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
60
61
62
63
&НаКлиенте
Процедура Сложить(Команда)
    Число3=Число1+Число2;
КонецПроцедуры
 
&НаКлиенте
Процедура Вычесть(Команда)
    Число3=Число1-Число2;
КонецПроцедуры
 
&НаКлиенте
Процедура Умножить(Команда)
    Число3=Число1*Число2;
КонецПроцедуры
 
&НаКлиенте
Процедура Разделить(Команда)   
    Если НЕ Число2=0 Тогда
        Число3=Число1/Число2;  
    Иначе 
        Сообщить ("На ноль делить нельзя")
    КонецЕсли;
КонецПроцедуры
 
&НаКлиенте
Процедура КвадратЧисла(Команда)
    Если НЕ Число2 Тогда
        Число3=Число1*Число1;
    Иначе
        Число3=Число2*Число2;
    КонецЕсли;
КонецПроцедуры
 
&НаКлиенте
Процедура КвадратныйКорень(Команда)
    Если НЕ Число2 Тогда
        Число3=Sqrt(Число1);
    Иначе 
        Число3=Sqrt(Число2);
    КонецЕсли;
КонецПроцедуры
 
&НаКлиенте
Процедура ОчиститьПоля(Команда)
    Число1=0;
    Число2=0;
    Число3=0;
КонецПроцедуры
 
&НаКлиенте
Процедура Проценты(Команда)
    Результат=Число1/100*Число2;
    Число3=Число1-Результат;
КонецПроцедуры
 
&НаКлиенте
Процедура ПлюсМинус(Команда)
    Если НЕ Число2 Тогда
        Число1=Число1*-1;
    Иначе
        Число2=Число2*-1;
    КонецЕсли;;
КонецПроцедуры
Нажмите на изображение для увеличения
Название: Снимок.JPG
Просмотров: 220
Размер:	76.6 Кб
ID:	9035

Нажмите на изображение для увеличения
Название: Снимок2.JPG
Просмотров: 183
Размер:	14.7 Кб
ID:	9036
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 2
Комментарии
  1. Старый комментарий
    Аватар для Аватар
    решений дифуров не хватает )
    Запись от Аватар размещена 11.11.2024 в 13:45 Аватар вне форума
  2. Старый комментарий
    Аватар для Maks
    Цитата Сообщение от Аватар
    решений дифуров не хватает )
    Всему свое время
    Запись от Maks размещена 12.11.2024 в 20:21 Maks вне форума
 
Новые блоги и статьи
Dev-c++5.11 Покорение вершины
russiannick 02.06.2025
С утра преследовала одна мысль - вот бы выучить С++. Сказано-сделано. Окончив смену, скачал в интернете бестселлер Дэвиса Dev-C++ для чайников. Книга оказалась интересной и я скачал среду, на примере. . .
Тестирование Pull Request в Kubernetes с GitHub Actions и GKE
Mr. Docker 02.06.2025
Мы все знаем, что тестирование на локальной машине или в изолированном CI-окружении — это не совсем то же самое, что тестирование в реальном кластере Kubernetes. Контекстно-зависимые ошибки, проблемы. . .
Оптимизация CMake для ускорения сборки
bytestream 02.06.2025
Вы когда-нибудь ловили себя на мысле, что пока ваш проект компилируется, можно успеть сварить кофе, прочитать главу книги или даже сбегать в соседний офис? Если да, то добро пожаловать в клуб. . .
JS String.prototype.localeCo­mpare()
mr_dramm 02.06.2025
скопировано из этой темы чтобы не потерялось. localeCompare без указания локали для сравнения строк под капотом использует Intl. Collator , который работает согласно Unicode Collation Algorithm. . .
Облако проектов
russiannick 01.06.2025
Слава Джа, написал прогу для компиляции. Значит написал компилятор? Обьем кода 300+ строк. Язык-яву. Вводим данные, заполняем поля, тычем радиобаттоны. И по итогу в поле результат получам листинг. . .
Rust и квантовые вычисления: интеграция с Q# и Qiskit
golander 01.06.2025
Мир квантовых вычислений традиционно оставался закрытым клубом для высокоуровневых языков типа Python и специализированных DSL вроде Q#. Однако в последние годы Rust начал тихую революцию в этой. . .
Кэш REDIS и C#
UnmanagedCoder 01.06.2025
Redis (Remote Dictionary Server) - это ультраскоростное хранилище данных в оперативной памяти, работающее по принципу "ключ-значение". Суть проста: данные хранятся не на диске, а прямо в RAM, что. . .
Lenovo IH110CX Rev: 1.0 motherboard manual
Maks 01.06.2025
Размещения без повторений
VistaSV30 31.05.2025
Код возвращает список вариантов размещений A^{k}_{n}=\frac{n!}{(n-k)!} from itertools import permutations def pwr(k, n): # Размещение без повторений (Placement without repetition) if k. . .
Redis и Node.js с TypeScript - решения для высоконагруженных систем
Reangularity 31.05.2025
Redis (Remote Dictionary Server) — сверхбыстрое хранилище данных в памяти, способное обрабатывать операции за микросекунды. И что особенно важно для нас — с удивительно простым API. А теперь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
OSZAR »