Rambler's Top100
   
Фотоистории  /  bad sector v.1.0.1.4 (empty green version)
Автор: Totalism
07.08.2011


0 ,
1 ,
1 ,
2 ,
3 ,
5 ,
8 ,
13 ,
21 ,
34 ,
55 ,
89 ,
144 ,
233 ,
377 ,
610 ,
987 ,
1597 ,
2584 ,
4181 ,
6765 ,

Moscow2008-2010


1 [рейтинг: +4] Проголосовало: 3
DIM F(16) F(1) = 1 F(2) = 1 FOR i = 3 TO 16:     F(i) = F(i - 1) + F(i - 2) NEXT i DIM S AS STRING S = "" FOR i = 1 TO 16:     S = S + STR$(F(i)) + ", " NEXT i S = S + "..." PRINT SModule Module1     Sub Main()         Dim A, B, C, D As Integer         Dim p1, p2 As Double         Try             Console.Write("A = ")             A = Val(Console.ReadLine())             Console.Write("B = ")             B = Val(Console.ReadLine())             Console.Write("C = ")             C = Val(Console.ReadLine())         Catch ex As Exception             Console.WriteLine("Invalid input.")             Return         End Try         If A = 0 Then             Console.WriteLine("Not a quadratic equation.")             Return         End If         D = B * B - 4 * A * C         p1 = -B / 2.0 / A         p2 = Math.Sqrt(Math.Abs(D)) / 2.0 / A         If D = 0 Then             Console.Write("x = " & p1.ToString())         ElseIf D > 0 Then             Console.WriteLine("x1 = " & (p1 + p2).ToString())             Console.WriteLine("x2 = " & (p1 - p2).ToString())         Else             Console.WriteLine("x1 = (" & p1.ToString() & "," & p2.ToString() & ")")             Console.WriteLine("x2 = (" & p1.ToString() & ",-" & p2.ToString() & ")")         End If     End Sub End ModuleOption Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Fibonacci(ByVal n As Integer) As Integer     If (n <= 2) Then         Fibonacci = 1     Else         Fibonacci = Fibonacci(n - 1) + Fibonacci(n - 2)     End If End Function  Private Sub Main()     [рейтинг: +0] Проголосовало: 2
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +3] Проголосовало: 4
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +3] Проголосовало: 4
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +5] Проголосовало: 3
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +2] Проголосовало: 4
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +2] Проголосовало: 3
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +1] Проголосовало: 3
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +5] Проголосовало: 3
Option Explicit      Declare Function AllocConsole Lib "kernel32" () As Long     Declare Function FreeConsole Lib "kernel32" () As Long     Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long     Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long     Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _            (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _            nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _            lpReserved As Any) As Long     Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long  Public Function Factorial(ByVal n As Integer) As Long     If (n = 0) Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function  Private Sub Main()     [рейтинг: +3] Проголосовало: 4
Default RGB colour space - sRGB

Default RGB colour space - sRGB



Поделиться в Facebook

[рейтинг: +1] Проголосовало: 6 Просмотров: 4464 | Назад в ленту


  • closeUP
    23.09.2011 23:07
    Мне очень нравится Ваш фотографический язык, Степан))) Крайний кадр особенно запал в душу)) Спасибо большое)))
    [присоединилось: +0] Ответить

    • Totalism
      24.09.2011 12:18
      мы, вроде, на ты были )) на здоровье! спасибо!
      [присоединилось: +0] Ответить

      • closeUP
        24.09.2011 13:31
        Этоя автоматически выкнул)) Не обращай внимания))
        [присоединилось: +0] Ответить