Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 20.03.2019, 16:26   #1
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 298
Репутация: -5
По умолчанию [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
__________________
учим C# зная basic & excel

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

icq: 512-765
skype: alexp.frl
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
надеюсь продолжение следует
надеюсь нет, даже форматирование кода не осилили.
Alex11223 на форуме   Ответить с цитированием
Старый 20.03.2019, 16:37   #3
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 298
Репутация: -5
По умолчанию

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

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

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

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

в принципе приветствую переработку quadratic equation QB64 DAV
на другие языки программирования здесь в теме
__________________
учим C# зная basic & excel

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

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

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

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

дополняю: переработка не обязательно на компилируемые языки
__________________
учим C# зная basic & excel
сфинкс на форуме   Ответить с цитированием
Старый 20.03.2019, 16:48   #6
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 14,711
Репутация: 2631
По умолчанию

Я б вам минус влепил только за исправления поста после комментариев других. И еще раз: нет, не похожи. Попробуйте на C# написать как на васике без классов или запустить C# прогу на голой винде без дот нета.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 20.03.2019, 17:32   #7
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Адрес: Русская Сортировка Половинами
Сообщений: 298
Репутация: -5
По умолчанию

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

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

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

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

однако далее возможно переработать полезные
программы 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
__________________
учим C# зная basic & excel

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

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

угадываем число от 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();
		}
	}
}
__________________
учим C# зная basic & excel

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

за 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##
__________________
учим C# зная basic & excel

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

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макрос Excel Visual Basic arly123 Помощь студентам 0 20.04.2013 01:43
Visual Basic Microsoft Excel Людмила. Помощь студентам 3 23.11.2012 19:51
Задача Basic Excel tooooool Помощь студентам 0 20.04.2012 20:00
Kак связать Visual Basic с Excel Vceznayka Microsoft Office Excel 2 23.12.2011 04:12
Visual Basic интегрированный в Excel a1b2 Microsoft Office Excel 3 23.12.2010 20:53


15:52.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.