Mahacode Free Source Code

#include <stdio.h>

int count;

int main(void)
{
  extern int count; /* this refers to global count */

  count = 10;
  printf("%d", count);

  return 0;
}

public class Retirement {
  public static void main(String[] args) {

    int goal = 100;
    int payment = 500;
    if (goal < payment) {
      System.out.println("Happy.");

    }
  }
}
           
       

try: 1/0
except ZeroDivisionError: 
   print "caught divide-by-0 attempt"

Imports System

Public Class MainClass
    Public Delegate Sub CallBackFunc()
    Private Shared m_cbFunc As CallBackFunc

    Public Shared Sub Main()
        RegisterDelegate(AddressOf CallBackHandler1)
        RegisterDelegate(AddressOf CallBackHandler2)
        CallDelegates()
    End Sub

    Shared Public Sub CallBackHandler1()
        Console.WriteLine("Callback 1 returned ")
    End Sub

    Shared Public Sub CallBackHandler2()
        Console.WriteLine("Callback 2 returned ")
    End Sub

    Shared Public Sub RegisterDelegate(ByRef cbFunc As CallBackFunc)
        m_cbFunc = CType(System.Delegate.Combine(m_cbFunc, cbFunc), CallBackFunc)
    End Sub
  
    Shared Public Sub CallDelegates()
        m_cbFunc()
    End Sub

End Class

Imports System

Public Class MainClass
    
    Shared Sub Main()
        Dim loc1 As New Location(200, 300)

        Console.WriteLine("Loc1 location: {0}", loc1)

        Dim loc2 As New Location(  )
        Console.WriteLine("Loc2 location: {0}", loc2)

        myFunc(loc1)

        Console.WriteLine("Loc1 location: {0}", loc1)
    End Sub

    Shared Public Sub myFunc(ByVal loc As Location)
        loc.XVal = 50
        loc.YVal = 100
        Console.WriteLine("Loc1 location: {0}", loc)
    End Sub

End Class

      ‘ declare a Structure named Location
     Public Structure Location
         ‘ the structure has private data
         Private myXVal As Integer
         Private myYVal As Integer

         ‘ constructor
         Public Sub New( _
            ByVal xCoordinate As Integer, ByVal yCoordinate As Integer)
             myXVal = xCoordinate
             myYVal = yCoordinate
         End Sub ‘New

         ‘ property

         Public Property XVal(  ) As Integer
             Get
                 Return myXVal
             End Get
             Set(ByVal Value As Integer)
                 myXVal = Value
             End Set
         End Property

         Public Property YVal(  ) As Integer
             Get
                 Return myYVal
             End Get
             Set(ByVal Value As Integer)
                 myYVal = Value
             End Set
         End Property

         ‘ Display the structure as a String
         Public Overrides Function ToString(  ) As String
             Return String.Format("{0}, {1}", xVal, yVal)
         End Function ‘ToString
     End Structure ‘Location