Вторник, 21.05.2019, 18:17
Приветствую Вас Гость | RSS

Анти лотерейный математичесий сайт и всё БЕСПЛАТНО

Anti Lottery math site all FREE anti casino против казино

Карта мира Конкурс ставок IntelBet мой ВКонтакте КеноКено КЕНО ЮТЮБ KENO mini YOUTUBE Яндекс.Метрика Гость,

карта статистики посетителей & конкурсы бесплатных прогнозов конкурсы бесплатные & ВКонтакте & Математический Блог & КеноКено & КЕНО ЮТЮБ KENO mini YOUTUBE

НЕТ рекламы НЕТ партнёрских НЕТ рефералов NO advertising NO partners NO referrals pas de publicite pas de partenaires pas de references ешқандай жарнама ешқандай серіктестер жоқ реферал

IQ бесплатно КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE КЕНО ЮТЮБ KENO mini YOUTUBE

CITIZENS of USA and EU to me DONATE please: almost $ 0.8 WMZ = € 0.7 WME =
= pressed picture DONATE above or WMZ Z636495154357 WME E123268917690

BÜRGERS der USA und der EU zu mir SCHENKEN bitte: Der WMZ von fast 0.8 $ = der WME von 0.7 € =
= hat den picture SCHENKEN oben gedrückt oder WMZ Z636495154357 WME E123268917690

les CITOYENS des Etats-Unis et d'UE à moi DONNENT s'il vous plaît : WMZ de presque 0.8$ = WME de 0.7€ =
= a appuyé sur picture DONNENT au-dessus ou WME E123268917690 WMZ Z636495154357

время застолбить за собой новое слово интиграаль
интИГРАаль = интеграл + игра + грааль = ИНТиграАЛЬ

time to stake a new word
temps de jeu un nouveau mot
Zeit um dem Spiel ein neues Wort

intigraal
intIGRAal = integral + igra + graal = INTigraAL

никогда никому ничего не рекомендую и всегда пишу только про себя

i never recommend anything to anyone and always write only about myself

je ne recommande jamais rien à personne et n'écris toujours que sur moi-même

ich empfehle niemandem etwas und schreibe immer nur über mich

мен ешқашан ешкімге ештеңе ұсынбаймын және үнемі өзім туралы жазамын

ніколі нікому нічога не рэкамендую і заўсёды пішу толькі пра сябе

ніколи нікому нічого не рекомендую і завжди пишу тільки про себе

mi neniam rekomendas ion al iu ajn kaj ĉiam skribas nur pri mi

Главная | Регистрация | Вход

Главная » Файлы » Мои файлы

ВСЕОБУЧ Компьютер Интернет Ютюб lisp и Учим C# qbasic Excel
[ Скачать с сервера (3.31 Mb) ] 05.07.2014, 14:14

ВСЕОБУЧ на Компьютерах ССЫЛКИ скачки из ЮТЮБ

КНИГИ детям и взрослым о детях
242 Мб БЕСПЛАТНО

https://yadi.sk/d/OfMlaKYw3TBZ4q

возможно смотреть внутри архива
и скачивать отдельные книги
и текстовые книги pdf переведены ещё в txt

КНИГИ детям и взрослым о детях
242 Мб БЕСПЛАТНО

https://yadi.sk/d/OfMlaKYw3TBZ4q

КНИГИ детям и взрослым о детях

 

СКАЧИВАЙТЕ АРХИВ И ВИДЕО

Обучение EXCEL минут 12 minutes EXCEL Learning https://SSyoutube.com/watch?v=NMaBysomvv4

 

Генератор номеров КЕНО НЕ для ставок
а для проверки реальности повтора номеров и десятков НЕсовпадений подряд
результаты пишет в файл в том же каталоге

алгоритм: выбирается случайный номер и даётся случайное приращение
с контролем повторов и нахождения внутри диапазона

и вновь забавно: я придумал в школе в прошлом веке ещё при старом режиме
и в новом веке обнаружил тоже то же иностранное с точностью до названия
я называл алгоритм ВЬЮГА и другие назвали BLIZZARD

скопируйте программу и вставьте в блокнот и
сохраните с любым именем например
KENOKENOucozRU.bas
важнее всего *.bas для qbasic

НАЧАЛО программы qb64 KENOKENOucozRU.bas

 

DIM a(78, 22): CLS
RANDOMIZE TIMER
OPEN "KENO_dav.txt" FOR OUTPUT AS #1
OPEN "KENO_excel.txt" FOR OUTPUT AS #2

FOR s = 1 TO 78: REM tiragey
    a(s,1) = INT(RND*80)+1: REM 1-y sluch

    22 FOR j = 2 TO 21: REM dlya 20 nomerov
        shag = INT(RND*80)+1: REM plus shag
        a(s,j) = a(s,j-1)+shag: REM zavisit
        IF a(s,j) > 80 THEN a(s,j) = a(s,j)-80: REM uchet 80
    NEXT

    FOR m = 1 TO 19
        FOR n = m+1 TO 20
            IF a(s,m) = a(s,n) THEN GOTO 22
            IF INKEY$ = " " THEN STOP
    NEXT: NEXT

