- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- vrob: Az IBM PC és a játékok a 80-as években
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Gurulunk, WAZE?!
- Argos: Szeretem az ecetfát
- MasterDeeJay: H110-es lapban 10.gen Comet Lake működhet?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Új hozzászólás Aktív témák
-
Milgram1
aktív tag
Hali,
Középsuliban tanulok most MS Visual Basic-et és úgy gondolom hogy az ami órán van az kevés mert vettünk programozási tételeket, fájlkezelést valamennyire és kb ennyi. ezekkel több összetettebb feladtat. Engem érdekelne a dolog, ha ismerném rendesen akkor itthon alkotnék vele dolgokat csak nem tudom hol lehetne tanulni rendesen. Szóval az lenne a kérdésem hogy ismer-e valaki olyan oldalt/könyvet ahol tudok tanulgatni több dolgot hogy hasznavehető programokat írhassak magamnak. -
Milgram1
aktív tag
Sziasztok!
Megtudja valaki mondani hogy miért 0-át ír az új tömbökbe?Imports System.Console
Module Module1
Sub Main()
Dim x(20), y(20), db1, db2, z(20) As Integer
Randomize()
For i = 1 To 20
x(i) = Rnd() * 99 + 1
WriteLine(x(i))
Next
db1 = 0
db2 = 0
For i = 1 To 20
If x(i) Mod 2 = 0 Then
x(i) = y(i)
db1 = db1 + 1
Else
x(i) = y(i)
db2 = db2 + 1
End If
Next
Write("páros számok:")
For i = 1 To 20
WriteLine(y(i))
Next
Write("páratlan számok:")
For i = 1 To 20
WriteLine(z(i))
Next
ReadLine()
End Sub
End Module
Új hozzászólás Aktív témák
Hirdetés
- Suzuki topik
- A lapkakészlet és az akku különbözteti meg a Motorola Edge 60 és Edge 60 Pro-t
- Videó stream letöltése
- Monitor hiba topik
- Autós topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Path of Exile (ARPG)
- Luck Dragon: Asszociációs játék. :)
- Samsung Galaxy A36 5G - a középső testvér
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Amazon Kindle (10. gen) eBook olvasó
- Latitude 5550 15.6" FHD IPS Ultra 5 135U 16GB 512GB NVMe magyar vbill ujjolv IR kam gar
- Gamer PC , i7 10700 , RX 6700 XT 12GB , 32GB 3200MHz , 512GB NVME , 1TB HDD
- Eladó Konfig Ryzen 7 9700X 32GB DDR5 1TB SSD RX6900XT 16GB!
- Eladó Gamer PC i7 14700, RTX 5070, 32 GB 6000mhz RAM, Vizhűtés, 850W 80+ Táp, 2 év Garanciával
- MacBook felváráslás!! MacBook, MacBook Air, MacBook Pro
- BESZÁMÍTÁS! Gigabyte B650M R7 7700 32GB DDR5 1TB SSD RTX 5070 12GB BE QUIET! Pure Base 500DX 650W
- LG 65C3 - 65" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- Bomba ár! Lenovo X1 Yoga 3rd - i5-8GEN I 8GB I 256GB SSD I 14" FHD Touch I W11 I CAM I Garancia!
- Bomba ár! Dell Latitude 7280 - i5-7GEN I 8GB I 256SSD I 12,5" FHD I Cam I W11 I Garancia!
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest