| | |
| Reklama |
|
| |
|
|
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 |
| |
|
|
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:04
|
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:31
|
Grupa: Użytkownik
Lokalizacja: gg.6
Posty: 45
#168967
Od: 2008-10-14
|
to cwiczenie jest na zaliczenie |
| |
|
|
Jacu
|
23.10.2008 12:47:40
|
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:56
|
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. |
| | |
| Reklama |
|