NEXT

FOR v = 1 TO 78
    FOR w = 1 TO 20
        FOR m = w+1 TO 20
            IF a(v,w) > a(v,m) THEN t = a(v,w): a(v,w) = a(v,m): a(v,m) = t
NEXT: NEXT: NEXT


FOR v = 1 TO 78
PRINT #1, v; CHR$(9);
    FOR w = 1 TO 19
        PRINT #1, a(v,w); CHR$(9);
NEXT: PRINT #1, a(v,20): NEXT

FOR v = 1 TO 20
    FOR w = 1 TO 78
        PRINT #2, a(w,v); CHR$(9);
NEXT: PRINT #2,: NEXT

 

 

КОНЕЦ программы qb64 KENOKENOucozRU.bas

 

программа синтезирует KENO_dav.txt пригодный для вставки в
excel в столбцы A...T

? а где же сортировка по величине ?
элементарщина: в ячейках АА1... AT1 расположить номера 1...20

в ячейке АА2
=НАИМЕНЬШИЙ($A2:$T2;AA$1)

и расширяем область вправо и вниз
и лично у меня всё получилось

НАЧАЛО другого синтезатора НЕважного

Генератор номеров 6из45 НЕ для ставок

DIM a(78, 7): CLS
RANDOMIZE TIMER
OPEN "6_45_dav.txt" FOR OUTPUT AS #1

FOR s = 1 TO 78: REM tiagey
a(s, 1) = INT(RND * 45) + 1: REM 1-y sluch

22 FOR j = 2 TO 6: REM dlya 6 nomerov
shag = INT(RND * 45) + 1: REM plus shag
a(s, j) = a(s, j - 1) + shag: REM zavisit
IF a(s, j) > 45 THEN a(s, j) = a(s, j) - 45: REM uchet 45
NEXT

FOR m = 1 TO 5
FOR n = m + 1 TO 6
IF a(s, m) = a(s, n) THEN GOTO 22
IF INKEY$ = " " THEN STOP
NEXT: NEXT

NEXT

FOR v = 1 TO 78
FOR w = 1 TO 6
PRINT #1, a(v, w); CHR$(9);
NEXT: PRINT #1, : NEXT

КОНЕЦ другого синтезатора НЕважного

 

ССЫЛКИ для скачивания ОБУЧЕНИЯ

1 http://ssyoutube.com/watch?v=_дaIIO2ivqII
2 http://ssyoutube.com/watch?v=_C94YxZQKlw
3 http://ssyoutube.com/watch?v=_kZzKnpnvQU
4 http://ssyoutube.com/watch?v=_rV_Zsl60GA
5 http://ssyoutube.com/watch?v=_S_yjOiJN5A

6 http://ssyoutube.com/watch?v=_Sbs9OAoW1U
7 http://ssyoutube.com/watch?v=_ym8Uh3cXD8
8 http://ssyoutube.com/watch?v=1hsiZ8b5y3Y
9 http://ssyoutube.com/watch?v=1VT5XYUJLq0
10 http://ssyoutube.com/watch?v=2mSmVjLXoyk

11 http://ssyoutube.com/watch?v=4_H3Ni0ApOQ
12 http://ssyoutube.com/watch?v=4DsrbOz06mY
13 http://ssyoutube.com/watch?v=4qv_5euXeGo
14 http://ssyoutube.com/watch?v=4RN_CVMCNAE
15 http://ssyoutube.com/watch?v=5koci_nDJLg

16 http://ssyoutube.com/watch?v=5lrkC7H1AM4
17 http://ssyoutube.com/watch?v=5MblXMKtGCY
18 http://ssyoutube.com/watch?v=5uW_RTvyf6w
19 http://ssyoutube.com/watch?v=5WuDpVcL_sQ
20 http://ssyoutube.com/watch?v=6JUD5Pge9mk

21 http://ssyoutube.com/watch?v=7G_ZyWhnndk
22 http://ssyoutube.com/watch?v=7iZ3XyKIjvM
23 http://ssyoutube.com/watch?v=7SEEnHJKRU8
24 http://ssyoutube.com/watch?v=-7YPuljMcKM
25 http://ssyoutube.com/watch?v=8_KFx8k4L68

26 http://ssyoutube.com/watch?v=8f1n8YoMK3U
27 http://ssyoutube.com/watch?v=8v9J-gL_IrI
28 http://ssyoutube.com/watch?v=9DEay5RtJAA
29 http://ssyoutube.com/watch?v=9hH9yYRp0qQ
30 http://ssyoutube.com/watch?v=9VVyLSFrks8

31 http://ssyoutube.com/watch?v=a7TBu4DIjL4
32 http://ssyoutube.com/watch?v=boHT4eswwvQ
33 http://ssyoutube.com/watch?v=BpwajpzJQzQ
34 http://ssyoutube.com/watch?v=Byj7a65o09c
35 http://ssyoutube.com/watch?v=DD-2PSxYv0c

36 http://ssyoutube.com/watch?v=DKd4WexinSM
37 http://ssyoutube.com/watch?v=E5A3j1GfVLU
38 http://ssyoutube.com/watch?v=EI7nsfMBmXE
39 http://ssyoutube.com/watch?v=eWgrqHycrGQ
40 http://ssyoutube.com/watch?v=F0pVbDRAj9M

41 http://ssyoutube.com/watch?v=f3MdMqnt3pE
42 http://ssyoutube.com/watch?v=f9Mszs3JlBE
43 http://ssyoutube.com/watch?v=FJrP2CMGGrc
44 http://ssyoutube.com/watch?v=FpNxhpe8kIc
45 http://ssyoutube.com/watch?v=Ftzf469TN8w

46 http://ssyoutube.com/watch?v=fycmCyjatvY
47 http://ssyoutube.com/watch?v=g0VkiqDO9dI
48 http://ssyoutube.com/watch?v=gFXw1wHx-Bg
49 http://ssyoutube.com/watch?v=GMdvO4aW_-g
50 http://ssyoutube.com/watch?v=GPBVUomnUy8

51 http://ssyoutube.com/watch?v=h08XX_8wLdY
52 http://ssyoutube.com/watch?v=HNyZi08QHbE
53 http://ssyoutube.com/watch?v=imeuCacydzM
54 http://ssyoutube.com/watch?v=IqGFYe3_scA
55 http://ssyoutube.com/watch?v=ix8_z9Or_XU

56 http://ssyoutube.com/watch?v=JLfVajoqfyI
57 http://ssyoutube.com/watch?v=karw5O5gezY
58 http://ssyoutube.com/watch?v=kukyNCIs2To
59 http://ssyoutube.com/watch?v=lc-U3gdbgAY
60 http://ssyoutube.com/watch?v=Llmirpz2k-8

61 http://ssyoutube.com/watch?v=m660-GKtDyU
62 http://ssyoutube.com/watch?v=me7wrgrhCfk
63 http://ssyoutube.com/watch?v=MIyB2JRV0uY
64 http://ssyoutube.com/watch?v=m-mmE5_3pEg
65 http://ssyoutube.com/watch?v=mmP352gJ4JA

66 http://ssyoutube.com/watch?v=mrb2n7ld70U
67 http://ssyoutube.com/watch?v=mVQ8ESozBdY
68 http://ssyoutube.com/watch?v=na9VJpb_n_A
69 http://ssyoutube.com/watch?v=NFOUFWN8lEk
70 http://ssyoutube.com/watch?v=NigL7JXtM0s

71 http://ssyoutube.com/watch?v=Nq_9jfy7c-k
72 http://ssyoutube.com/watch?v=NrCrz-03FYc
73 http://ssyoutube.com/watch?v=oKyXa8uoAs4
74 http://ssyoutube.com/watch?v=OQjo-0xK2Qc
75 http://ssyoutube.com/watch?v=P3q_JHAh5p0

76 http://ssyoutube.com/watch?v=Pc_6LZGrcDo
77 http://ssyoutube.com/watch?v=pn18WwSqpNo
78 http://ssyoutube.com/watch?v=poY_1mtZQfQ
79 http://ssyoutube.com/watch?v=pZ7Es_Uxo0U
80 http://ssyoutube.com/watch?v=qAHNdkKUPcg

81 http://ssyoutube.com/watch?v=qaWmAjC9Alo
82 http://ssyoutube.com/watch?v=Qji33F0lmb8
83 http://ssyoutube.com/watch?v=r01LBDPzDwA
84 http://ssyoutube.com/watch?v=R1_u0ojkPoc
85 http://ssyoutube.com/watch?v=R72efsuEQSY

86 http://ssyoutube.com/watch?v=r-qtf_9iJyc
87 http://ssyoutube.com/watch?v=rR9QmGTUNi8
88 http://ssyoutube.com/watch?v=Rzd6pb8WCyc
89 http://ssyoutube.com/watch?v=s0t57CEa7UQ
90 http://ssyoutube.com/watch?v=Sudwso6llto

91 http://ssyoutube.com/watch?v=SyuRaNHeX90
92 http://ssyoutube.com/watch?v=T3UJflAJEQ0
93 http://ssyoutube.com/watch?v=TlBjad66q1E
94 http://ssyoutube.com/watch?v=TmEPx01O2lE
95 http://ssyoutube.com/watch?v=T-oQou5VnwU

96 http://ssyoutube.com/watch?v=veYTPiDpV84
97 http://ssyoutube.com/watch?v=VrWygQoOLqw
98 http://ssyoutube.com/watch?v=VTEFkJnq5A0
99 http://ssyoutube.com/watch?v=w51694H0IJE
100 http://ssyoutube.com/watch?v=Wm8mOEM0oEE

101 http://ssyoutube.com/watch?v=wUkMw2wl4zc
102 http://ssyoutube.com/watch?v=XABWVSe0W2M
103 http://ssyoutube.com/watch?v=xg1fZPYmTho
104 http://ssyoutube.com/watch?v=XLNEQhftk1k
105 http://ssyoutube.com/watch?v=XTeXgzV6BPY

106 http://ssyoutube.com/watch?v=xyJBBWT0TbA
107 http://ssyoutube.com/watch?v=Y7hjmU5y26o
108 http://ssyoutube.com/watch?v=YBASZVZ2Ni4
109 http://ssyoutube.com/watch?v=ybgI0XYFyEs
110 http://ssyoutube.com/watch?v=ydC1lskSvKU

111 http://ssyoutube.com/watch?v=z0BiD-sAtRI
112 http://ssyoutube.com/watch?v=ZKFehP3NHb0

Учу EXCEL за 6 минут

 

entlen.lsp = длины

использую для подсчёта длин
особенно обосабливая по слоям
и реально подсчитывать раздельно разные диаметры

а также применяется в подсчёте всех площадей помещений
ориентируясь на периметр помещения и высоту стен

entlen.lsp = длины

;======================================================================
;entLen_moss.lsp — Подсчёт суммы длин выбранных примитивов
;Моя корректировка программы entLen взятой по URL'у:
;http://www.autocad.ru/cgi-bin/f1/board.cgi?t=21732rf
;======================================================================
 
(vl-load-com)
(defun C:ENTLEN (/
                  NABOR                ;Набор примитивов
                  i                    ;Счётчик
                  ENT_i                ;i-й примитив из набора NABOR
                  LEN_all              ;Суммарная длина примитивов
                  LEN_i                ;Длина i-го примитива
                )
 
 
  (princ "\nПодсчёт суммы длин выбранных примитивов. ")
  (princ "\nВыберите примитивы: ")
 
  ;--------------------------------------------------------------------
  ;Выбор примитивов [выбираем нужные, отфильтровываем ненужные]
  ;--------------------------------------------------------------------
  (setq NABOR (ssget
                '((-4 . "<OR")
                    (0 . "*LINE")
                    (0 . "CIRCLE")
                    (0 . "ARC")
                    (0 . "ELLIPSE")
                  (-4 . "OR>")
                 )
              );end ssget
  );end setq
 
 
  ;--------------------------------------------------------------------
  ;Сообщение о количестве выбранных примитивов
  ;--------------------------------------------------------------------
  (princ (strcat "\nВсего выбрано примитивов: " (itoa (sslength NABOR))))
  (princ "\n-------------------------")
 
  ;--------------------------------------------------------------------
  ;Установка начальных значений
  ;--------------------------------------------------------------------
  (setq i 0)
  (setq LEN_all 0.0)
 
 
  ;--------------------------------------------------------------------
  ;Цикл по набору NABOR
  ;--------------------------------------------------------------------
  (while (< i (sslength NABOR))
 
    ;..................................................................
    ;Определяем Имя i-го примитива из набора NABOR
    ;..................................................................
    (setq ENT_i (ssname NABOR i))
 
    ;..................................................................
    ;Определяем Длиу i-го примитива из набора NABOR
    ;..................................................................
    (setq LEN_i  (vlax-curve-getDistAtParam
                    (vlax-ename->vla-object ENT_i)
                    (vlax-curve-getEndParam ENT_i)
                 );end vlax-curve-getDistAtParam
    );end setq
 
    (princ (strcat "\n"(itoa (1+ i)) "-й примитив = " (rtos LEN_i) "м"))
 
    ;;;Отладка
    ;;;(redraw ENT_i 3)
    ;;;(read-line)
 
    ;..................................................................
    ;Наращиваем суммарную длину всех выбранных примитивов
    ;..................................................................
    (setq LEN_all  (+ LEN_all  LEN_i))
 
    (setq i (1+ i))
  );end while
 
  (princ "\n-------------------------")
  (princ (strcat
           "\nОбщая длина " (itoa (sslength NABOR)) " выбранных примитивов = "
           (rtos LEN_all)
           "м"
         );end  strcat
  );end princ
 
  (prin1)
);end defun C:ENTLEN
;**********************************************************************

gakson.lsp = аксонометрия

https://yandex.ru/search/?text=gakson.lsp

 

zam.lsp = массовая замена текстов
список: заменяется что на что

(defun c:zam ()
(tfind2fun "dn 200 A" "%%c200" 1)
(tfind2fun "dn 100 A" "%%c100" 1)
(tfind2fun "dn 80 A" "%%c80" 1)
(tfind2fun "dn 50 A" "%%c50" 1)
(tfind2fun "dn 32 A" "%%c32" 1)
(tfind2fun "dn 25 A" "%%c25" 1)
(tfind2fun "dn 20 A" "%%c20" 1)
(tfind2fun "dn 15 A" "%%c15" 1)
(tfind2fun "dn 10 A" "%%c20" 1)
(tfind2fun "dn 0 A" "расчет" 1)
(tfind2fun "L " "Lm " 1)
(tfind2fun ".00" "" 1)
)

 

tfind2fun.lsp = массовая замена текстов
обслуживается список zam.lsp

tfind2fun.lsp ищите в интернет
https://yandex.ru/search/?text=tfind2fun.lsp

 

Сколько раз подряд выпадали номера КЕНО

для контроля невыпадения номеров в ближайшем тираже
создаём таблицу сами используя
сайт тиражей кено например lotostat.ru/keno/arhiv-keno

видим ближайшие минувшие или любые 40 тиражей подряд
например возможна система вида чётно-нечётные тиражи

выделяем интересующие например 40 тиражей подряд
копируем в память

у меня в excel вставляется без форматирования удобно
и вставляю в A2 и выравниваю столбцы по ширине

вариант вставки: скопировать с сайта и вставить в блокнот
выделить вставленное и скопировать и вставлять в excel

выделяю все тиражи с номерами тиражей
на ленте: сортировка от максимального к минимальному
результат: новейшие тиражи выше

вводим в W1 1 и в X1 2
и выделив обе ячейки расширяем до 80 вправо до CX
и выравниваю столбцы по ширине

w2
=СЧЁТЕСЛИ($B2:$U2;W$1)
расширяем формулу направо до CX и выделенную строку вниз
видим много нулей мешающих

круглая кнопка excel - параметры - дополнительно
почти в конце: показывать нули в ячейках - выключить - ok

cz2
=ЕСЛИ(W2=1;CZ3+1;0)
расширяем до GA2 и вниз выделенную строку
и выравниваю столбцы по ширине

GC2
=ЕСЛИ(CZ2<CZ1;0;CZ2)
расширяем до JD2 и вниз выделенную строку
и выравниваю столбцы по ширине

U46
1
U47
2

расширяем обе вниз до значения 12

V45
=СЧЁТЕСЛИ($GC$2:$JD$41;U45)
W45
=100*ОКРУГЛ(V45/3200;2)
X45
%

V45 & W45 & X45 расширяем вниз

видим результаты типа того:

    2598    81 %
1    463    14 %
2    102     3 %
3     27     1 %
4      7       %
5      3       %
6              %
7              %

 

таблица проверяющая количество
совпадений подряд в 20000 испытаний

A1
=СЛУЧМЕЖДУ(0;1)
и за нижний правый угол ячейки растягиваем вниз до A20000
причём домашнее задание: подсчёт среднего значения

B1
пусто или 0 для суммы далее
B2
=ЕСЛИ(A2=0;0;B1+1)
щёлк-щёлк в нижний правый угол ячейки и растянется вниз до B20000

C1
пусто или 0 
C2
=ЕСЛИ(B2=0;B1;0)
щёлк-щёлк в нижний правый угол ячейки и растянется вниз до C20000
или возможно растягивать сразу 2 ячейки или 3 ячейки на 20000 вниз

E1
1
E2
2
выделив обе расширяем вниз до 10

F1
=СЧЁТЕСЛИ($C$2:$C$20000;E1)
G1
=F1/$F$12
H1
=$F$12/F1

I1
=1/(0,5^E1)
из формулы C+р^N=1 даже ежели неочевидно
настроив в столбцах H&I точность 0 цифр после запятой
и расширяем 4 ячейки F1 G1 H1 I1 вместе вниз до 10

F12
=СУММ(F1:F10)

результат: в столбцах H&I
отношение событий к числу совпадений подряд
у-2-ивается для каждого количества совпадений подряд
значит ждать N+1 совпадений подряд в 2 раза дольше N

вывод: случайные результаты предсказуемые

 

программы и настраиваемые данные

1. данные внутри программы dos и меняется текст программы
2. данные пишутся в файл вручную в блокноте и считывает программа dos
3. данные пишутся в файл заполняемой последовательно программой dos
4. данные пишутся в файл заполняемой параллельно программой windows
5. данные пишутся в файл заполняемой параллельно программой smartphone

другая часть про Программирование:
Азы Экономики http://kenokeno.ucoz.ru/load/econom3d/1-1-0-15

 

BasiC# qbc# C##

сборник сравнений программ на разных языках программирования
http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

онлайн компилятор C#: https://rextester.com

квадратное уравнение qb64:

' quadratic equation QB64 DAV

INPUT "INPUT A"; A
INPUT "INPUT B"; B
INPUT "INPUT C"; C

D = B ^ 2 - 4 * A * C

IF D < 0 THEN PRINT "D<0 ": END

PRINT "OTBET: "
PRINT "D ="; D

X1 = (-B + SQR(D)) / (2 * A)
X2 = (-B - SQR(D)) / (2 * A)

PRINT "X1 ="; X1
PRINT "X2 ="; X2

END

 

квадратное уравнение C# без проверки d<0:


// quadratic equation C# DAV 
using System;
using System.Text;
using System.IO;
namespace DAV
{
    class Program
        {
    static void Main(string[] args)
    {
Console.Write("INPUT A: ");
long a = Convert.ToInt32(Console.ReadLine());
Console.Write("INPUT B: ");
long b = Convert.ToInt32(Console.ReadLine());
Console.Write("INPUT C: ");
long c = Convert.ToInt32(Console.ReadLine());

long d = (b * b - 4 * a * c);
Console.WriteLine("OTBET: ");
Console.Write("D = ");
Console.WriteLine(d);

var x1 = (-b + Math.Sqrt(d)) / (2 * a);
var x2 = (-b - Math.Sqrt(d)) / (2 * a);

Console.Write("X1 = ");
Console.WriteLine(x1);
Console.Write("X2 = ");
Console.WriteLine(x2);

        Console.ReadKey();
        }
    }
}


квадратное уравнение excel без проверки d<0:
excel: скопировать и вставить в A1

6
7
2
=A2^2-4*A1*A3
=(-A2+КОРЕНЬ(A4))/(2*A1)
=(-A2-КОРЕНЬ(A4))/(2*A1)


для проверки применялись параметры
A = 6
B = 7
C = 2

обнаружен онлайн компилятор C#
и ещё десятков языков без qbasic
работающий без регистрации

и там набрав программу возможно
сохранить состояние с программой

например программа C# Миллиард
угадывающая 1 из 1'000'OOO'ooo
за =log(10^9;2) за 30 ходов

//milliard & billion
using System;
using System.Text;
namespace DAV
{
    class Program
    {
    static void Main(string[] args)
    {
int h2 = 1000000000;//or 500
int h1 = 0;
Random rand = new Random();
int c = rand.Next(h2); //computer
int h = rand.Next(h2); //human or h2/2;
int t = 0;

dav:
t++;
Console.WriteLine();
Console.Write(t);
Console.Write("  ");
Console.Write(c);
Console.Write("  ");
Console.Write(h);
Console.Write("  ");

if(h < c)
    {
    Console.Write("MORE");
    int a = h;
    h = (h + h2) / 2;
    h1 = a;
    goto dav;
    }
else if(h > c)
    {
    Console.Write("less");
    int a = h;
    h = (h1 + h) / 2;
    h2 = a;
    goto dav;
    }
Console.Write("win by ");
Console.Write(t);
Console.Write(" steps");
        Console.ReadKey();
        }
    }
}


rextester.com/JRGX29275

поискав вижу программы хранятся ... 5 лет
и наверняка есть онлайн компилятор C#
и реально ещё находятся через яндекс поиск

но т.к. интересует графика
пока пользуюсь cs & bat

анимация компиляция Win7 Framework

 

BasiC# qbc# C##

 

компилируется программа C# milliard.cs
угадывающая 1 из миллиарда номеров за 30 ходов
=log(10^9;2) = 30

копируем текст программы и вставляем в блокнот
и временно сохраняем на рабочий стол с названием
milliard.cs

в блокноте создаём новый текст 2 строчки

name.bat для компиляции создаёт окно 20-го века

csc.exe /nologo name.cs
pause

name.bat для компиляции создаёт окно 21-го века

csc.exe /target:winexe name.cs
pause



и временно сохраняем на рабочий стол с названием
billion.bat

переходим в каталог
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\
где видим csc.exe и переносим 2 файла
milliard.cs
billion.bat
и создаём ярлык каталога на рабочем столе

стартовав billion.bat
возникает информ окно и создаётся
малый быстрый независимый исполняемый
milliard.exe


 

та же программа на qbasic million гораздо короче

'milliion
RANDOMIZE TIMER
t=0:h1=0:h2=10^6
c=INT(RND*h2) 'comp
h=INT(RND*h2) 'human
10 t=t+1: PRINT t; c; h;
IF h<c THEN PRINT "MORE": a=h: h=INT((h+h2)/2): h1=a: GOTO 10
IF h>c THEN PRINT "less": a=h: h=INT((h1+h)/2): h2=a: GOTO 10
PRINT "win by "; t; " steps"
END

Результаты для диапазона от 1 до 100

1    40    11    MORE
2    40    55    less
3    40    33    MORE
4    40    44    less
5    40    38    MORE
6    40    41    less
7    40    39    MORE
8    40    40    win by 8 steps

угадываем число от 0 до 100 с подсчётом шагов

qb64 за минуту созданы главные строки и за минуты оформлено
C# за 3 часа создано по интернет подсказкам с новыми идеями

qb64 for 1 minute created main lines and for minutes issued
C# in 3 hours created by internet tips with new ideas

'qb64 dav guess number from 0 to 100 with counting of steps
RANDOMIZE TIMER
s = INT(RND * 100)
t = 0

10 PRINT: t = t + 1:
INPUT "your variant"; a

IF a < s THEN PRINT "need MORE": GOTO 10
IF a > s THEN PRINT "need less": GOTO 10
PRINT "win by"; t; "steps"
END

