наука

Учим C# Windows Forms зная Basic

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

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

Предыдущая тема: Учим C# зная basic
Программы созданы мной на основе моей главной программы
где запрограммирован мой алгоритм в нескольких вариантах
и теперь программирую на C# сразу без перевода из basic

? Почему C# & basic?
Потому что компилируемые и есть онлайн компиляторы
и компилятор C# включен в Windows 7 Framework

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

программа решающая квадратное уравнение


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

( Читать дальше )

Учим C# зная basic

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

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

Программы созданы мной на основе моей главной программы
где запрограммирован мой алгоритм в нескольких вариантах
и теперь программирую на C# сразу без перевода из basic

? Почему C# & basic?
Потому что компилируемые и есть онлайн компиляторы
и компилятор C# включен в Windows 7 Framework

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

Квадратное уравнение 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#

// 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();
        }
    }
}

'Угадай число

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

//Угадай число
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();
		}
	}
}

'Угадывает 1 из 1000000
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

( Читать дальше )

Интеграл побеждает Логарифм: реальность и зазеркалье

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

между прочим с разных форумов
скачали и/или/либо прослушали почти 55 раз

12 мб скачать / слушать 30 м. я-диск ИнтЛог_зазеркалье_64_dav.mp3
12 мб скачать / слушать 27 м. я-диск ИнтЛог_реальность_64_dav.mp3
25 мб скачать / слушать 55 м. я-диск ИнтЛог_озвуч_64_dav.mp3

7 мб скачать / слушать 30 м. я-диск ИнтЛог_зазеркалье_32_dav.mp3
7 мб скачать / слушать 27 м. я-диск ИнтЛог_реальность_32_dav.mp3
12 мб скачать / слушать 55 м. я-диск ИнтЛог_озвуч_32_dav.mp3

( Читать дальше )

Интеграл обманывает чужих и МЫ

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

просвещение России содержит гигантский пробел:
интегралы не изучаются в любом виде в младшей школе
в т.ч. словами отличными от слова «интеграл»: «куча»
в то время как интеграл в жизни ежесекундно: и одежда
и продукты и выбор в магазине и транспортная задача
ведь понимая интегральную сущность человек сравнивает
без точных расчётов в уме и делает оптимальный выбор.

интеграл детям: сумма умножений количества и качества
логарифм детям: число умножений до нужного количества.

здравый смысл: выбор из нескольких вариантов
практически: интегральная транспортная задача.

ключевые слова: свой чужой лидер ведомый жертва
актив пассив экспорт эксплуатация технология
интеграл логарифм цель время контроль язык.

( Читать дальше )

Может ли кто-то объяснить мне КАК этот поп попал в Роскосмос?!

Волны вероятности повышают надёжность

Теория и Практика 0 и 1

* Теория из моих тем АнтиИгроМаниЯ *

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

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

Например простейшее: 0,7*0,7*0,7 = 0,7^3 = 0,343
в какую степень надо возвести 0,7 чтобы получить 0,343
и в 20-м веке формулу восстановил Андрей Данилин
N = LOG(0,343)/LOG(0,7) = 3
и соответствующая формула для неугадывания

Умножение постоянных вероятностей C+р^N=1
и в 20-м веке формулу восстановил Андрей Данилин
N = LOG(1-C)/LOG(1-p)
С — вероятность выигрыша гарантированного
р — вероятность выигрыша события.

Например задача: число несовпадений подряд
с вероятностью 99% для вероятности 48,65%
и в 20-м веке формулу восстановил Андрей Данилин
N = LOG(1-0,99)/LOG(1-0,4865) = 7
и значит на вероятности около 50%
легко неугадать 7 раз подряд

( Читать дальше )