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

• #1547 RexpecT addikt martonx #1544

  Új Válasz 2011-12-04 14:54:30 #1547

  Ú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

  

  RexpecT

  addikt

  válasz martonx #1544 üzenetére

  Ha Neked ennyi nem elég a feladat megértéséhez, az nem az én bajom . Prog.hu-n egyből kaptam választ pedig az itteni HSZ-emet írtam oda is be.

• #1542 RexpecT addikt martonx #1541

  Új Válasz 2011-12-03 13:51:00 #1542

  Ú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

  

  RexpecT

  addikt

  válasz martonx #1541 üzenetére

  Ott volt a leírásban, a függvény megkap egy sztringet amiben számok állnak vesszővel elválasztva ezek közül adja vissza a két legnagyobb szám összegét:

  Function osszead(param As String)
  Dim szoveg() As String, szam1 As Integer, szam2 As Integer, i As Integer
  szoveg = Split(param)
  For i = LBound(szoveg) To UBound(szoveg)
  If szam1 < szoveg(i) Then
  If szam2 < szoveg(i) Then
  szam1 = szam2
  szam2 = szoveg(i)
  Else
  szam1 = szoveg(i)
  End If
  End If
  Next i
  osszead = szam1 + szam2
  End Function
  
  Sub main()
  Dim szamok As String
  szamok = "1 2 3 20 5 6 8 9 8"
  MsgBox osszead(szamok)
  End Sub

• #1540 RexpecT addikt RexpecT #1539

  Új Válasz 2011-12-03 13:21:22 #1540

  Ú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

  

  RexpecT

  addikt

  válasz RexpecT #1539 üzenetére

  Már tárgytalan .

• #1539 RexpecT addikt

  Új Válasz 2011-12-03 11:51:45 #1539

  Ú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

  

  RexpecT

  addikt

  Lenne egy feladatom:
  Készítsen olyan függvényt, ami a paraméterként egyetlen sztringet kap, ami egész számokat tartalmaz szóközzel elválasztva. A függvény adja vissza a két legnagyobb szám összegét. A sztring legalább két számot tartalmaz.

  Function osszead(param As String)
  
  Dim szoveg() As String
  Dim szam1 As Integer
  Dim szam2 As Integer
  szoveg = Split(param)
  
  
  First = LBound(szoveg)
  Last = UBound(szoveg)
  For i = First To Last - 1
  For j = i + 1 To Last
  If szoveg(i) > szoveg(j) Then
  Temp = szoveg(j)
  szoveg(j) = szoveg(i)
  szoveg(i) = Temp
  End If
  Next j
  Next i
  
  szam1 = szoveg(i)
  szam2 = szoveg(j)
  
  osszead = szam1 + szam2
  
  End Function
  
  Sub main()
  Dim szamok As String
  szamok = "1 2 3 20 5 6 8 9 8"
  MsgBox osszead(szamok)
  End Sub

• #1455 RexpecT addikt

  Új Válasz 2011-09-21 18:47:39 #1455

  Ú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

  

  RexpecT

  addikt

  Értem, köszi a válaszokat.Ezen kívül még lesz Progab1 illetve Proglab2 tárgyam is majd a következő és a rákövetkező félévben.Eddig ott vagy C# vagy JAVA vagy PHP volt, ha jól tudom, de most lehet változtatnak.De a lényeg, hogy hasznát lehet venni a munkaerőpiacon .

• #1452 RexpecT addikt

  Új Válasz 2011-09-20 22:33:15 #1452

  Ú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

  

  RexpecT

  addikt

  Előző félévben C++ -ot tanultam az egyetemen, ebben a félévben VB lesz.Mennyire piacképes a nyelv?Szerintem a C++ -ot érdemesebb lett volna folytatni, szélesebb felhasználást biztosít.Vagy rosszul gondolom, jöhetnek a Pro és Kontra érvek .Egyébként Gazdaság Informatika szakra járok.

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