'//C# dav guess number from 0 to 100 with counting of steps
using System;
using System.Text;
namespace DAV
{
    class Program
        {
    static void Main(string[] args)
    {
Random rand = new Random();
int s = rand.Next(100);
int t = 0;

dav:
Console.WriteLine();
t++;

Console.Write("your variant ");
string d = Console.ReadLine();
int a = Convert.ToInt32(d);

if(a > s)
    {
    Console.WriteLine("need less");
    goto dav;
    }
else if(a < s)
    {
    Console.WriteLine("need MORE");
    goto dav;
    }
Console.Write("win by ");
Console.Write(t);
Console.Write(" steps");
        Console.ReadKey();
        }
    }
}

 

 

 

Програма C# Пифагор и вложенные циклы
строит на экране таблицу умножения

Program C# Pythagoras and nested loops
builds on screen multiplication table

   2   3   4   5   6   7   8   9
5  10  15  20  25  30  35  40  45
6  12  18  24  30  36  42  48  54
7  14  21  28  35  42  49  56  63
8  16  24  32  40  48  56  64  72
9  18  27  36  45  54  63  72  81


особенность компилятора C#
замечание мол ошибка в начале программы
может означать нехватку символов } в конце

C# compiler feature noticed
remark that there is a mistake at beginning of program
may mean a lack of characters } at end

//pifagor
using System;
using System.Text;
namespace DAV
{
    class Program
    {
    static void Main(string[] args)
    {
    Console.Write("   2   3   4   5   6   7   8   9");
    for (int i = 5; i <=9; i++)
    {
    Console.WriteLine();
    Console.Write(i);
        for (int j = 2; j <=9; j++)
        {
        Console.Write("  ");
        Console.Write(i*j);
        } //next j 'qb
    } //next i 'qb
        Console.ReadKey();
        }
    }
}


на языках basic бэйсик qb64 BasiC# qbc# C##
данная программа не создавалась и
источник: главная учебная программа

in languages basic basic qb64 BasiC# qbc# C##
this program was not created and
source is my magnum opus

 

рисуем 5D рельеф создав случайный массив высот

на QB64 за 5 минут и ещё час
на красоту и на универсальность 

' 5д рельеф и массив
SCREEN 12: RANDOMIZE TIMER: DIM a(12,12)
FOR t=1 TO 12 ' количество
    FOR x=1 TO 12: FOR y=1 TO 12
a(x,y)=INT(RND*20)'высоты
    NEXT: NEXT: CLS
    FOR y=1 TO 12: FOR x=1 TO 11
LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*y-a(x+1,y)), y
    NEXT: NEXT
    FOR x=1 TO 12: FOR y=1 TO 11
LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*(y+1)-a(x,y+1)), x
    NEXT: NEXT:SLEEP 1
NEXT
END


на C# использована программа маятник
из-за чего остались непонятные строки про таймер
и от вне/внутри циклов зависит функция случайных
и чтоб понять создана экспресс программа случайных

как очищать экран пока неясно и строит медленно
и неясно как задавать цвет линиям переменными

ещё как показывает диспетчер задач
простая программа или массив заполняет память
и только в конце строка очистки памяти спасает

//RELIEF
using System;
using System.Drawing;
using System.Windows.Forms;
class RELIEF
{
Timer timer; // неясно
Form form;
   
int[,] a = new int[22, 22];
static void Main(string[] args)
{
var p = new RELIEF();
}
public RELIEF()
{
    form = new Form() { Text = "RELIEF", Width = 600, Height = 360 };
    timer = new Timer() { Interval = 200 }; // неясно
    timer.Tick += delegate(object sender, EventArgs e) // неясно
    {
    Random rand = new Random();
// высоты
    for (int x = 1; x <=12; x++)
    {
    for (int y = 1; y <=12; y++)
    a[x,y]=rand.Next(20);
    }
// параллели Х
    for (int y = 1; y <=12; y++)
    {
    for (int x = 1; x <=11; x++)
        {
    var x1 = 50 + 20*x + 20*y;
    var y1 = 300 - 20*y - a[x,y];
    var x2 = 50 + 20*(x+1) + 20*y;
    var y2 = 300 - 20*y - a[x+1,y];

    Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
    Graphics g = Graphics.FromImage(dblBuffer);
    Graphics f = Graphics.FromHwnd(form.Handle);

    g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
//    f.Clear(Color.Green); // оч.экрана не здесь
    f.DrawImage(dblBuffer, new Point(0, 0));
     }
    }
// параллели У
    for (int x = 1; x <=12; x++)
    {
    for (int y = 1; y <=11; y++)
    {
    var x1 = 50 + 20*x + 20*y;
    var y1 = 300 - 20*y - a[x, y];
    var x2 = 50 + 20*(x+1) + 20*y;
    var y2 = 300 - 20*(y+1) - a[x, y+1];

    Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
    Graphics g = Graphics.FromImage(dblBuffer);
    Graphics f = Graphics.FromHwnd(form.Handle);

    g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
//    f.Clear(Color.Green); // оч.экрана не здесь
    f.DrawImage(dblBuffer, new Point(0, 0));
    }
    }
Array.Clear(a, 0, 22); // очищает память
    };
    timer.Start(); // неясно
    Application.Run(form);
    }     
}


