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

[сфинкс]

диаграмма круговая строится очень просто
значит поможет продолжить изучать другие языки программирования
включая windows forms

'diagout.bas  Russian Circle Diagram
N=12: s=0: DIM d(N),r(N+1): SCREEN 12: RANDOMIZE TIMER
FOR i=1 TO N: d(i)=INT(RND*90+9): s=s+d(i): PRINT d(i): NEXT: PRINT "SUM= "; s
FOR i=2 TO N: r(i)=r(i-1)+d(i)*2*3.1416/s: NEXT: r(N+1)=r(1)

FOR i=2 TO N+1 STEP 2: FOR j=1 TO 100: CIRCLE (150,100),j,i,r(i-1),r(i)
        CIRCLE (149,99),j,i,r(i-1),r(i): CIRCLE (151,99),j,i,r(i-1),r(i)
_DELAY .003: NEXT: NEXT

FOR i=3 TO N+1 STEP 2: FOR j=100 TO 1 STEP -1: CIRCLE (150,100),j,i,r(i-1),r(i)
        CIRCLE (149,99),j,i,r(i-1),r(i): CIRCLE (151,99),j,i,r(i-1),r(i)
_DELAY .01: NEXT: NEXT

FOR j=1 TO 100: FOR i=2 TO N+1
        IF (i MOD 2)=0 THEN CIRCLE (350,100),j,i,r(i-1),r(i): CIRCLE (349,99),j,i,r(i-1),r(i): CIRCLE (351,99),j,i,r(i-1),r(i)
        IF (i MOD 2)=1 THEN CIRCLE (350,100),100-j,i,r(i-1),r(i): CIRCLE (349,99),100-j,i,r(i-1),r(i): CIRCLE (351,99),100-j,i,r(i-1),r(i)
NEXT: _DELAY .02: NEXT: END

причём проверяют на импортном форуме
да ещё все анимации менее 120 кБ

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



данная тема развивается отечественными 7-ю добровольцами
плюс 5 иностранцев другого форума где диаграммы вращаются
поэтому назвали а-ля Поле Чудес помню программировал на ZX

зато что вижу: круговые диаграммы на форумах отсутствуют
или где найдены программы гигантские хотя алгоритм простейший

[digitalis]

Театр одного актёра... "Выставка достижений..." Ну-ну...

[сфинкс]

Видео 55 МБ "C#_за_час" включает просмотр пол-часа

https://cloud.mail.ru/public/p495/7eiY8sbwB
ссылка без счётчика и ещё возможны картинки из видео

видео пол-часа про начало программирования C#
неизвестного автора переведено в тёмный фон инверсией
однако 2-я часть непонятная и не прилагается

цель сообщения: заинтересовать видео "учим язык за час"
и уже скачаны ssyoutube и разделены avidemux про python

только далее желательны ссылки youtube
а сейчас 55МБ _https://cloud.mail.ru/public/p495/7eiY8sbwB
только из-за трансформации инверсии и изменения

данная тема: источник программ этюдов для студентов:
то про строки то про массивы
и именно qb64 qbasic позволяет составить алгоритм быстро

причём что далее изучается синтаксис Си-образный ниже не замечают

[Foreseen]

Что за адовая тема

[digitalis]

Сообщение от Foreseen

Что за адовая тема

Соло на Бесике. Иполняет маэстро сфинкс. Ну и кому какое дело, что зал давно опустел?
Весеннее обострение?

[oldsnowman]

Что за адовая тема

А что плохого?

[digitalis]

Да ничего.

"Вреда он нам не приносил,
Не говоря уже о пользе. "

©

[сфинкс]

Изучаю Python и моя 1-я самостоятельная программа
проверенная в онлайн компилятор: MILLIARD.py
по мотивам моей 3-х летней программы 27.03.2019 сообщ. №25

import random #milliard.py
h1 = 0
h2 = 10**16
c = random.randrange(0,h2) #comp
h = random.randrange(0,h2) #human
t = 0
f=0
while f<1:
	print(t,c,h)
	if h<c:
		print('MORE')
		a=h
		h=int((h+h2)/2)
		h1=a
	elif h>c:
		print('less')
		a=h
		h=int((h1+h)/2)
		h2=a
	else: 
		print('win by', t, 'steps')
		f=1
	t=t+1

Пример угадывания 1 из 100:

0 64 88
less
1 64 44
MORE
2 64 66
less
3 64 55
MORE
4 64 60
MORE
5 64 63
MORE
6 64 64
win by 6 steps

Посмотрев час скачанные видео примеры: начало нормальное
да и Питон Python преподают многие ютюб каналы
и возможно скачивать изменив адрес на SSyoutube

Думаю необходимы однотипные примеры
например создать 10 случайных на многих языках
чтобы программы ничего вручную вводить не просили

import random
N=10
c=0
while c<=N:
	a=random.randrange(-100,100)
	print(a)
	c=c+1

Естественно на языках C# qbasic qb64 & Excel повторить легко

[сфинкс]

думаю ценная самостоятельная находка Python: расширяющийся массив

a[i]=a.append(i)

превращающая Python в qbasic qb64
и например простейшая сортировка

from random import randint #sort rextester.com/ZQSY77323
N=10
a = [1]
for i in range (1,N):
    a[i]=a.append(i) 
    a[i]=randint(1,10)
    print(a[i], end=' ')
print()
for i in range (0,len(a)-1):
    for j in range (i,len(a)):
       if a[i]>a[j]:
           t=a[i]
           a[i]=a[j]
           a[j]=t
for i in range (1,len(a)):
    print(a[i], end=' ')

2 4 5 5 9 4 1 10 9 
1 2 4 4 5 5 9 9 10

и вообще созданная дюжина программ: все будто бэйсиковские

зато изучены Питон Python:

1. массив 1-мерный
2. массив 2-мерный
3. числовые
4. строковые
5. условие
6. перебор
7. цикл
8. печать
9. функции
10. комментарии

ещё про новые массивы:

заполнение массива подряд в обратном порядке

N=10
a=[i for i in range(N-1,-1,-2)]
print (a)

[9, 7, 5, 3, 1]

в учебниках пока не встречал

массив N нулей

N=10
a=[]
a.append([0]*N)
print (a)

[[0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]

2-мерный массив 3х5: важна фантазия и визуализация

a=[]
a=[[int(i+j) for i in range (3)] for j in range (5)]
print (a)

[[0, 1, 2], [1, 2, 3], [2, 3, 4], [3, 4, 5], [4, 5, 6]]

диагонали матрицы 5х5

for k in range (5):
    print (a[k][k])
    print (a[k][4-k])

[сфинкс]

Рюкзак 0-1 Python & qbasic qb64 и МЫ

Классическая задача про рюкзак решается многими способами
оглавление: http://rosettacode.org/wiki/Knapsack_problem
Long read: rosettacode.org/wiki/Knapsack_problem/0-1

Новейшая моя программа синтезирует все шифры 0 и 1
добавляя лишний регистр и 0 остаются слева в шифре

Количество сравнений уменьшается с N! до 2^N
например N=5 N!=120 >> 2^N=32

Автоматически присваиваются случайные значения
количества и качества и получается интеграл стоимости

https://rextester.com/BCKP19591

n=5; N=n+1; G=5; a=2**N		# N=7: L=5: a = 2^(N+1): 'knapsack.bas DANILIN
L=[];C=[];e=[];j=[];q=[];s=[]	# Dim L(N), C(N), j(N), q(a), q$(a), d(a)
d=[];L=[1]*n;C=[1]*n;e=[1]*a	# KNAPSACK 0-1 DANILIN
j=[1]*n;q=[0]*a;s=[0]*a;d=[0]*a

from random import randint	# Randomize Timer 
for i in range(0,n):		# For i=1 To N 
    L[i]=randint(1,3)		# L(i)=Int(Rnd*3+1) 
    C[i]=10+randint(1,9)	# C(i)=10+Int(Rnd*9) 
    print(i+1,L[i],C[i])	# Print i, L(i), C(i): Next
print()

for h in range(a-1,(a-1)//2,-1):# For m=a-1 To (a-1)/2 Step -1: g=m: Do
    b=str(bin(h))		# q$(m)=LTrim$(Str$(g Mod 2))+q$(m): g=g\2: Loop Until g=0
    e[h]=b[3:len(b)]		# q$(m)=Mid$(q$(m), 2, Len(q$(m))): Next
        
    for k in range (n):		# For k=1 To N:
      j[k]=int(e[h][k])		# j(k)=Val(Mid$(q$(h), k, 1)) ' from chifer
      q[h]=q[h]+L[k]*j[k]*C[k]	# q(h)=q(h)+L(k)*j(k)*C(k) ' 0 or 1
      d[h]=d[h]+L[k]*j[k]	# d(h)=d(h)+L(k)*j(k): Next
        
    if d[h]<= G:		# If d(h) <= L Then 
      print(e[h], G, d[h],q[h])	# Print #1, d(h), q(h), q$(h): Next
print()   

max=0; m=1 			# max=0: m=1: 
for i in range(a):		# For i=1 To a
    if d[i]<=G and q[i]>max:	# If d(i)<=L Then If q(i) > max 
        max=q[i]; m=i		# Then max=q(i): m=i: Next
print (d[m], q[m], e[m])	# Print #1,: Print #1, d(m), q(m), q$(m): End

# Mass Cost
1 2 12
2 3 17
3 1 14
4 3 17
5 1 13

Chifer Mass Cost           
11000 5 5 75
10101 5 4 51
01001 5 4 64
00111 5 5 78 !!!
00110 5 4 65
00101 5 2 27
00000 5 0 0

Mass MAX Chifer
5 78 00111