Új hozzászólás Aktív témák
-
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.
-
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 .
-
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 -
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
Új hozzászólás Aktív témák
- callmeakos: Szabad e használt OLED televíziót venni?
- Politika
- PlayStation 5
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Milyen asztali médialejátszót?
- World of Tanks - MMO
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Luck Dragon: Asszociációs játék. :)
- Hobby elektronika
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- További aktív témák...
- HP ProBook 645 G4 szép állapotban, AMD Ryzen 2700U, magyar világítós bill. gyári gari 2024-ig
- HP EliteBook 860 G10 (A13YRE8) - ÚJ - 16" üzleti notebook - i7-1365U, 16GB, 512SSD, W11 pro
- HP 14-em0001ne - ÚJ - 14" FullHD IPS notebook - Ryzen 3-7320U, 8GB
- Új bontatlan Sandisk Ultra 3d SSD 4TB és Samsung 2.5 870 Evo 500GB SATA3 (MZ-77E500B)
- BONTATLAN ÚJ iPad Pro 2021 2022 M1 M2 Chip 11 és 12,9 128-2000GB DEÁK TÉRNÉL AZONNAL ÁTVEHETŐ
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen