| |
oli885 | 20.10.2008 14:11:33 |
Grupa: Użytkownik
Lokalizacja: gg.6
Posty: 45 #168378 Od: 2008-10-14
| jesli ktos wie jak pobrac zadanie to prosze o pomoc -dzieki |
| |
Electra | 01.05.2024 04:02:52 |
|
|
| |
Pielek | 20.10.2008 16:06:48 |
Grupa: Użytkownik
Posty: 9 #168425 Od: 2008-10-12
| A to było coś wogóle? |
| |
Jacu | 20.10.2008 23:26:05 |
Grupa: Użytkownik
Lokalizacja: Grupa V, Oleśnica/Wrocław
Posty: 58 #168628 Od: 2008-10-12
| mówisz o tym testowym, o którym mówił na pierwszym wykladzie? |
| |
oli885 | 21.10.2008 22:04:44 |
Grupa: Użytkownik
Lokalizacja: gg.6
Posty: 45 #168966 Od: 2008-10-14
| zadanie juz pobrałem www.trochanowski.pl zadani dydaktyczne .ale chce zapytac czy ktos ma opracowanie tego zadania -czyli formatowania tekstu ,krok po kroku bede wdzieczny za pomoc .-zdrawiam |
| |
oli885 | 21.10.2008 22:05:32 |
Grupa: Użytkownik
Lokalizacja: gg.6
Posty: 45 #168967 Od: 2008-10-14
| to cwiczenie jest na zaliczenie |
| |
Jacu | 23.10.2008 12:47:41 |
Grupa: Użytkownik
Lokalizacja: Grupa V, Oleśnica/Wrocław
Posty: 58 #169330 Od: 2008-10-12
| zrobiłem kalkulator
Sub Dodawanie()
a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a + b Range("C9:E9").Select ActiveCell.Value = c End Sub
Sub Odejmowanie()
a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a - b Range("C9:E9").Select ActiveCell.Value = c End Sub
Sub Mnozenie()
a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a * b Range("C9:E9").Select ActiveCell.Value = c End Sub
Sub Dzielenie()
a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = a / b Range("C9:E9").Select ActiveCell.Value = c End Sub
Sub Silnia()
a = Worksheets("Arkusz1").Cells(7, 3).Value wynik = 1
For n = 1 To a Step 1 wynik = wynik * n Next n
Range("C9:E9").Select ActiveCell.Value = wynik End Sub
Sub SumaNaturalnych()
a = Worksheets("Arkusz1").Cells(7, 3).Value wynik = 0 licznik = 0
Do Until licznik > a wynik = wynik + licznik licznik = licznik + 1 Loop
Range("C9:E9").Select ActiveCell.Value = wynik End Sub
Sub Pierwiastek() a = Worksheets("Arkusz1").Cells(7, 3).Value wynik = Sqr(a)
Range("C9:E9").Select ActiveCell.Value = wynik End Sub
Sub Potega() a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value wynik = a For licznik = 1 To b - 1 Step 1 wynik = wynik * a Next licznik Range("C9:E9").Select ActiveCell.Value = wynik
End Sub
Sub ObliczniePierwiastkow()
a = Worksheets("Arkusz1").Cells(7, 3).Value b = Worksheets("Arkusz1").Cells(7, 4).Value c = Worksheets("Arkusz1").Cells(7, 5).Value delta = (b * b) - 4 * a * c If a = 0 Then Range("c9").FormulaR1C1 = "ERROR" Range("c10").FormulaR1C1 = "" GoTo Koniec End If If delta < 0 Then Range("c25").FormulaR1C1 = "brak rozwiązania" Range("c9").FormulaR1C1 = "" Range("c10").FormulaR1C1 = "" ElseIf delta = 0 Then Range("c25").FormulaR1C1 = "równanie ma jedno rozwiązanie" x1 = -(b / (2 * a)) Range("c9").Value = x1 Range("c10").FormulaR1C1 = ""
ElseIf delta > 0 Then Range("c25").FormulaR1C1 = "równanie ma dwa rozwiązania" 'x1 = (-b - Sqr(delta)) / 2 * a x1 = (-b - Sqr(delta)) / (2 * a) x2 = (-b + Sqr(delta)) / (2 * a) Range("C9").Value = x1 Range("C10").Value = x2 End If Koniec:
End Sub
Sub Wyczysc() Range("c7:e7").Select Selection.ClearContents Range("c9:c10").Select Selection.ClearContents Range("c25").Select Selection.ClearContents Range("c7").Select End Sub
|
| |
Berenika | 06.11.2008 22:06:57 |
Grupa: Użytkownik
Lokalizacja: gr 5 Wrocław/Odolanów
Posty: 32 #175503 Od: 2008-11-6
| ale o co chodzi?? jakie zadanie i na kiedy?? jestem zielona z tech. inf. |
| |
Electra | 01.05.2024 04:02:52 |
|
|