Фриланс

Учим 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

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