Pull to refresh
1
0
Георг Мирау @GeMir

Учитель математики и информатики

Send message

В середине-конце 2000-х в любой школе США всегда был какой-нибудь ребёнок, записывавший на графический калькулятор игры.

До недавнего времени выпускной экзамен по математике в Германии подразумевал использование графического калькулятора, потому с седьмого класса у учащихся были Casio fx-CG20/CG50. С переходом обратно на девятилетнюю программу (G9) необходимость в оном отпала (достаточно обычного инженерного), но рано или поздно доберёмся и до CAS.

Код
Sub число()
  Dim x As Long, y As Double, A As Long, a1 As Double, b As Long, c As Long, d As Double, d1 As Long, d2 As Double, d3 As Long, d4 As Double, d5 As Long, y1 As Long, y2 As Double,
    y3 As Long, y4 As Double, y5 As Long, W As Integer
    
    x = 1
    A = InputBox("Введите число")
    a1 = A / 10
    b = Fix(a1)
    c = A - 10 * b
    d = A / 3
    d1 = Fix(d)
    d2 = A / 7
    d3 = Fix(d2)
    d4 = A / 9
    d5 = Fix(d4)
    y = 10
    y2 = 10
    y4 = 10
    W = 1
    
    If c = 1 And d1 <> d And d2 <> d3 And d4 <> d5 Then
        Do While y >= 0 Or y2 >= 0 Or y4 >= 0 And W = 1
            
            y = (A - 21 - 70*x) / (100*x + 30)
            y1 = Fix(y)
            y2 = (A - 81 - 90*x) / (100*x + 90)
            y3 = Fix(y2)
            y4 = (A - 1 - 10*x) / (100*x + 10)
            y5 = Fix(y4)
            
            If y = y1 Or y2 = y3 Then W = 0
            
            If y5 = y4 Then
                If y4 <> 0 Then W = 0
                x = x + 1
            Loop
        Else:
        End If
        
        If c = 3 And d1 <> d And d2 <> d3 And d4 <> d5 Then
            Do While y >= 0 Or y2 >= 0 And W = 1
                
                y = (A - 3 - 30*x) / (100*x + 10)
                y1 = Fix(y)
                y2 = (A - 63 - 90*x) / (100*x + 70)
                y3 = Fix(y2)
                
                If y = y1 Or y2 = y3 Then W = 0
                
                x = x + 1
            Loop
        Else:
        End If
        
        If c = 7 And d1 <> d And d2 <> d3 And d4 <> d5 Then
            Do While y >= 0 Or y2 >= 0 And W = 1
                
                y = (A - 7 - 70*x) / (100*x + 10)
                y1 = Fix(y)
                y2 = (A - 27 - 90*x) / (100*x + 30)
                y3 = Fix(y2)
                
                If y = y1 Or y2 = y3 Then W = 0
                
                x = x + 1
            Loop
        Else:
        End If
        
        If c = 9 And d1 <> d And d2 <> d3 And d4 <> d5 Then
            Do While y >= 0 Or y2 >= 0 y4 >= 0 And W = 1
                
                y = (A - 9 - 90*x) / (100*x + 10)
                y1 = Fix(y)
                y2 = (A - 9 - 30*x) / (100*x + 30)
                y3 = Fix(y2)
                y4 = (A - 49 - 70*x) / (100*x + 70)
                y5 = Fix(y4)
                
                If y = y1 Or y2 = y3 Or y4 = y5 Then W = 0
                
                x = x + 1
            Loop
        Else:
        End If
        
        If c = 2 Or c = 4 Or c = 6 Or c = 8 Or c = 0 Or c = 5 Or d = d1 Or d2 = d3 Or d4 = d5 Then W = 0
        If A = 3 Or A = 5 Or A = 2 Or A = 7 Then W = 1
        If A = 1 Then W = 0
        If W = 1 Then MsgBox "число простое" Else: MsgBox "число составное"
    End Sub    

Извиняюсь за возможные опечатки. С Visual Basic не знаком вообще и судя по синтаксису — к счастью.

За исключением страшненького интерфейса минусов у KeePass для себя не нашёл.

Возможности обновления 2019 до 2021 не за полную цену 2021, по всей видимости, не будет?

Возмущение по поводу нечестной конкуренции

«Нам говорили, что все будут играть по правилам, а оказывается многие (VW, BP, Nestle, Coca Cola, Pfizer…) не играют!»

Никто не утверждает, что это «правильно», но удивляться самому существованию грязных методов конкуренции, по-моему, странно.

Бизнес ведем открыто и честно. Но, как оказалось, не все делают также.

Надеюсь, вы это не серьёзно. Быть руководителем чего-либо и смотреть на мир через розовые очки наивного доверия, скажем так, несколько странно.

Стремление улучшить продукт похвально, но Google уже стал синонимом поиска и карт почти для всех, так что получается очередной Bing.

Раз уж скриншоты из GeoGebra, а она open source, не стоит ли для начала заглянуть «под капот» оной и посмотреть на имеющееся решение?

Кивок в сторону руля болидов F1? Хотя в F1 рукам по просту некуда «срываться».

Очень трудно сделать хорошую фотографию

Сканер не дружит с гелевыми ручками?

Упс, это перевод. Instagram у автора оригинала неплох.

Например, видно «кто» на самом деле рисует

Интересно а размеры / формы кубиков и т.д. не защищены патентами? 

«In 1978, LEGO's major patent expired in the US (20 years after it was filed in 1958» — отсюда.

Ещё Lego посвящена третья серия второго сезона «The Toys That Made Us» на Netflix.

Так как продукт является конкурентом серии Lego Art, хотелось бы фотографий ваших деталей бок о бок с деталями из Mosaic Designer (40179, 100 €) для сравнения качества.

Кстати, ваши детали совместимы с System?

«В Европе наборы для картин 51х51 см […] стоили до 200 евро» — в серии Art все картинки 40×40 см и все до 120 €, за исключением карты мира (31203, 250 €), которая 104×65 см.

Что для видеомонтажа как альтернативу макам посоветуете (нужен именно не стационарный ПК)?

В немецких школах большинства земель стандартным ООП-языком является Java. С 10 класса в форме Greenfoot, затем BlueJ (основы ООП, алгоритмы сортировки и поиска). В 8 классе по программе HTML/CSS/JavaScript, Lego Mindstorms EV3 и Python. В 9 Arduino. В старших классах (11,12,13) есть SQL, совсем немного Haskell и Prolog.

После возвращения к девятилетней гимназии (G9) программы продолжают изменяться и у 5 класса в этом году, к примеру, уже будет один час информатики в неделю.

Использование прикладного ПО вроде офисного пакета и графических редакторов — ITG (Informationstechnische Grundbildung) основый «компьютерной грамотности» должны быть интегрированны в основные предметы (математика, немецкий, иностранные языки). По факту до этого ещё далеко.

Те же Board Game Arena и Tabletop Simulator вполне законно копируют не только механику, но и графические элементы популярных игр, так что видимо есть возможность договориться с издателем.

Отец (Николай Николаевич), инженер-физик ядерщик, работал на Нововоронежской (ещё как минимум Козлодуй и Запорожская). Параметры эксплуатации расчитывал на логарифмической линейке. Интересно, читает ли кто из бывших коллег Хабр.

G700s (как и G700) очень уж «прожорливая», но в целом да, в общем-то без альтернатив, если не интересует RGB-подсветка и рука не детская.

вид, запах и вкус

Даже если это и было бы так, забыли ещё один немаловажный параметр: текстуру.

Многим человекам нравится когда поедаемое хрустит, тянется и жуётся, не превращаясь мгновенно в кашицу.

Многие ругаются на термонаклейки, идущие в комплекте, для термопасты же зазор, наверное, великоват? И как влияет алюминиевый «ящик» на беспроводную связь?

Присматривался к Pimoroni Fan SHIM, но хотелось бы, чтобы и плата не была совсем уж открытой.
Устройства — это хорошо, но вот оригинальная или хотя бы качественная и совместимая система охлаждения (не бестолковый Case Fan), не блокирующая доступ к CSI очень бы не помешала.

Information

Rating
Does not participate
Location
Düren, Nordrhein-Westfalen, Германия
Date of birth
Registered
Activity