Как стать автором
Обновить
-23
@Danilin78read⁠-⁠only

https://www.youtube.com/watch?v=9poxfAcbxFQ

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

ideone.com
jdoodle.com
onlinegdb.com
ide.geeksforgeeks.org
rextester.com/l/csharp_online_compiler

Онлайн интерпретаторы и обсуждаемые языки программирования
случайно забыта статья

https://www.nature.com/news/engineered-bat-virus-stirs-debate-over-risky-research-1.18787

Инженерный вирус летучей мыши вызывает споры по поводу рискованных исследований
Лабораторный коронавирус, связанный с атипичной пневмонией, может поражать человеческие клетки.
Примечание редакции, март 2020 года: мы знаем, что эта история используется в качестве основы для непроверенных теорий о том, что новый коронавирус, вызывающий COVID-19, был спроектирован. Нет никаких доказательств, что это правда; ученые считают, что наиболее вероятным источником коронавируса является животное.

Engineered bat virus stirs debate over risky research
Lab-made coronavirus related to SARS can infect human cells.
Editors’ note, March 2020: We are aware that this story is being used as the basis for unverified theories that the novel coronavirus causing COVID-19 was engineered. There is no evidence that this is true; scientists believe that an animal is the most likely source of the coronavirus.

https://www.nature.com/news/engineered-bat-virus-stirs-debate-over-risky-research-1.18787

Вирус и карты и главное ГРАФИКИ
coronavirus-monitor.ru/coronavirus-v-rossii
worldometers.info/coronavirus/country/russia



… Подробности в моих темах разных форумов…
— Холмс откуда вы точно узнали кто все 6-ро
ставящие вам минусы анонимно исподтишка?

— Элементарно: накануне минусовавшего 7-го
самого анонимно исподтишка заминусовали
лично я давно надеваю новый целлофановый пакет на руку
и набрав овощи через пакет
выворачиваю пакет наизнанку
и получается одноразовая перчатка
Исследуя стили оформления скобок { } C#
были скачаны 33 темы разных лет про C#
из них 8 страниц без программ текстами

25 страниц содержали листинги 60 программ и включались в счётчик
учитывая принцип количества программ на странице

90% мой стиль: скобка в начале строки в начале строки скобка в начале строки 90 %
10% неудобный принцип: скобка иначе 10 %

Подтверждается дюжинами тем начинающих
программирующих как Мы на других форумах

Вдвойне удивительно видя токсичное агрессивное меньшинство 10%-х
и дружелюбное большинство программирующих как Мы 90%: скобка в начале
Вирус и карты и главное ГРАФИКИ

coronavirus-monitor.ru/coronavirus-v-rossii
worldometers.info/coronavirus/country/russia

COVID-19 Инфекционная безопасность
в медицинском учреждении во время эпидемии и пандемии



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

Еженедельно скачиваю ютюб монологи и диалоги экономя мегабайты
без скачивания аудио-дорожки:

Открываю нужный ютюб вида говорящая голова
Перематываю ютюб в конец и останавливаю экономя мегабайты

Вижу 3 точки и жму «Посмотреть расшифровку видео»
Появляется справа «Расшифровка видео»
Вверху 3 точки и жму «Показать или скрыть временные метки»
Отключаю столбец цифр
Курсором выделяю текст и копирую

В блокнот вставляю и сохраняю с понятным именем
Обычно далее озвучиваю через синтезатор речи

Итого: запасено 50 часов неважно чьих статей и ютюбов

Прослушиваю без эмоциональной привязки главное… бесплатно

Данный способ наверняка подходит для преобразования аудио в текст закачав ютюб
О комментариях в моей теме пишу:
мой стиль c# cs & qbasic bas & c# cs:

комментарии смещены вправо относительно строк ниже
повторяю:
комментарии смещены вправо относительно строк ниже

1-я строка имя файла
комментарии смещены вправо отдельно от строк ниже
фигурная скобка открывающаяся: в начале строки
фигурная скобка закрывающиеся: подряд несколько
однотипные команды: несколько в 1-й строке как qbasic и др…

мой стиль удобнее:
	// daprimer.cs
	if (lessThan100) 
		// данный код работает
		// код работает данный 
		// работает данный код 
	{ consumeNumberLessThan100(lessThan100); 
		// ошибка компиляции: функция ждёт число > 100.
	consumeNumberMoreThan100(lessThan100); // в конце коммент нормально 
	}
действительно удобнее

даже без форматирования цветом:
	// daprimer.cs
	if (lessThan100) 
		// данный код работает
		// код работает данный 
		// работает данный код 
	{ consumeNumberLessThan100(lessThan100); 
		// ошибка компиляции: функция ждёт число > 100
	consumeNumberMoreThan100(lessThan100); // в конце коммент нормально 
	}

обычный ваш стиль НЕудобный:
    if (lessThan100) { // неужели место скобки здесь?
        // вот этот код работает
        // но где же сам код?
        // почему код потерялся в комментариях?
        consumeNumberLessThan100(lessThan100); 

        // а здесь - ошибка компиляции, функция ждёт число
        //для которого доказано, что оно ("оно"?)> 100 
        consumeNumberMoreThan100(lessThan100);
    }

НЕудобный стиль ваш без цвета:
    if (lessThan100) { // неужели место скобки здесь?
        // вот этот код работает
        // но где же сам код?
        // почему код потерялся в комментариях?
        consumeNumberLessThan100(lessThan100); 

        // а здесь - ошибка компиляции, функция ждёт число
        //для которого доказано, что оно ("оно"?)> 100 
        consumeNumberMoreThan100(lessThan100);
    }
Неудобно особенно в книгах без цвета. Жуть?

Однако никому ничего никогда НЕ рекомендую
Проверка Wolframalpha: надёжность выиграть и проиграть
и вероятность выигрыша и проигрыша создают 4 комбинации:
C+p^N=1… (1-C)+p^N=1… C+(1-p)^N=1… (1-C)+(1-p)^N=1

Причём всё взаимозаменяемо:
C=1-c… c=1-C… P=1-p… p=1-P

Искусственный интеллект Wolframalpha знает логарифм:
solve C+(1-p)^N=1 for N

wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N



Checking in Wolframalpha: reliability win and lose
both probability of winning and losing create 4 combinations:
C+p^N=1… (1-C)+p^N=1… C+(1-p)^N=1… (1-C)+(1-p)^N=1

Everything is interchangeable:
C=1-c… c=1-C… P=1-p… p=1-P

Artificial intelligence of Wolframalpha knows logarithm:
solve C+(1-p)^N=1 for N

wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N

image
Надёжность выиграть и проиграть
и вероятность выигрыша и проигрыша создают 4 комбинации:

C+p^N=1
(1-C)+p^N=1
C+(1-p)^N=1
(1-C)+(1-p)^N=1

Причём всё взаимозаменяемо:

C=1-c
c=1-C
P=1-p
p=1-P

Искусственный интеллект wolframalpha знает логарифм:

solve C+(1-p)^N=1 for N

https://wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N

image
пока я сохранил все мои темы без всех токсичных
оставив лишь мои сообщения

и пока над безсмыслицей преследующих смеются модераторы

всем подписавшимся ради минусов: басня про преследующих

Еженедельно скачиваю ютюб монологи и диалоги экономя мегабайты
без скачивания аудио-дорожки:

Открываю нужный ютюб вида говорящая голова
Перематываю ютюб в конец и останавливаю экономя мегабайты

Вижу 3 точки и жму «Посмотреть расшифровку видео»
Появляется справа «Расшифровка видео»
Вверху 3 точки и жму «Показать или скрыть временные метки»
Отключаю столбец цифр
Курсором выделяю текст и копирую

В блокнот вставляю и сохраняю с понятным именем
Обычно далее озвучиваю через синтезатор речи

Итого: запасено 50 часов неважно чьих статей и ютюбов

Прослушиваю без эмоциональной привязки главное… бесплатно

Данный способ наверняка подходит для преобразования аудио в текст закачав ютюб
Экспорт Ориентированная Импорт Замещающая
моя программа про числа Фибоначчи Fibonacci numbers

'Fibo78.bas
DIM F(80) AS DOUBLE
F(1) = 0: F(2) = 1
'OPEN "fibo78.txt" FOR OUTPUT AS #1
FOR i = 3 TO 80
    F(i) = F(i-1)+F(i-2)
NEXT i

FOR i = 1 TO 80
    f$ = STR$(F(i)): LF = 22 - LEN(f$)
    n$ = ""
    FOR j = 1 TO LF: n$ = " " + n$: NEXT
    f$ = n$ + f$
    PRINT i, f$: ' PRINT #1, i, f$
NEXT i

1                                 0
2                                 1
3                                 1
4                                 2
5                                 3
6                                 5
7                                 8
8                                13
9                                21
10                               34
11                               55
12                               89
13                              144
14                              233
15                              377
16                              610
17                              987
18                             1597
19                             2584
20                             4181
21                             6765
22                            10946
23                            17711
24                            28657
25                            46368
26                            75025
27                           121393
28                           196418
29                           317811
30                           514229
31                           832040
32                          1346269
33                          2178309
34                          3524578
35                          5702887
36                          9227465
37                         14930352
38                         24157817
39                         39088169
40                         63245986
41                        102334155
42                        165580141
43                        267914296
44                        433494437
45                        701408733
46                       1134903170
47                       1836311903
48                       2971215073
49                       4807526976
50                       7778742049
51                      12586269025
52                      20365011074
53                      32951280099
54                      53316291173
55                      86267571272
56                     139583862445
57                     225851433717
58                     365435296162
59                     591286729879
60                     956722026041
61                    1548008755920
62                    2504730781961
63                    4052739537881
64                    6557470319842
65                   10610209857723
66                   17167680177565
67                   27777890035288
68                   44945570212853
69                   72723460248141
70                  117669030460994
71                  190392490709135
72                  308061521170129
73                  498454011879264
74                  806515533049393
75                 1304969544928657
76                 2111485077978050
77                 3416454622906707
78                 5527939700884757
79                 8944394323791464
80            1.447233402467622D+16

rosettacode.org/wiki/Fibonacci_sequence
https://qb64.org/forum/

image

Программа распределения случайных на спектры количества подряд одинаковых признаков меньше \ больше и чётный \ нечётный

Program for distribution spectra of random number of consecutive identical features less \ more and even \ odd

'datable99.bas

RANDOMIZE TIMER
tb=TIMER: s=0
OPEN "zz99.txt" FOR OUTPUT AS #2
n=VAL(MID$(TIME$, 7, 2)) * 10 ^ 5
DIM b(n), d(n), e(n), f(n)
DIM j(n), k(n), m(n), p(16), q(16)
LOCATE 1, 1: PRINT " THEORY        Average       BIG           EVEN "

FOR i=2 TO n-1
    b(i)=INT(RND * 900) + 100: s=s + b(i): m=s/i

    IF b(i) < m THEN d(i)=0 ELSE d(i)=1
    IF (b(i) MOD 2)=0 THEN j(i)=0 ELSE j(i)=1

    IF d(i)=d(i-1) THEN e(i)=e(i-1) + 1 ELSE e(i)=0
    IF e(i)=0 THEN f(i)=e(i-1) ELSE f(i)=12
    IF f(i) > 12 THEN f(i)=12

    IF j(i)=j(i-1) THEN k(i)=k(i-1) + 1 ELSE k(i)=0
    IF k(i)=0 THEN m(i)=k(i-1) ELSE m(i)=12
    IF m(i) > 12 THEN m(i)=12

    p(f(i))=p(f(i)) + 1: q(m(i))=q(m(i)) + 1

    IF (i MOD 1000)=0 THEN LOCATE 3, 1: PRINT i, " from ", n, INT(100 * i/n); " %", 
NEXT

LOCATE 3, 1: FOR t=1 TO 12
    PRINT INT(n/(2 ^ (t + 1))), INT((p(t-1) + q(t-1))/2), p(t-1), q(t-1)
NEXT

te=TIMER
PRINT: PRINT te-tb; "second", INT(n/(te-tb)); " in second  "
PRINT n, " elements ",

PRINT #2, te-tb; "second", INT(n/(te-tb)); " in second  "
PRINT #2, n, " elements ",: PRINT #2,

PRINT #2,: PRINT #2, " THEORY        Average       BIG           EVEN ": PRINT #2,
FOR t=1 TO 12
    PRINT #2, INT(n/(2^(t + 1))), INT((p(t-1) + q(t-1))/2), p(t-1), q(t-1)
NEXT

