Реалии нашего образования
Говорили со знакомым недавно на тему образования и вспомнилась история во время моей учебы в универе. Была у нас на 3 курсе дисциплина "Языки программирования". Изучали за год 3 языка - delphi, VB, c++.
С программированием, в целом, у меня было все нормально. Да, я его не любил, т.к. чаще всего выполнение заданий превращалось в 40% времени пишешь код, 60% времени пытаешься понять, почему он не работает как задумано, поэтому я по пути программиста и не пошел в итоге. Мне казался очень скучным и муторным этот вид деятельности. Но практические/лабораторные сдал все и в срок и правильно, т.к. понимал как оно работает.
Собственно, экзамен по этой диспицлине я завалил в итоге - на троячок сдал. Казалось бы - как, но поясняю: экзамен состоял из двух частей - теоретическая и практическая. С практический частью в принципе проблемы не возникло, сделал правильно и по фасту, а вот теория ... К примеру, был там вопрос типа: "В среде программирования Embarcadero Delphi нужно увидеть такое-то окно. Укажите ответ, в котором правильно написан алгоритм действий". Как вы уже поняли, теоретическая часть не подразумевала возможность открыть эту среду. Или еще вопросы типа "какой команды из нижеперечисленных нет в языке программирования С++?" Считалось, что студент должен это помнить наизусть, хотя, казалось бы, зачем ... А теоретическая часть именно составлала 70% оценки за экзамен, практическая часть состояла из 2 задач и составляла только 20% оценки.
В итоге получалось, что лучше экзамен сдавали не те, кто программирует хорошо (казалось бы, это и было целью дисциплины), а те, кто тупо заучил теорию. Что, как минимум, было несправедливо, но ... таковы реалии.
Операторы цикла
Пожалуйста помогите.Нужно сделать блок схему и написать программу Программа Basic. Не знаю как это делать ибо учитель ничего не объяснил.
1. Вычислить значение функции y=x+3, если x принадлежит отрезку [5,10]. вывести результат в виде табличных значений.
2. Распечатать таблицу косинусов углов в диапазоне от 150 до 300 с шагом 30.
3.Найти сумму и количество чисел на отрезке от к до м, с шагом 3[5:24].
4.Найти среднее арифметическое отрицательных чисел отрезка [-12:12].
Трудоустройство
Жена приводит мужа и говорит:
-Вот программист, возьмите на работу.
Тимлидер :
-Скажите что нибудь!
Муж :
-Гото Е2-Е4
Тимлидер:
- Это шахматист , идите нахер!.
Жена :
- Он ещё в Кобол умеет!!
Тимлид:
- Ну тогда берём!!
Сестра Мэри Кеннет Келлер, Доктор Компьютерных Наук, 1965 год
Сестра Мэри Кеннет Келлер была первой женщиной, получившей докторскую степень в области компьютерных наук. Она верила, что благодаря компьютерам, люди смогут безгранично обмениваться информацией.
Именно она помогла разработать BASIC ((универсальный код символических инструкций для начинающих): язык программирования высокого уровня и общего назначения, обеспечивающий простоту понимания для начинающего пользователя.
Программирование на Денди
Привет. На чем вы постигали чудесный мир всяких "PRINT "XYI" и GOTO 10"?
Я в детстве был мамкиным программистом вот на таком извращенческом девайсе.
В нем было много неудобств, но самое весомое - это невозможность сохранить программу. Только переписывать в тетрадку и восстанавливать потом снова. То еще удовольствие. Но я благодарен этой штуковине, с ней я худо-бедно научился FOR от NEXT отличать:)
И вот в 2020 году сбылась мечта идиота. Я нашел эмулятор, который поддерживает клавиатуру, ром картриджа с языком программирования, мануал по нему. И написал игру!
Игрой ее, правда, сложно назвать, но это не помешало мне отправить ее в зачет:)
Если на вас нахлынули воспоминания или просто захотелось покопаться программировании для Денди, то оставляю это тут:
Исходный код моей игры Jumpman Walk 2020 : https://yadi.sk/d/YqLRCke8wrenKg
Эмулятор Nestopia с поддержкой клавиатур: http://nestopia.sourceforge.net/
Rom картриджа от Subor'а : https://yadi.sk/d/dqZ6bfABwzQwxg
И еще я запилил видос про это все. Если интересно, то велком: https://youtu.be/tzyg9qi7s4E
Спасибо за внимание :)
Доступ к тексту в буфере обмена в vba/vbs
Попросили помочь со скриптами vbs. Благодаря криворукости разработчиков специфическому поведению SAP, решением проблемы было использование буфера обмена. С чтением содержимого всё просто, а вот с записью уже не так тривиально. Причём, сторонний софт туда не скопировать и не скомпилировать - огорожено. Так что пользуют "васик".
Вобщем, нарыл вот такое. Кому надо, пользуйтесь:
Функция:
Function ClipBoard(input)
If IsNull(input) Then
ClipBoard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")
If IsNull(ClipBoard) Then ClipBoard = ""
Else
CreateObject("WScript.Shell").Run "mshta.exe javascript:eval(""document.parentWindow.clipboardData.setData('text','" & Replace(Replace(Replace(input, "'", "\\u0027"), """","\\u0022"),Chr(13),"\\r\\n") & "');window.close()"")", 0,True
End If
End Function
Использование:
Получение текста:
result = ClipBoard(null)
Установка текста:
ClipBoard("новый текст")
Если установка не нужна, можно функцию не использовать, хватит простой строки:
result = CreateObject("HTMLFile").parentWindow.clipboardData.getData("Text")
Для установки через setData такой способ не подходит (М$ пофиксили возможность зачем-то), посему приходится извращаться с помощью HTA.




