Új hozzászólás Aktív témák

• ArchElf addikt

  #1531

  #1529 ArchElf

  2011-11-24 15:33:44

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  ArchElf

  addikt

  #1529 ArchElf

  #1529 ArchElf

  Helyes VB szintaktikával (c# -al volt az előző kód keverve, sorry)
  If (ev Mod 400 = 0) Then
  szokoev = True
  ElseIf (ev Mod 100 = 0) Then
  szokoev = False
  ElseIf (ev Mod 4 = 0) Then
  szokoev = True
  Else
  szokoev = False
  End If

  AE

  Egészbe:
  Sub Main()
  Dim ev As Integer
  Dim szokoev As String
  ev = 0
  szokoev = ""
  If Integer.TryParse(Console.ReadLine(), ev) Then
  
  If (ev Mod 400 = 0) Then
  szokoev = ""
  ElseIf (ev Mod 100 = 0) Then
  szokoev = "nem "
  ElseIf (ev Mod 4 = 0) Then
  szokoev = ""
  Else
  szokoev = "nem "
  End If
  Console.WriteLine("A {0}. év {1}szökőév.", ev, szokoev)
  Else
  Console.WriteLine("A beadott érték nem szám.")
  End If
  Console.ReadKey()
  End Sub

  C#-ban a % a VB-s MOD (egész osztás maradéka).

  AE

Új hozzászólás Aktív témák