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

Купить рекламу на форуме 15-35 тыс рублей в месяц

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

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

           Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
           И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2021, 09:57   #91
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 781
По умолчанию

диаграмма круговая строится очень просто
значит поможет продолжить изучать другие языки программирования
включая 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

зато что вижу: круговые диаграммы на форумах отсутствуют
или где найдены программы гигантские хотя алгоритм простейший
учим C# & basic & excel https://programmersforum.ru/showthre...=327446&page=9 Приоритет Windows никому ничего нерекомендую https://programmersforum.ru/showthre...=338502&page=2

Последний раз редактировалось сфинкс; 07.11.2021 в 12:46.
сфинкс вне форума Ответить с цитированием
Старый 07.11.2021, 11:34   #92
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,027
По умолчанию

Театр одного актёра... "Выставка достижений..." Ну-ну...
digitalis вне форума Ответить с цитированием
Старый 26.04.2022, 10:45   #93
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 781
По умолчанию

Видео 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 позволяет составить алгоритм быстро

причём что далее изучается синтаксис Си-образный ниже не замечают
учим C# & basic & excel https://programmersforum.ru/showthre...=327446&page=9 Приоритет Windows никому ничего нерекомендую https://programmersforum.ru/showthre...=338502&page=2

Последний раз редактировалось сфинкс; 26.04.2022 в 14:24.
сфинкс вне форума Ответить с цитированием
Старый 26.04.2022, 12:06   #94
Foreseen
Техножрец
Форумчанин
 
Аватар для Foreseen
 
Регистрация: 04.07.2014
Сообщений: 326
По умолчанию

Что за адовая тема
— Двери есть везде. Просто нужно знать, как в них войти.
Foreseen вне форума Ответить с цитированием
Старый 26.04.2022, 13:33   #95
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,027
По умолчанию

Цитата:
Сообщение от Foreseen Посмотреть сообщение
Что за адовая тема
Соло на Бесике. Иполняет маэстро сфинкс. Ну и кому какое дело, что зал давно опустел?
Весеннее обострение?
digitalis вне форума Ответить с цитированием
Старый 26.04.2022, 13:50   #96
oldsnowman
Участник клуба
 
Аватар для oldsnowman
 
Регистрация: 20.02.2015
Сообщений: 1,217
По умолчанию

Цитата:
Что за адовая тема
А что плохого?
oldsnowman вне форума Ответить с цитированием
Старый 27.04.2022, 12:20   #97
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,027
По умолчанию

Да ничего.
Цитата:
"Вреда он нам не приносил,
Не говоря уже о пользе. "
©
digitalis вне форума Ответить с цитированием
Старый 23.05.2022, 18:58   #98
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 781
По умолчанию

Изучаю 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 повторить легко
учим C# & basic & excel https://programmersforum.ru/showthre...=327446&page=9 Приоритет Windows никому ничего нерекомендую https://programmersforum.ru/showthre...=338502&page=2

Последний раз редактировалось сфинкс; 23.05.2022 в 20:03.
сфинкс вне форума Ответить с цитированием
Старый 26.05.2022, 21:57   #99
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 781
По умолчанию

думаю ценная самостоятельная находка 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])
учим C# & basic & excel https://programmersforum.ru/showthre...=327446&page=9 Приоритет Windows никому ничего нерекомендую https://programmersforum.ru/showthre...=338502&page=2

Последний раз редактировалось сфинкс; 27.05.2022 в 11:11.
сфинкс вне форума Ответить с цитированием
Старый 28.05.2022, 23:22   #100
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 781
По умолчанию

Рюкзак 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
учим C# & basic & excel https://programmersforum.ru/showthre...=327446&page=9 Приоритет Windows никому ничего нерекомендую https://programmersforum.ru/showthre...=338502&page=2
сфинкс вне форума Ответить с цитированием
Ответ

           Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макрос 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 19:53