Особенность программы: индексы индексов p(f(i)) & q(m(i))
Feature of program: index of indixes p(f(i)) & q(m(i))

Результаты Results:
40 second             139555  in second  
 5600000       elements     

 Теория        Среднее       Большие       Чётные
 THEORY        Average       BIG           EVEN 

 1400000       1400610       1399595       1401625 
 700000        700026        700122        699931 
 350000        349716        349508        349925 
 175000        174823        174892        174755 
 87500         87424         87564         87285 
 43750         43837         43931         43744 
 21875         22028         21983         22074 
 10937         10850         10865         10835 
 5468          5481          5496          5466 
 2734          2755          2732          2778 
 1367          1388          1396          1380 
 687           687           687           687 


Practical distributions correspond to theoretical ones
so random sequence is qualitative
and it is possible to study patterns of different sequences

Binomial Logarithmic Integral Pyramidal Distribution
BLIP distribution of Random numbers

I think random have problems with parity:
parity of random changes too sharply

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

Биномиальное Логарифмическое Интегральное Пирамидальное распределение
БЛИП распределение случайных чисел

Думаю у случайных проблемы с чётностью:
слишком резко меняется чётность случайных
Сортировка обратного массива перетасовывает прямой массив
и получается последовательность нормальная

'datasov.bas
DIM a(55000), d(55000)
OPEN "aa.txt" FOR INPUT AS #1
OPEN "dd.txt" FOR OUTPUT AS #2

FOR i = 1 TO 55000
    INPUT #1, a(i): d(55000 - i + 1) = a(i):NEXT

FOR i = 1 TO 54999: FOR j = i TO 55000
        IF d(i) > d(j) THEN SWAP d(i), d(j): SWAP a(i), a(j)
NEXT: NEXT

FOR i = 1 TO 55000: PRINT #2, a(i): NEXT: CLOSE


Без применения спец возможностей сортировки связанных массивов
главное соблюдая совместимость qbasic & qb64 & c#

//datasov.cs
using System; using System.Linq;
using System.Collections.Generic;
using System.Text; using System.IO;
namespace tasov
{ class Program
    { static long[] a; static long[] d;
        static void Main(string[] args)
        {a = new long[55500]; d = new long[55500]; 
var inpFile = new StreamReader("aa.txt");
for (int i = 1; i <= 55000; i++) 
{ a[i] = Convert.ToInt64(inpFile.ReadLine());
d[55000-i+1] = a[i]; }

for (int i = 1; i <= 54999; i++) 
for (int j = i; j <= 55000; j++) 
if (d[i] > d[j])
{ var temp = d[i]; d[i] = d[j]; d[j] = temp;
temp = a[i]; a[i] = a[j]; a[j] = temp; }

var outFile = new StreamWriter("vv.txt");
for (int i = 1; i <= 55000; i++) 
outFile.WriteLine(a[i]);
Console.ReadKey();}}}


Программы импортируют и экспортируют
Осваиваю элементы управления и некоторые похожие изучаю за минуту
вписывая только строки в программу в блокнот без оболочек и без помощи

Справочники показывают на что из сделанного похож очередной изучаемый элемент
и в некоторых эл. книгах пишут не про все управляющие

И пока вводимые данные не используются

image

