Похожие работы на «Расчет финансового левериджа »

Расчет финансового левериджа
Экономико-математическое моделирование, Расчет финансового левериджа , Работа Курсовая ... 1) v_pr_ak.Text = "0" v_obl.Text = "0" v_ob_ak.Text = "0" End Sub Sub EXT_Click () End End Sub Sub Form_Load () kol = 0 summa = 0 End Sub Sub V_OB_AK_ ...
... 0" End If End Sub Sub V_PR_AK_Change () If Val(v_pr_ak.Text) < 0 Then MsgBox "Требуется ввести положительное число" v_pr_ak.Text = "0" End If End Sub ...


Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... X Else .Left = MouseX .Width = X - MouseX End If End With End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y ...
... Enabled = True Label4.Enabled = True End If End Sub Public Sub CardShow(NumRegCard As Integer) Path.Text = Registrations(NumRegCard).FileName ListExt. ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... Check2.Caption + Chr$(13) + Chr$(10) Check2.Enabled = False End If End Sub Private Sub Check3_Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else ...
... Chr$(10) Labell.Enabled = False Combo2.Enabled = True Label2.Enabled = True End Sub Private Sub Combo2_Click() Combo2.Enabled = False Label2.Enabled ...


Создание программных продуктов для решения задач [нестрогое соответствие]
Кибернетика, Создание программных продуктов для решения задач, Курсовая ... VB.TextBox Текст 3 Height = 285 Left = 5040 TabIndex = 11 Top = 2280 Width = 1095 End Begin VB.TextBox Текст 2 Height = 285 Left = 5040 TabIndex = 10 ...
... VB.Label Метка 1 Caption = "ТЕКУЩЕЕ ВРЕМЯ" Height = 255 Left = 3720 TabIndex = 8 Top = 360 Width = 1575 End Begin VB.Menu mnuФайл Caption = "Файл" ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... else St2 else St3; эквивалентен оператор if L1 then begin if L2 then St1 else St2; end else St3; В этом операторе для повышения структурированности ...
... запись не прочитана, сразу выход из цикла} end; {Case} end; {цикла For} finally CloseFile(f1); {закрываем файл-источник} CloseFile(f2); {закрываем ...


Защита данных от несанкционированного доступа [нестрогое соответствие]
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... FName, length(FName)-2, 3) = 'EXE') or (copy(FName, length(FName)-2, 3) = 'COM') then begin {Преобразование имени файла} for i:= length(fname) downto ...
... меню} procedure TMyApp.InitMenuBar; var R: TRect; begin {Получить меню из файла ресурсов по ключу "Config" - функция получения} {даты BIOS; модуль ...


Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология [нестрогое соответствие]
Программирование и комп-ры, Семантический анализ структуры EXE файла и дисассемблер (с примерами и исходниками), вирусология , Работа Курсовая ... case ParsedLine.OpCode[3] of (* test for prefix opcodes *) ':', 'P', 'C' : begin Val('$'+ParsedLine.HexCode, HexByte, Status); case HexByte of $2E: ...
... f_out, 'DS:'); Prefix := NoPrefix end; end; end; write(f_out, Operand2); end else write(f_out, tab); end; if Comment <= Ord(Line[0]) then writeln(f_ ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c: ...
... 1000); clrscr; menu; goto menu2; end; end else {-вывод заставки- -} if l=6 then begin zast; menu; goto menu2; end; {-выход- -} if l=7 then exitt else ...


Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости [нестрогое соответствие]
Математика, Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости, Курсовая ... abs(x)>abs(y) then begin if x>0 then arc:=1+y/x else arc:=5+y/x; end else begin if y>0 then arc:=3-x/y else begin if abs(y)=0 then arc:=0 else arc:=7- ...
... l^.r; dr^.u:=nil; l^.r:=nil; end; while l<>nil do begin c:=l^.u; if c<>nil then begin if c^.l=l then begin if c^.u<>nil then begin if c^.u^.l=c then ...


Технический анализ рынка ценных бумаг на примере акций РАО ЕЭС Россия 2001-2002 гг. [нестрогое соответствие]
Программирование и комп-ры, Технический анализ рынка ценных бумаг на примере акций РАО ЕЭС Россия 2001-2002 гг. , Работа Курсовая TObject); var i,chislo,pr,po,x : integer; ak : integer; // число акций на руках mon : integer; // деньги в наших руках nac,n1,n2,n3,ref : double; ...
... strtofloat(izm(realn[b3[0]])))+mon; ak:=0; end; for i:=low(a3)+1 to high(a3) do begin if (a3[i]=1) and (b3[i]strtofloat(izm(thirt[i+1])) then pologen5 ...