кроме C# маятник есть C# диагонали проще
и больше ни одна программа C# не включилась
чтобы как в basic: 1 файл = 1 программа

поэтому важна моя данная программа 5D рельеф
рисующая хоть что-то предсказуемо
и одновременно изучаем вложенные циклы

и ещё ищу графические программы компилируемые:

1 файл = 1 программа
1 bas = 1 cs = 1 exe

 

Программа сразу создана в C# и изучены:
случайные файл запись чтение курсор пауза время

Результат:
      9637969396873988583975733385868348533496694797543675795793797746

      *   * * *    *     *                  *  *  *        *  *  *
      *   * * * *  *** * *      * * *  *    *  *  *        *  *  *
      *  ** * * ** *** * ** *   * * *  *    *  * ***    * ** ** ****
      ** **** **** *** * ** *   * ***  *    **** ***   ** ** ** **** *
      ** **** **** ***** ****   *****  **   **** ****  ******** **** *
      ** **** **** ***** ****   ***** ***  *********** ******** ******
      ****************************************************************
      ****************************************************************
      ****************************************************************

                                  0.0468

зато каждый: может + должен = обязан

переводить на разные языки программирования
простые программы соблюдающие:

1 bas = 1 exe = 1 cs = 1 exe

// rand file write read cursor pause time
// случайные файл запись чтение курсор пауза время
using System;
using System.Text;
using System.IO;
namespace DAV
{
    class Program
    {
    static void Main(string[] args)
    {
var start = DateTime.Now;
Random rand = new Random();
var outFile = new StreamWriter("dav.txt");

for (int i = 1; i <= 64; i++)
{
int a = 3+rand.Next(7);
outFile.WriteLine(a);
}
outFile.Close();

var inpFile = new StreamReader("dav.txt");

Console.Clear();
for (int i = 1; i <= 64; i++)
{
int b = Convert.ToInt32(inpFile.ReadLine());
Console.SetCursorPosition(i+5,5);
Console.Write(b);

for (int j = 1; j <= b; j++)
{
Console.SetCursorPosition(i+5,16-j);
Console.Write("*");
System.Threading.Thread.Sleep(100);
}
}
inpFile.Close();
var finish = DateTime.Now;
Console.SetCursorPosition(30,17);
Console.Write(finish-start);
Console.ReadKey();
}
}
}

 

//c# строковые функции и операции со строками
//c# из цифры строка и из строки цифра и код символа
//c# составление строк и разделение строк и сравнение строк
using System;
using System.Text;
namespace DAV
{
    class Program
    {
    static void Main(string[] args)
    {
string s = "";
Random rand = new Random();

for (int i = 1; i <= 64; i++)
{
int a = rand.Next(9);
string dop = (a.ToString());
s=s+dop;
Console.WriteLine(s);
}

int b = 2+rand.Next(8);
Console.WriteLine();
Console.WriteLine("Место ");
Console.WriteLine(b);

if (s[b-1] == s[b])
Console.WriteLine("Знаки Равны ");
else Console.WriteLine("Знаки НЕ равны ");

Console.WriteLine(s[b-1]);
Console.WriteLine(s[b]);

string d1 =(s[b-1].ToString());
string d2 =(s[b].ToString());
string d = d1+d2;
Console.WriteLine("Вместе ");
Console.WriteLine(d);
Console.WriteLine();
System.Threading.Thread.Sleep(5000);

string q = "";
int sum = 0;
int k=3;
for (int i = 0; i <= s.Length-k; i++)
{
string e=(s.Substring(i,k));
Console.WriteLine(e);

string f=(s.Substring(i, 1));
q = q+f;
sum = sum + int.Parse(f);
Console.WriteLine(f);
Console.WriteLine(s);
Console.WriteLine(q);
Console.Write("Сумма цифр ");
Console.WriteLine(sum);
Console.WriteLine();
System.Threading.Thread.Sleep(500);
}
for (int i = 121; i >= 32; i--)
Console.Write(Convert.ToChar(i));
Console.ReadKey();
System.Threading.Thread.Sleep(5000);
        }
    }
}

BasiC# qbc# C##

сборник сравнений программ на разных языках программирования
http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

онлайн компилятор C#: https://rextester.com

другая часть про Программирование:
Азы Экономики http://kenokeno.ucoz.ru/load/econom3d/1-1-0-15

 

Категория: Мои файлы | Добавил: DANILIN
Просмотров: 1301 | Загрузок: 149 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Форма входа

Категории раздела

Поиск

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Бесплатный конструктор сайтов - uCozЯндекс.Метрика