// ELEMENTS.cs
// csc.exe /target:winexe ELEMENTS.cs
// pause
using System; using System.IO;
using System.Drawing; using System.Diagnostics;
using System.Windows.Forms; namespace ELEMENTS
{
	public class Program

{static void Main()
{Application.Run(new ELEMENTS());}}
	class ELEMENTS : Form 
	{
ComboBox comboBox1; TextBox textBox1, textBox2; 
CheckBox checkBox41, checkBox42; Button button1; 
RadioButton radioButton31, radioButton32, radioButton33;
Label label1, label2, label3, label31, label33; 
Label label4, label41, label42, label5, label6; ListBox listBox5; 
CheckedListBox checkedlistBox6;

	public ELEMENTS()

{ Text = "ELEMENTS"; BackColor = SystemColors.WindowText;
ForeColor = SystemColors.Window; 
ResizeRedraw = true; Width = 480; Height = 240; }

	protected override void OnPaint(PaintEventArgs dan)
	{

comboBox1 = new ComboBox(); 
	comboBox1.Location = new Point(10, 50); comboBox1.Width = 40;
	comboBox1.Items.AddRange(new string[] {"3","2","1","4","5","6"});
	comboBox1.SelectedIndex = 2; comboBox1.BackColor = Color.Red;

textBox2=new TextBox(); textBox2.Text = "2"; textBox2.Width = 20;
textBox2.Location = new Point(70, 50); textBox2.BackColor = Color.Orange;

radioButton31 = new RadioButton(); radioButton31.Location = new Point(170, 50);
	radioButton31.Checked = true; radioButton31.Width = 20;
radioButton32 = new RadioButton(); radioButton32.Location = new Point(150, 70);
	radioButton32.Checked = false; radioButton32.Width = 20;
radioButton33 = new RadioButton(); radioButton33.Location = new Point(130, 90);
	radioButton33.Checked = false; radioButton33.Width = 20;
radioButton33.BackColor = Color.Yellow;

checkBox41 = new CheckBox(); checkBox41.Location = new Point(220, 50);
checkBox41.Checked = true; checkBox41.Width = 20;
checkBox42 = new CheckBox(); checkBox42.Location = new Point(200, 70);
checkBox42.Checked = false; checkBox42.Width = 20;
checkBox42.BackColor = Color.Green; // checkBox42.Appearance = 1; // true

listBox5 = new ListBox(); listBox5.Location = new Point(280, 50);
listBox5.Items.AddRange(new string[] {"6","5","4","1","2","3"}); 
listBox5.Width = 40; listBox5.SelectedIndex = 1; listBox5.BackColor = Color.Blue;

checkedlistBox6 = new CheckedListBox(); checkedlistBox6.Location = new Point(360, 50);
checkedlistBox6.Items.AddRange(new string[] {"1","3","5","2","4","6"}); 
checkedlistBox6.Width = 40; checkedlistBox6.SelectedIndex = 5; 
checkedlistBox6.BackColor = Color.Magenta;

label1 = new Label(); label1.Text = "comboBox";
	label1.Location = new Point(10, 20); label1.Width = 60;
label2 = new Label(); label2.Text = "textBox";
	label2.Location = new Point(70, 20); label2.Width = 60;

label3 = new Label(); label3.Text = "radioButton";
	label3.Location = new Point(130, 20); label3.Width = 80;
label31 = new Label(); label31.Text = "31";
	label31.Location = new Point(130, 50); label31.Width = 20;
label33 = new Label(); label33.Text = "33";
	label33.Location = new Point(170, 90); label33.Width = 20;

label4 = new Label(); label4.Text = "checkBox";
	label4.Location = new Point(210, 20); label4.Width = 60;
label41 = new Label(); label41.Text = "41";
	label41.Location = new Point(240, 53); label41.Width = 20;
label42 = new Label(); label42.Text = "42";
	label42.Location = new Point(230, 78); label42.Width = 20;

label5 = new Label(); label5.Text = "listBox";
	label5.Location = new Point(280, 20); label5.Width = 60;
label6 = new Label(); label6.Text = "checkedlistBox";
	label6.Location = new Point(360, 20); label6.Width = 100;

Controls.Add(comboBox1); Controls.Add(textBox2); Controls.Add(listBox5); 
Controls.Add(checkBox41); Controls.Add(checkBox42); Controls.Add(radioButton31); 
Controls.Add(radioButton32); Controls.Add(radioButton33); 
Controls.Add(checkedlistBox6); 

Controls.Add(label1); Controls.Add(label2); Controls.Add(label3); 
Controls.Add(label4); Controls.Add(label41); Controls.Add(label42); 
Controls.Add(label31); Controls.Add(label33); Controls.Add(label5);
Controls.Add(label6);

button1 = new Button();	button1.Click+=button1_Click;
	button1.Location = new System.Drawing.Point(10, 80);
	button1.Width = 80; button1.Text = "Переставить";

Controls.Add(button1); 
	}

private void button1_Click(object sender, EventArgs e)
	{ 

textBox1=new TextBox(); textBox1.Text = listBox5.Text; 
textBox1.Width = 40;
	textBox1.Location = new Point(10, 120);
Controls.Add(textBox1);
}}}

Информация

В рейтинге
Не участвует
Зарегистрирован
Активность