Skip to content

Instantly share code, notes, and snippets.

View spellancer's full-sized avatar

Sarkis Nanyan spellancer

  • Russian Federation
View GitHub Profile
sSQLL= "SELECT ""Название"" , ""ID"" FROM ""Вид соревнований"" "
sSQL= "SELECT ""Место"" , ""Страна"" , ""Вид соревнований"" FROM ""Ведомость"" "
oRes=oStatement.executeQuery(sSQLL)
oResult=oStatement1.executeQuery(sSQL)
Do While oResult.next()
Do While oRes.next()
Sub zap(oEvent)
Dim i as Integer
i=0
oForm = oEvent.Source.getModel().getParent()
oCon=oForm.ActiveConnection 'объект для доступа к базе данных
oStatement=oCon.CreateStatement() 'объект для выполнения запросов
REM ***** BASIC *****
Function replace(str as String,sFrom as String,sTo as String) as String
'Заменяет в строке str все подстроки sFrom на sTo и возвращает полученную строку
Dim s as String
Dim i as Integer
s=str
i=1
Do While true
if i>len(s) then
bundle install
Fetching gem metadata from https://rubygems.org/...........
Fetching gem metadata from https://rubygems.org/..
Using rake (0.9.2.2)
Using i18n (0.6.1)
Using multi_json (1.3.6)
Using activesupport (3.2.8)
Using builder (3.0.4)
Using activemodel (3.2.8)
Using erubis (2.7.0)
gem install pg -v '0.14.1'
Building native extensions. This could take a while...
ERROR: Error installing pg:
ERROR: Failed to build gem native extension.
/home/sarkis/.rbenv/versions/1.9.3-p286/bin/ruby extconf.rb
checking for pg_config... no
No pg_config... trying anyway. If building fails, please try again with
--with-pg-config=/path/to/pg_config
checking for libpq-fe.h... no
gem () {
typeset result
(
typeset rvmrc
rvm_rvmrc_files=("/etc/rvmrc" "$HOME/.rvmrc")
if [[ -n "${rvm_prefix:-}" ]] && ! [[ "$HOME/.rvmrc" -ef "${rvm_prefix}/.rvmrc" ]]
then
rvm_rvmrc_files+=("${rvm_prefix}/.rvmrc")
fi
for rvmrc in "${rvm_rvmrc_files[@]}"
@spellancer
spellancer / gist:3938127
Created October 23, 2012 10:46
model Zadacha (GPSS)
generate ,,,42
prib1 storage 35
prib2 storage 4
a queue reg1
enter prib1
depart reg1
advance 500,10
@spellancer
spellancer / gist:3937998
Created October 23, 2012 10:04
model LAB1.4 (GPSS)
### ссылка на файлы: http://d.pr/f/YaJL
PRIB STORAGE 2
GENERATE 7,3
QUEUE REG
QUEUE REG1
ENTER PRIB
DEPART REG1
Удалить ФИО спортсменов, занимавших последние места.
Добавить пропущенный результат.
Изменить место провидения соревнований.
#encoding: utf-8
include Math
r = 5
a = 0.123
b = 1.951
e = 0.00001
i = 0
x = (a + b) / 2