[Friss hozzászólások] [61-42] [41-22] [21-2] [1-1]
| Vagy mégsem....... (aylesa) |
| Naná. A hétvégén biztosan elkészül! :) (mikkamakka) |
| És mi van a mattörivel? Ott lesz valami? (aylesa) |
| Dikk a Gonosz Madár!!!! Keményen nyomatja ám a mókát! (Joconda) |
| Ok! Köszi, hogy szóltatok. Akkor lesz új. :) És izgalmas.... (mikkamakka) |
| Az a baj, hogy ezt a feladatot szinte mindegyikünk ismeri és ezért nem akarjuk beírni a megfejtést! |
| Naa, hát senki nem oldja meg a 4. feladatot? :( |
| Ahány prímszámot ki akarsz iratni a géppel. :) (mikkamakka) |
| Írd be az A1-be a számot és nyomd meg a play-t! (mikkamakka) |
| Benyomtam, de nem tudom, mit kell utána tenni. |
| Akkor benyomom heeeeeeee! CSak majd szünetben :D |
| A VB az excelen belül van, szerintem mindenkinek! Az eszköztárból kell előszedni, mert alapból nem teszi ki! (mikkamakka) |
Nekem sincs! Honnan lehet letölteni? |
| Hej! Nekem nincsen ám Visual B-em! (joconda) |
| Az Excel-eszköztárak-Visual Basic-Visual B.szerkesztő-munkafüzet1-be tudjátok bemásolni simán ctrl+c;ctrl+v vel! Megéri! Ha nem megy írjátok meg a chat-be, hogy mi a gond! (mikkamakka) :) |
Ezt másoljátok be az excel Visual Basic-be: Tuti (egy részét én írtam)
Sub primkereso()
Dim n As Integer
Dim ertek As Integer
Dim i As Integer
Dim j As Integer
For n = 1 To Cells(1, 1)
ertek = 0
For i = 2 To n - 1
If n Mod i > 0 Then
ertek = ertek + 1
End If
Next
If ertek = n - 2 Then
j = j + 1
Cells(j + 1, 1) = n
End If
Next
End Sub
Function Prim(hanyadik As Integer, szam As Integer) As Integer
Dim sor As Integer
Dim ok As Integer
sor = 2
ok = 0
If sor = hanyadik + 1 Then ok = 1
Do While ok = 0
If szam Mod Cells(sor, 1) = 0 Then ok = 1
sor = sor + 1
If sor = hanyadik + 1 Then ok = 1
Loop
If sor = hanyadik + 1 Then
Prim = szam
Else
Prim = 0
End If
End Function
Private Sub CommandButton1_Click()
Dim szam As Integer
Dim i As Integer
Dim x As Integer
Cells(1, 2) = ""
If Cells(1, 1) > 0 Then Cells(2, 1) = 2
szam = 3
i = 2
Do While (i <= Cells(1, 1)) And (szam < 32000)
x = Prim(i, szam)
If x = szam Then
Cells(i + 1, 1) = szam
i = i + 1
End If
szam = szam + 2
Loop
If szam = 32000 Then
Cells(1, 2) = "Túl nagy érték!"
Else
Cells(1, 2) = "Kész!"
End If
End Sub
Private Sub CommandButton2_Click()
Dim x As Integer
Dim i As Integer
' i = 2
x = Cells(1, 1)
If x > 32000 Then x = 32000
For i = 2 To x + 1
Cells(i, 1) = ""
Next
End Sub
|
| Valószínű, azért van ez a feladat, mert mi logikán ilyet kaptunk. (És feladtam Mikkamakkának, aki kb. másfél perc alatt oldotta meg, én meg egész infón rajta ültem. Hümm-hümm pityere-pityere!!! Na jó, de közben jegyzeteltem ám :) |
| hmm....mókás, hogy hasonló feladatot kapuntunk logika órán, csak más volt picit a szitu:D(sztem ezt is hasonlóan kell megoldani:) |
Itt a várva várt 4. feladat:)
Három bölcs elmegy a legnagyobb bölcshöz, hogy mondja meg, ki a legbölcsebb. Az elõvesz öt sapit: három feketét, két fehéret. Feltesz rájuk (összesen) két feketét, és egy fehéret úgy, hogy mindenki látja a másikét, csak a sajátját nem. a feladat: kitalálni a saját sapi színét. némi gondolkodás után az egyik feláll és azt mondja: Fekete sapka van rajtam. És tényleg!
Hogy gondolkodott?
Sapis tudósok nehezített feladványa: most is három fekete és két fehér sapka van. De a bíró igazságos akar lenni - így egyenlõ esélyeket adva a tudósoknak mindhármuk fejére feketét húz. (Ja, persze nem látják, hogy milyen színű a maradék két sapka). Namost, az egyik kiböki: rajtam fekete van!!!!! Honnan tudja?
A két megoldást csak egyszerre fogadom el, úgyhogy mindenki gondolja meg jó e mind a két megoldása, vagy sem. Aki esetleg ismerné, az ne írja meg a megoldást a fórumba.:)Kösz
Sok sikert!(A 2 feladat nem véletlenül van egymás után.)
Hamarosan megtalálható az Érdekes feladatok alrovatban is!
(mikkamakka) |
[Friss hozzászólások] [61-42] [41-22] [21-2] [1-1]
|
AJÁNLOM AZ OLDALT
Új bejegyzés
Frissítés
