Учим 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
проверим дальновидность
POL-SEN = тмач = 10 $ = к 1,02 = +0,19 $ = 18,30 $ COL-JAP = м4.5 = 04 $ = к 1,04 = +0,15 $ = 18,11 $ TUN-ENG = м3.5 = 05 $ = к 1,08 = +0,38 $ = 17,96 $ TUN-ENG = м3.5 = 01 $ = к 1,02 = +0,02 $ = 17,58 $ BEL-PAN = м4.5 = 04 $ = к 1,05 = +0,19 $ = 17,56 $ SWE-KOR = т0.5 = 03 $ = к 1,30 = +0,94 $ = 17,37 $ BRA-SWZ = м3.5 = 20 $ = к 1,03 = +0,57 $ = 16,43 $ GER-MEX = м2.5 = 09 $ = к 1,04 = +0,30 $ = 15,86 $ GER-MEX = м3.5 = 10 $ = к 1,06 = +0,57 $ = 15,56 $ GER-MEX = м4.5 = 20 $ = к 1,04 = +0,76 $ = 14,99 $ COS-SRB = м3.5 = 22 $ = к 1,02 = +0,42 $ = 14,23 $ CRO-NGR = обат = 10 $ = к 1,02 = +0,19 $ = 13,81 $ CRO-NGR = обат = 02 $ = к 1,16 = +0,30 $ = 13,62 $ DAN-PER = т0.5 = 03 $ = к 1,30 = +0,86 $ = 13,32 $ ARG-ISL = т0.5 = 43 $ = к 1,07 = +2,84 $ = 12,46 $ FRA-AUS = бнич = 04 $ = к 1,12 = +0,47 $ = 9,62 $ FRA-AUS = т0.5 = 04 $ = к 1,24 = +0,94 $ = 9,15 $ POR-ESP = т2.5 = 04 $ = к 1,20 = +0,77 $ = 8,98 $ MAR-IRN = т0.5 = 04 $ = к 1,30 = +1,12 $ = 8,21 $ EGY-URU = т0.5 = 35 $ = к 1,11 = +3,72 $ = 7,09 $ ROS-SAU = т0.5 = 32 $ = к 1,11 = +3,37 $ = 3,37 $