Другие темы:
Учу EXCEL за 6 минутУчим C# Windows Forms зная Basic
Интеграл обманывает чужих и МЫ
Волны вероятности повышают надёжность
Учим 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
мой курс иносранщины
т.к. у меня нет иносранщины
и предыдущий раз была чужая купюра
5-летку назад
и вдобавок купюры как фантики ни разу не видел
зато возможно понимая правительство
и вдруг объявят конкурс угадывания курсов
или вдруг сбудется и можно будет хвалиться
в свете вышесказанного:
вижу курс иносранщины по месяцам
на 1-вые числа месяцев:
сентябрь: 65,5
октябрь: 65
ноябрь: 64,5
декабрь: 64
январь: 63
проверим дальновидность