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

[ViktorR]

Не большое замечание.
сфинкс
1. Списки - это не массивы, а списки. И это важно.
2. Сортировка делается методом sort() или sorted(). Почитайте.
3. Поиск минимума и максимума, например, в списке: max() и min().
4. Для организации массивов любой размерности и с заданными или случайными значениями используйте библиотеку numpy. Посмотрите и в сторону срезов, как они реализованы со списками или, например, массивами библиотеки numpy.
5. ...

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

массив N нулей
Код:
N=10
a=[]
a.append([0]*N)
print (a)
[[0, 0, 0, 0, 0, 0, 0, 0, 0, 0]]

Да Вы батенька просто лентяй. Это должны знать даже школьники. Поищите, например:
Д.М. Ушаков, ЕГЭ-2022 : Информатика : 20 тренировочных вариантов экзаменационных работ
для подготовки к единому государственному экзамену.
Порешайте задачки используя Python. И будет Вам счастье

Пример:

Исполнитель Редактор получает на вход строку цифр и преобразовывает её.
...
Какая строка получится в результате применения приведённой ниже про-
граммы к строке, состоящей из 61 идущих подряд цифр 1?

Кстати, Ваш пример может быть короче:

N = 10
a = [0]*N   # Получили список или
a = [[0]*N] # как у Вас, получили вложенный список

PS: Успехов в изучении этого языка.
И помните, нет

все будто бэйсиковские

, а есть человеческая мудрость, которая ...

[сфинкс]

Предыдущее Python сообщение учтено мной ещё раньше:

n=5; N=n+1; G=5; a=2**N
L=[]; C=[]; e=[]; j=[]; q=[]; s=[]; d=[];
L=[1]*n; C=[1]*n; e=[1]*a
j=[1]*n; q=[0]*a; s=[0]*a; d=[0]*a

а в это время сделана версия C#
используя только мои наработки
зато интернет учебники не потребовались


C# Knapsack 0-1 Рюкзак

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

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

Количество сравнений уменьшается с N! до 2^N например
N=10 N!=3628800 >> 2^N=1024 стало в 3500 раз лучше

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

using System;using System.Text;		// KNAPSACK 0-1 DANILIN 	
namespace Knapsack { class Program { static void Main()
    
{ int n=5; int G=5; int u=n+1; int a=Convert.ToInt32(Math.Pow(2,u)); 
int[] L = new int[n]; int[] C = new int[n]; int[] j = new int[n]; 
int[] q = new int[a]; int[] S = new int[a]; int[] d = new int[a]; 
int dec; int i; string[] e = new string[a]; 
int h; int k; int max; int m; Random rand = new Random();

for (i=0; i<n; i++) // rextester.com/OIALC94208
{L[i]=1+rand.Next(3); C[i]=10+rand.Next(9);
Console.Write(i+1); Console.Write("   ");
Console.Write(L[i]); Console.Write("   "); 
Console.Write(C[i]);Console.WriteLine(); 
} Console.WriteLine();
 
for (h = a-1; h>(a-1)/2; h--) 
{ dec=h; while (dec > 0)
{ e[h] = dec % 2 + e[h]; dec/=2; }
if (e[h] == "") {e[h] = "0";}
e[h]=e[h].Substring(1,e[h].Length-1);

for (k=0; k<n; k++)
{j[k]=Convert.ToInt32(e[h].Substring(k,1));
 
q[h]=q[h]+L[k]*j[k]*C[k];
d[h]=d[h]+L[k]*j[k];}
    
if (d[h]<= G)
{ Console.Write(G);  Console.Write("  "); 
 Console.Write(d[h]); Console.Write("  "); 
 Console.Write(q[h]); Console.Write("  "); 
 Console.WriteLine(e[h]);} 
} Console.WriteLine();
 
max=0; m=1;
for (i=0; i<a; i++)
{ if (d[i]<=G && q[i]>max)
{ max=q[i]; m=i;}}
 
Console.Write(d[m]); Console.Write("  "); 
Console.Write(q[m]); Console.Write("  "); 
Console.WriteLine (e[m]);}
}}

# Mass Cost
1 2 12
2 3 17
3 1 14
4 3 17
5 1 13
Chifer Mass Cost 
11000 5 5 75
01001 5 4 64
00111 5 5 78 !!!
00110 5 4 65
00101 5 2 27
Mass MAX Chifer
5 78 00111

Интеграл количества и качества ?

https://www.youtube.com/watch?v=e5iNHnyuEJQ

[сфинкс]

иностранцы поняли Рюкзак Knapsack C# с 5-го раза
только после моего исправления названий переменных и структуры
и ещё яснее вывод на экран подряд

using System;		// Knapsack C# binary DANILIN
using System.Text;	// rextester.com/YRFA61366
namespace Knapsack 
{ 
class Knapsack  
    { 
    static void Main()
        { 
            int n = 7; 
            int Inside = 5; 
            int all=Convert.ToInt32(Math.Pow(2,(n+1))); 
            int[] mass = new int[n]; 
            int[] cost = new int[n]; 
            int[] jack = new int[n]; 
            int[] quality = new int[all]; 
            int[] amount = new int[all];   
            int i; 			// circle
            int k; 			// circle
            int dec;  
            string[] bin = new string[all]; 
            int list; 
            int max;
            int max_num;
            Random rand = new Random();

            for (i=0; i<n; i++)
            {
                mass[i]=1+rand.Next(3);
                cost[i]=10+rand.Next(9);
                Console.WriteLine("{0} {1} {2}", i+1, mass[i], cost[i]); 
            } 
            Console.WriteLine();

            for (list = all-1; list>(all-1)/2; list--) 
            { 
                dec=list; 
                while (dec > 0)
                { 
                    bin[list] = dec % 2 + bin[list]; // from 10 to 2 
                    dec/=2; 
                }
                if (bin[list] == "") 
                {
                    bin[list] = "0";
                }
                bin[list]=bin[list].Substring(1,bin[list].Length-1); 
                for (k=0; k<n; k++) // inside 01
                {
                    jack[k]=Convert.ToInt32(bin[list].Substring(k,1));
                    quality[list]=quality[list]+mass[k]*jack[k]*cost[k]; 	// integral of costs
                    amount[list]=amount[list]+mass[k]*jack[k]; 	// integral of mass
                }        
                if (amount[list]<= Inside)		// current mass < Knapsack
                { 
                    Console.WriteLine("{0} {1} {2} {3}", Inside, amount[list], quality[list], bin[list]); 
                } 
            } 
            Console.WriteLine();

            max=0; 
            max_num=1;
            for (i=0; i < all; i++)
            { 
                if (amount[i]<=Inside && quality[i]>max)
                { 
                    max = quality[i]; max_num =i ;
                }
            }
            Console.WriteLine("{0} {1} {2}",amount[max_num],quality[max_num],bin[max_num]);
        }
    }
}

и ещё мной создана версия таблица Рюкзак Эксцель Knapsack Excel
да и ещё на языках Python & qbasic & qb64 программа короче чем C#



Плюс создан этюд пока на qbasic qb64 xonix ксоникс

[сфинкс]

Простые числа ускорены: корень выведен из цикла
и возможно считать простое число по счёту такое-то
и выяснено: в диапазоне до 1 миллиона чисел: простых чисел 78 тысяч

Python: число простое или множители

import time; from random import randint # PRIME_mult.py 
p = randint(1, 2**25); s=int(p**0.5); f=0; j=2; q=0;    # p=2**31-1;
while f < 2:             # rextester.com/QFZD94890
    if j >= s:           # 2**31-1 = 2_147_483_647
        f=2              # max 2_308_621_829
    if p % j == 0:
        q=1
        print (p,j,int(p/j))
    j+=1
if q != 1:
    print(p," Prime", p/10**9, " BillionS")
print(time.perf_counter(), " seconds")

QB64: число простое или множители

Dim p As Long: f=0: j=2: q=0: t=Timer: ' p = 2^31-1:
Randomize Timer: p = int(rnd*2^25): s=p^0.5 ' PRIME_mult.bas 
While f < 1 
    If j >= s Then f=2
    If p Mod j = 0 Then q=1: Print p, j, Int(p/j)
    j = j + 1
Wend
If q <> 1 Then Print p, " Prime", p/10^9, " BillionS"
Print p, Timer — t

C#: число простое или множители

using System; using System.Text; // PRIME_mult.cs 
namespace prime // rextester.com/VBXFL2777
{ class Program
    { static void Main(string[] args)
        { var start = DateTime.Now; int f=0; int j=2; int q=0;
            Random rand = new Random(); // long p = 2147483648-1;
            long p = rand.Next(Convert.ToInt32(Math.Pow(2, 22))-1);
            long s = Convert.ToInt32(Math.Pow(p,0.5));
            while (f < 1)
            { if (j >= s)
                { f=2; }
              if (p % j == 0)
              { q=1; Console.WriteLine("{0} {1} {2}",p,j,Convert.ToInt32(p/j));}
              j++;
            }
if (q != 1) { Console.WriteLine(«Prime {0} BillionS», p); }
var finish = DateTime.Now;
Console.WriteLine(finish — start);
Console.ReadKey();
}}}

Плюс создан qbasic qb64 XONIX мульти летающий Ксоникс

анимация 66 кБ и выше 45 кБ

[ViktorR]

число простое или множители

Грамотно надо писать так: "число простое или составное?" или "простое или составное число", ...

По поводу множителей - это сюда: https://ru.wikipedia.org/wiki/Умножение

[сфинкс]

Учим Python: без счётчика 10 видео

неизвестного автора понятные
и ещё увеличены главное бесплатно

https://cloud.mail.ru/public/VusB/6tPEgexsv

[сфинкс]

Заливка экрана точками

Программа qbasic qb64 zakraska.bas заполняет экран точками
разделив поле на участки 4х4
и лучше стороны поля кратно малых ячеек

Строка под меткой 3:
вращающаяся строка проверяет условие и повторяет себя

Точка ставится строго в пустое место и поле заполняется на 100%
и ещё есть счётчики точек не поставленных и счётчик времени

Результат: поле закрашивается на 100%

Ячейка 2х2 = 2 секунды и 27 тыс повторов для 25 тыс точек
Ячейка 8х8 = 15 секунд и 95 тыс повторов для 25 тыс точек
...
Ячейка 32х32 = много секунд и много повторов для 25 тыс точек

Вывод: случайные контролировать реально


gif 88 kB

w = 240: h = 180: p = w*h: Screen 12 ' zakraska.bas
s = 6: a = w/s: b = h/s: Randomize Timer: n=0: t=Timer

For k = 1 To s^2 
    For i = 0 To a - 1
        For j = 0 To b - 1
3 c = Int(Rnd*s)+1: d = Int(Rnd*s)+1: If Point(i*s+c, j*s+d) = 4 Then n = n+1: GoTo 3
            PSet (i*s+c, j*s+d), 4 
        Next: Locate h/16+2, 1: Print n; "points repetition from"; p
Next: _Delay .205: Next: _Delay 1:
Print Timer - t; "seconds for"; s; "x"; s

5 For k = 1 To s ^ 2 * 2 
    For i = 0 To a - 1
        For j = 0 To b - 1
            c = Int(Rnd*s)+1: d = Int(Rnd*s)+1
            PSet (i*s+c, j*s+d), 0 
Next: Next: _Delay .205: Next: _Delay 1
End

В конце чёрные точки распыляются без проверки повторов
в количестве точек произведения длины и ширины
и остаются закрашенные точки

Вывод: случайные без контроля неуправляемые

Данный алгоритм Закраска может проявлять гос флаги из полос

[сфинкс]

Поза-поза-прошлогодняя программа "Кот-игрушка"
помогла создать примитивный XONIX C#
из программы почти Xonix на qbasic qbasic qb64

Применены случайные и условия включая &&
хотя есть чужая реализация гораздо короче

Среда программирования компилирует как есть
зато быстрее найти каталог
C:\Windows\Microsoft.NET\Framework6 4\v4.0.30319

и там вместе с xonix.cs создать xonix.bat
csc.exe /target:winexe xonix.cs
pause

Результат: летающий Ксоникс меняет всё что случайно

100 кБ

using System; using System.Drawing; // xonix.cs
using System.Windows.Forms; class xonix: Form

{ public static void Main()
  { Application.Run(new xonix());}
    public xonix()

  { Text = "XONIX"; int w=400, h=300;
  BackColor = System.Drawing.Color.Blue;
  ForeColor = System.Drawing.Color.Magenta; 
  ResizeRedraw = false; Width = w; Height = h;
  }
protected override void OnPaint(PaintEventArgs and)

{ for (int j=1; j<=3; j++) 
{ Graphics dav = and.Graphics; int d,x,y,f, a=380, b=260; 
Random rand = new Random(); f = (2+rand.Next(3))*5; 
d = rand.Next(4)+1; x = rand.Next(a); y = rand.Next(b); 

for (int k = 1; k <=1200; k++)
{ dav.DrawEllipse(new Pen(Color.Magenta, 12),x,y,f,f);
System.Threading.Thread.Sleep(5);
dav.DrawEllipse(new Pen(Color.Blue, 12), x,y, f,f);

    if ((d==1) && (y == 2) && (x+1 == a)) d=3;
    if ((d==1) && (y == 2) && (x+1 < a)) d=2;
    if ((d==1) && (y>0) && (x+1 == a)) d=4;
    if (d==1) { y--; x++; }

    if ((d==2) && (y+1 == b) && (x+1 == a)) d=4;
    if ((d==2) && (y+1 < b) && (x+1 == a)) d=3;
    if ((d==2) && (y+1 == b) && (x+1 < a)) d=1;
    if (d==2) { y++; x++; }

    if ((d==3) && (y+1 == b) && (x == 2)) d=1;
    if ((d==3) && (y+1 < b) && (x == 2)) d=2;
    if ((d==3) && (y+1 == b) && (x>2)) d=4;
    if (d==3) { y++; x--; }

    if ((d==4) && (y == 2) && (x == 2)) d=2;
    if ((d==4) && (y>2) && (x == 0)) d=1;
    if ((d==4) && (y == 2) && (x>0)) d=3;
    if (d==4) { y--; x--; }
}}}}

Главная анимация: рисуется шар
и пауза и рисуется шар под цвет фона

Есть наработки qb64 где летают разные шары
сделано через массив и есть контроль столкновений
особенно если настроить шаг как знакоместо

66 кБ

Анимация: HyperCam & VirtualDub

Ежели додумать: может летать Чебурашка

Упрощённая версия Xonix qb64

m = 17: n = 11: _Font 17 ' xonixqb.bas
restart:
_Title Str$(m)+" x"+Str$(n): Cls
x = 1+Int(Rnd*m): y = 1+Int(Rnd*n)
dx = 1: dy = 1: c = 0

move:
Locate y+1, x+1: Print Chr$(219);
If x+dx < 1 Or x+dx > m Then dx = -dx
If y+dy < 1 Or y+dy > n Then dy = -dy
x = x+dx: y = y+dy

Color 0, Rnd*15
Locate y+1, x+1: Print "X";
Color Rnd*15, 0
_Limit 30: c = c+1

If c > (m*n)/1.5 Then
    toggle = 1-toggle
    If toggle Then n = n+2 Else m = m+2
    _Delay 1
    GoTo restart
Else
    GoTo move
End If

Сообщение программа Кот-игрушка c#
https://www.programmersforum.ru/show...87#post1775187

[сфинкс]

Задача Knapsack 0-1 Рюкзак переведена на C++
рассчитывая до 16 элементов
иначе переполняется шифр из 0и1
хотя неизвестный единомышленник переделал C# на большее

https://jdoodle.com/ia/rSn

Особенность алгоритма Knapsack 0-1 binary:
преобразовывает целое в стринг
и преобразовывает стринг в целое
что поможет в других программах

http://rextester.com/VCBSQ91995

#include <iostream> // KNAPSACK 0-1 DANILIN
using namespace std; int main()
{ setlocale (LC_ALL, "RUS");
  srand(time(NULL)); // rextester.com/VCBSQ91995
   
{ int n=7; int G=5; int a=2;  
  int dec, i, h, k, max, m; 
  for (i=0; i<n; i++) a=2*a; string e[a]; // 2^n 
  int L[n], C[n], j[n], q[a], d[a];  

cout << "#  Кол  Цена" << endl; 
cout << "#  Amo Price" << endl << endl; 
for (i=0; i<n; i++)
{ L[i]=1+(rand() % 3); C[i]=10+(rand() % 9); j[i]=0;
  cout << i+1 << "   " << L[i] << "   " << C[i] << endl; 
} 
for (i=0; i<a; i++) { q[i]=0; d[i]=0;}
cout << endl; 

cout << "Мх Кол Ст-ть Шифр" << endl; 
cout << "Mx Amo Price Chifer" << endl << endl; 
for (h = a-1; h>(a-1)/2; h--)
  { dec=h; while (dec > 0)
      { string s(""); s += '0'+dec%2;   
        e[h] = s + e[h]; dec/=2; 
      }
if (e[h] == "") {e[h] = "0";}
e[h]= e[h].substr(1, e[h].size()-1);

for (k=0; k<n; k++)
{ j[k] = atoi((char*)(e[h].substr(k,1)).c_str()); 
  q[h]=q[h]+L[k]*j[k]*C[k];
  d[h]=d[h]+L[k]*j[k];
}

if (d[h] <= G)
cout << G << "  " << d[h] << "  " << q[h] << "  " << e[h] << endl; 
} cout << endl;

max=0; m=1;
for (i=0; i<a; i++)
{ if (d[i]<=G && q[i]>max){ max=q[i]; m=i;}
}
cout << "Мх Ст-ть Шифр" << endl; 
cout << "Mx Price Cipher" << endl << endl; 
cout << d[m] << "  " << q[m] << "  " << e[m] << endl << endl;}
system("pause");
}

Расширить на более чем 16 наверняка просто

Примерный результат:

#  Кол  Цена
#  Amo Price

1   2   14
2   3   18
3   1   13
4   2   17
5   1   11
6   1   11
7   3   13

Мх Кол Ст-ть Шифр
Mx Amo Price Chifer

5  5  82  1100000
5  5  75  1011000
...
5  4  67  0110000
5  5  88  0101000
5  5  76  0100110
...
5  3  39  0000001
5  0  0  0000000

Мх Ст-ть Шифр
Mx Price Cipher

5  88  0101000

[сфинкс]

Задача Knapsack 0-1 Рюкзак переведена на Javascript
и решает за секунды задачу RosettaCode Knapsack 0-1 про 22 предмета правильно
https://jdoodle.com/h/2Ut

Но важнее другая проблема

Моя программа Javascript js синтезирует матрицу как массив
и далее сортирует строки функцией sort
строку беря и сортируя и возвращая в массив

for (i=0; i<n; i++) a[i] = a[i].sort()

строки и столбцы

<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta http-equiv="X-UA-Compatible" content="ie=edge">
<title>MATRIX sort FUN js JavaScript</title> 
<html> <body> <noscript>Vkluch JS</noscript>

https://jdoodle.com/h/2UB

<script>

var i,j,k, a=[], b=[], c=[]; var n=3, m=5; 
document.write("<br><br>")

for (i=0; i<n; i++)
  { a[i]=[], b[i]=[] 
    for (j=0; j<m; j++)
    { a[i][j]=Math.floor(Math.random()*9)
      b[i][j]=a[i][j]; 
      document.write(a[i][j] + " ")
    } document.write("<br>")
  } document.write("<br>")

for (j=0; j<m; j++)
    { c[j]=[] 
      for (i=0; i<n; i++)
        c[j][i]=b[i][j]
    }

for (i=0; i<n; i++) a[i] = a[i].sort() 
 
for (i=0; i<n; i++)
  { for (j=0; j<m; j++)
    { document.write(a[i][j] + " ")
    } document.write("<br>")
  } document.write("<br>")

for (i=0; i<n; i++)
  { for (j=0; j<m; j++)
    { document.write(b[i][j] + " ")
    } document.write("<br>")
  } document.write("<br>")

for (j=0; j<m; j++) c[j] = c[j].sort() 

for (i=0; i<n; i++)
  for (j=0; j<m; j++)
        b[i][j] = c[j][i]

for (i=0; i<n; i++)
  { for (j=0; j<m; j++)
    { document.write(b[i][j] + " ")
    } document.write("<br>")
  } document.write("<br>")

</script>

</body> </html>

7 8 0 0 5
6 5 2 7 6
0 0 3 3 7

0 0 5 7 8
2 5 6 6 7
0 0 3 3 7

7 8 0 0 5
6 5 2 7 6
0 0 3 3 7

0 0 0 0 5
6 5 2 3 6
7 8 3 7 7

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

</script>
<script>
document.write("<br><br>5=<br><br>")

https://jdoodle.com/h/2UB