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

• #17471 coco2 őstag 4ron #17469

  Új Válasz 2022-05-05 12:49:42 #17471

  Ú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

  Privát üzenet küldése

  

  coco2

  őstag

  válasz 4ron #17469 üzenetére

  Pártkatonákat képeznek programozónak, vagy mire van az kitalálva?

• #17470 emvy félisten 4ron #17469

  Új Válasz 2022-05-05 12:27:38 #17470

  Ú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

  Privát üzenet küldése

  

  emvy

  félisten

  válasz 4ron #17469 üzenetére

  En vettem fel embert, aki ezen keresztul kezdett el programozni tanulni. Vegulis kicsit ilyen allami mutyi , de neked valoszinuleg megeri.

• #7385 4ron senior tag 4ron #7384

  Új Válasz 2013-09-23 23:36:20 #7385

  Ú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

  Privát üzenet küldése

  

  4ron

  senior tag

  válasz 4ron #7384 üzenetére

  Nagy nehézségek árán, de megküzdöttem az első feladattal Íme a kód, ha valakit érdekelne:
  Module Module1
  
  Sub Main()
  Dim strSzoveg1, strSzoveg2 As String
  Dim intEredmeny As Integer
  
  Console.WriteLine("Első szöveg:")
  strSzoveg1 = Console.ReadLine
  Console.WriteLine("Második szöveg:")
  strSzoveg2 = Console.ReadLine
  
  intEredmeny = Ellenorzes(strSzoveg1, strSzoveg2)
  
  Console.WriteLine(vbCrLf & "A megadott szövegben a számok mennyisége: " & intEredmeny)
  
  Console.ReadLine()
  End Sub
  
  Function Ellenorzes(ByRef strElso As String, ByRef strMasodik As String) As Integer
  
  Dim intCifre As Integer
  Dim chrKarakter, chrKarakter2 As Char
  Dim i, j As Integer
  
  For i = 1 To Len(strElso)
  chrKarakter = Mid(strElso, i, 1)
  
  If Asc(chrKarakter) <= Asc("9") And Asc(chrKarakter) >= Asc("0") Then
  intCifre += 1
  End If
  
  Next
  
  For j = 1 To Len(strMasodik)
  chrKarakter2 = Mid(strMasodik, j, 1)
  
  If Asc(chrKarakter2) <= Asc("9") And Asc(chrKarakter2) >= Asc("0") Then
  intCifre += 1
  End If
  Next
  
  Return (intCifre)
  
  End Function
  
  End Module

• #6864 martonx veterán 4ron #6863

  Új Válasz 2013-03-27 11:46:54 #6864

  Ú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

  Privát üzenet küldése

  

  martonx

  veterán

  válasz 4ron #6863 üzenetére

  Ha az angol megy, akkor az egész internet előtted hever a VB tanuláshoz.

• #6827 Jim-Y veterán 4ron #6826

  Új Válasz 2013-03-09 23:06:20 #6827

  Ú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

  Privát üzenet küldése

  

  Jim-Y

  veterán

  válasz 4ron #6826 üzenetére

  van a külső ciklus ami 1-től 3-ig fut...
  van a belső ciklus, ami 1-től 2-ig fut

  játsz le:

  külső ciklus i=1 esetén belső ciklus kétszer fut le j=1, és j=2 értékekkel
  i=1 j=1
  i=1 j=2
  majd inkrementálódik külső ciklus i ciklusváltozójának értéke.

  külső ciklus i=2 esetén belső ciklus kétszer fut le j=1, és j=2 értékekkel
  i=2 j=1
  i=2 j=2
  majd inkrementálódik külső ciklus i ciklusváltozójának értéke.

  külső ciklus i=3 esetén belső ciklus kétszer fut le j=1, és j=2 értékekkel
  i=3 j=1
  i=3 j=2
  majd nem inkrementálódik külső ciklus i ciklusváltozójának értéke, mert a ciklusfeltételt elértük. Magyarán i már 3, így nem kell még egyszer futni.

  Valaki el tudná nekem magyarázni, hogy az eredmény miért lesz:
  i=1 j=1
  i=1 j=2
  i=2 j=1
  i=2 j=2
  i=3 j=1
  i=3 j=2

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