Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.03.2019, 15:26   #1
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию [C#][basic][qb64][Excel] Учим C# зная Basic & Excel & qb64

Учим C# зная Basic & Excel & qb64

данная тема про экспресс обучение C# зная Basic
рассматривая универсальные полезные примеры
и в принципе иногда возможно включать Excel

? почему C# & Basic & Excel & qb64 ?
потому что все похожи и C# & qb64 компилируемые

у меня компилятор C# в виде csc.exe в Windows7
и компилирую через индивидуальный bat

Excel: среды даже микро размера совместимые с формулами
Basic: qb64 совместимый с Windows7

есть ли подобные темы в интернете неизвестно
и в любом случае перенесу на мой сайт и ютюб

квадратное уравнение 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# без проверки d<0:

Код:
// 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();
		}
	}
}
квадратное уравнение excel без проверки d<0:
excel: скопировать и вставить в A1

Код:
6
7
2
=A2^2-4*A1*A3
=(-A2+КОРЕНЬ(A4))/(2*A1)
=(-A2-КОРЕНЬ(A4))/(2*A1)
для проверки применялись параметры
A = 6
B = 7
C = 2

надеюсь продолжение следует

в принципе приветствую переработку
quadratic equation QB64 DAV
на другие языки программирования здесь в теме

и дарю ссылки на сборники программ
http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 20.03.2019 в 16:24.
сфинкс вне форума Ответить с цитированием
Старый 20.03.2019, 15:31   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
надеюсь продолжение следует
надеюсь нет, даже форматирование кода не осилили.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 20.03.2019, 15:37   #3
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

"но ведь форматирование кода возможно в продолжении"

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

тем более: форматирование ... чего? кода
значит должен быть сначала ... код

пишу без оболочки в блокноте
и лично мне "форматирование ... чего? кода" пока не нужно

в принципе приветствую переработку quadratic equation QB64 DAV
на другие языки программирования здесь в теме
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 20.03.2019 в 15:39.
сфинкс вне форума Ответить с цитированием
Старый 20.03.2019, 15:39   #4
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Васик и шарп похожи, потому что компилируемые... )) Тогда и асм похож с шарпом.
p51x на форуме Ответить с цитированием
Старый 20.03.2019, 15:44   #5
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

сравниваем с моим сообщением:
"потому что все похожи и C# & qb64 компилируемые"

в принципе приветствую переработку
quadratic equation QB64 DAV
на другие языки программирования здесь в теме

дополняю: переработка не обязательно на компилируемые языки
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 20.03.2019, 15:48   #6
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Я б вам минус влепил только за исправления поста после комментариев других. И еще раз: нет, не похожи. Попробуйте на C# написать как на васике без классов или запустить C# прогу на голой винде без дот нета.
p51x на форуме Ответить с цитированием
Старый 20.03.2019, 16:32   #7
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

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

приветствую поставивших мне дюжину минусов

и в отличие от здешних на сей час
мне ничего не говорит слово "класс"
и еле подобрал буквы перед переменными

зато комментарии // не требуются

однако далее возможно переработать полезные
программы basic включая большие данные
и ввод вывод на диск и графику и интеграл и логарифм
всего лишь переработав из 20-го века в 21-й век

а те 1% от 1% у кого не работает из-за отсутствия сред
те могут переработать сами или глядя в сборники
http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64
а я не знаю взаимосвязи компонентов и букв в программе
поэтому не знаю компилируется ли у других

и далее лучше изучить условия на игре вида "угадай число"
но не за 1 день и не подсказывайте читатели

зато все видим: никто не сомневается в правильном выборе языков
и про квадратное уравнение мои программы понятнее многих
http://rosettacode.org/wiki/Roots_of...ratic_function
_http://rosettacode.org/wiki/Roots_of_a_quadratic_function
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 21.03.2019 в 13:02.
сфинкс вне форума Ответить с цитированием
Старый 20.03.2019, 16:35   #8
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Ну так и напишите на шарпе программу, как на васике, без этих непонятных using,
namespace, сlass, static...
p51x на форуме Ответить с цитированием
Старый 22.03.2019, 19:31   #9
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

угадываем число от 0 до 100 с подсчётом шагов

qb64 за минуту созданы главные строки и за минуты оформлено
C# за 3 часа создано по интернет подсказкам с новыми идеями

qb64 for 1 minute created main lines and for minutes issued
C# in 3 hours created by internet tips with new ideas

Код:
'qb64 dav guess number from 0 to 100 with counting of steps 
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
Код:
'//C# dav guess number from 0 to 100 with counting of steps 
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();
		}
	}
}
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 22.03.2019 в 19:35.
сфинкс вне форума Ответить с цитированием
Старый 22.03.2019, 22:52   #10
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

за 1/4 часа на qb64 и за 3/4 часа C# создана
программа угадывает число задуманное человеком
эмулируя 2 случайных: машинное и человеческое
и приближаясь каждый раз деля дистанцию на половину

in 1/4 hours on qb64 and in 3/4 hours C# is created
program guesses number conceived by man
emulating 2 random: machine and human
and approaching each time dividing distance by half

Код:
'qb64 dav guesses number dividing distance by half
RANDOMIZE TIMER
n = 0: x = 100
c = INT(RND * 100) 'comp
h = INT(RND * 100) 'human
t = 0

h2 = x
h1 = n

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
из миллиарда номеров угадывает за
=log(10^9;2)
за 30 ходов
Код:
1    40    11    MORE
2    40    55    less
3    40    33    MORE
4    40    44    less
5    40    38    MORE
6    40    41    less
7    40    39    MORE
8    40    40    win by 8 steps
out of a billion numbers guesses for
=log(10^9;2)
in 30 moves
Код:
//C# dav guesses number dividing distance by half
using System;
using System.Text;
namespace DAV 
{
	class Program
        {
	static void Main(string[] args) 
	{
int x = 100;
int n = 0;
Random rand = new Random();
int c = rand.Next(100); //comp
int h = rand.Next(100); //human
int t = 0;

var h2 = x;
var h1 = n;

dav: 
t++;
Console.WriteLine();
Console.Write(t);
Console.Write("  ");
Console.Write(c);
Console.Write("  ");
Console.Write(h);
Console.Write("  ");

if(h < c)
	{
	Console.Write("MORE");
	int a = h; 
	h = (h + h2) / 2; 
	h1 = a; 
	goto dav;
	}
else if(h > c)
	{
	Console.Write("less");
	int a = h; 
	h = (h1 + h) / 2; 
	h2 = a; 
	goto dav;
	}
Console.Write("win by ");
Console.Write(t);
Console.Write(" steps"); 
		Console.ReadKey();
		}
	}
}
BasiC# qbc# C##
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 23.03.2019 в 19:22.
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод кода из qb64 qbasic на C++ AlexDolmat Помощь студентам 0 07.02.2022 01:02
сила трения на qbasic64 - программа, изображающей силу трению в qb64. Например движение бруска по земле блин ир Помощь студентам 3 17.12.2019 13:47
Задача Basic Excel tooooool Помощь студентам 0 20.04.2012 20:00
Visual Basic интегрированный в Excel a1b2 Microsoft Office Excel 3 23.12.2010 19:53