Калькулятор

echs · Регистрация: 23.10.2013

Студворк — интернет-сервис помощи студентам

Нашел в интернете программу "калькулятор"
проверил - работает. Подумал - может кого заинтересует?
Эту программу можно также модифицировать и усовершенствовать.

QBasic/QuickBASIC
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
64
65
66
67
68
69
70
71
REM Calc
calculator:
CLS : COLOR 10: LOCATE 10, 30: PRINT "Calculator": COLOR 15
LOCATE 12, 30: PRINT "ђҐ¦Ё¬:"
LOCATE 13, 30: PRINT "1. ЋЎлз*л©"
LOCATE 14, 30: PRINT "2. „®Ї®«*ЁвҐ«м*лҐ ў®§¬®¦*®бвЁ"
LOCATE 15, 30: PRINT "3. ‚ле®¤ ў ¬Ґ*о"
COLOR 9: LOCATE 17, 30: INPUT "‚*и ўлЎ®а? ", calculator%
IF calculator% = 1 THEN GOTO calcul1
IF calculator% = 2 THEN GOTO calcul2
IF calculator% = 3 THEN END
IF calculator% < 1 OR calculator% > 3 THEN LOCATE 18, 30: PRINT "‚л ®иЁЎ«Ёбм!"
SLEEP 1: GOTO calculator
calcul1:
CLS : COLOR 10: LOCATE 10, 30: PRINT "Calculator": COLOR 15
LOCATE 11, 30: PRINT "ђҐ¦Ё¬: ЋЎлз*л©"
LOCATE 13, 30: INPUT "‚ўҐ¤ЁвҐ ЇҐаў®Ґ зЁб«®: ", num1&
LOCATE 14, 30: INPUT "‚ўҐ¤ЁвҐ ўв®а®Ґ зЁб«®: ", num2&
er:
CLS : COLOR 10: LOCATE 10, 30: PRINT "Calculator": COLOR 15
LOCATE 11, 30: PRINT "ђҐ¦Ё¬: ЋЎлз*л©"
LOCATE 12, 30: PRINT "ЏҐаў®Ґ зЁб«® ="; num1&
LOCATE 13, 30: PRINT "‚в®а®Ґ зЁб«® ="; num2&
LOCATE 15, 30: PRINT "„Ґ©бвўЁҐ:"
LOCATE 16, 30: PRINT "1. ‘«®¦Ґ*ЁҐ"
LOCATE 17, 30: PRINT "2. ‚лзЁв**ЁҐ"
LOCATE 18, 30: PRINT "3. “¬*®¦Ґ*ЁҐ"
LOCATE 19, 30: PRINT "4. „Ґ«Ґ*ЁҐ"
LOCATE 20, 30: PRINT "5. ‚®§ўҐ¤Ґ*ЁҐ ў бвҐЇҐ*м"
LOCATE 21, 30: PRINT "6. ‘Ўа®б"
COLOR 9: LOCATE 23, 30: INPUT "‚*и ўлЎ®а? ", a%
IF a% < 1 OR a% > 6 THEN LOCATE 24, 30: PRINT "‚л ®иЁЎ«Ёбм!": SLEEP 1: GOTO er
CLS : COLOR 15: LOCATE 10, 30
IF a% = 1 THEN PRINT "ЋвўҐв: "; num1& + num2&
IF a% = 2 THEN PRINT "ЋвўҐв: "; num1& - num2&
IF a% = 3 THEN PRINT "ЋвўҐв: "; num1& * num2&
IF a% = 4 THEN PRINT "ЋвўҐв: "; num1& / num2&
IF a% = 5 THEN PRINT "ЋвўҐв: "; num1& ^ num2&
IF a% = 6 THEN GOTO calculator
COLOR 9: LOCATE 12, 20: PRINT "Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг ¤«п Їа®¤®«¦Ґ*Ёп..."
WHILE INKEY$ = "": WEND
GOTO calculator
calcul2:
CLS : COLOR 10: LOCATE 10, 30: PRINT "Calculator": COLOR 15
LOCATE 11, 30: PRINT "ђҐ¦Ё¬: „®Ї®«*ЁвҐ«м*лҐ ў®§¬®¦*®бвЁ"
LOCATE 13, 30: INPUT "‚ўҐ¤ЁвҐ зЁб«®: ", num3&
er2:
CLS : COLOR 10: LOCATE 10, 30: PRINT "Calculator": COLOR 15
LOCATE 11, 30: PRINT "ђҐ¦Ё¬: „®Ї®«*ЁвҐ«м*лҐ ў®§¬®¦*®бвЁ"
LOCATE 12, 30: PRINT "—Ёб«® ="; num3&
LOCATE 14, 30: PRINT "„Ґ©бвўЁҐ:"
LOCATE 15, 30: PRINT "1. Љ®аҐ*м Єў*¤а*в*л©"
LOCATE 16, 30: PRINT "2. ‘Ё*гб"
LOCATE 17, 30: PRINT "3. Љ®бЁ*гб"
LOCATE 18, 30: PRINT "4. ’**ЈҐ*б"
LOCATE 19, 30: PRINT "5. ЂаЄв**ЈҐ*б (ў а*¤Ё***е)"
LOCATE 20, 30: PRINT "6. Ќ*вга*«м*л© «®Ј*аЁд¬"
LOCATE 21, 30: PRINT "7. ‘Ўа®б"
COLOR 9: LOCATE 23, 30: INPUT "‚*и ўлЎ®а? ", a%
IF a% < 1 OR a% > 7 THEN LOCATE 24, 30: PRINT "‚л ®иЁЎ«Ёбм!": SLEEP 1: GOTO er2
CLS : COLOR 15: LOCATE 10, 30
IF a% = 1 THEN PRINT "ЋвўҐв: "; SQR(num3&)
IF a% = 2 THEN PRINT "ЋвўҐв: "; SIN(num3&)
IF a% = 3 THEN PRINT "ЋвўҐв: "; COS(num3&)
IF a% = 4 THEN PRINT "ЋвўҐв: "; TAN(num3&)
IF a% = 5 THEN PRINT "ЋвўҐв: "; ATN(num3&)
IF a% = 6 THEN PRINT "ЋвўҐв: "; LOG(num3&)
IF a% = 7 THEN GOTO calculator
COLOR 9: LOCATE 12, 20: PRINT "Ќ*¦¬ЁвҐ «оЎго Є«*ўЁиг ¤«п Їа®¤®«¦Ґ*Ёп..."
WHILE INKEY$ = "": WEND
GOTO calculator

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .