Ú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
- iPhone 12 Pro 128GB Arany Garancia
- Azta Yoga Slim 7 Pro Gamer Procis Ultrabook 14" -30% AMD Ryzen 7 6900HS 16/512 RADEON 2GB 2,8K OLED
- iPhone 15 Pro Max kerestetik
- ASUS ROG Strix G15 G512LI-AL003 (15,6" 144Hz, I5 10300H, 16gb ram, GTX1650TI 4GB, 512gb SSD)
- PNY RTX 3090 24GB GDDR6X XLR8 Eladó! 199.000.-
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Promenade Publishing House Kft.
Város: Budapest