Pole trójkąta
Private Sub Command1_Click()
Dim a, b, c, p, pole As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If IsNumeric(Text1.Text) = False Then
MsgBox ("Niepoprawne dane wejsciowe")
Exit Sub
End If
If IsNumeric(Text2.Text) = False Then
MsgBox ("Niepoprawne dane wejsciowe")
Exit Sub
End If
If IsNumeric(Text3.Text) = False Then
MsgBox ("Niepoprawne dane wejsciowe")
Exit Sub
End If
If (a <= 0) Or (b <= 0) Or (c <= 0) Then
MsgBox ("Niepoprawne dane wejsciowe")
Exit Sub
End If
If a + b <= c Or a + c <= b Or b + c <= a Then
MsgBox ("to nie jest trójkąt")
Exit Sub
End If
p = (a + b + c) / 2
pole = Sqr(p * (p - a) * (p - b) * (p - c))
MsgBox ("Pole: " & pole)
End Sub
Grafika rastrowa-obraz przedst.. jako raster, czyli siatka o odp. Ilości wierszy i kolumn.Kolor odpowiedniej komorki jest kodowany, niewielka dokładność przy dużej objętości.Grafika wektorowa-tworzona przez zastosowania niewielkiej liczby obiektow podst.:pky,linia okrag,tekst..System ten pamieta tylko punkty koncowe.Zapis oparty jest na formułach matematycznychGrafika fraktali-są zależnością rekurencyjną, ich wmiar nie jest liczbą i mają cechy samopodobieństwaDane-zbiór obiektów analizowanych i przetwarzanych przez komputerInformacja-fakty, idee, zwiększające zasób naszej wiedzy o otaczającej nas rzeczywistościReprezentacja cyfr. Inf: *sygnał dyskretny *kodowanie-inf zakodowana w postaci ciągów znakow *przetwarzanie-prosta realizacja algorytmu *przesyłanie-sygnał odporny na zniekształceniaReprezentacja anal.inf.: *sygnał ciagły *kodowanie-inf. Zakodowana w postaci zmian parametrow osrodka *przetwarzanie-problemy przy przetwarzaniu sygnałów *przesyłanie-zniekszatałcenia przesył i przetwarzania sygnałuRodzaje pamięci:*RAM-pamięć o dostępie swobodnym, przechowuje aktualnie wykonywany program *ROM-pamięć stała, nieścieralna, tylko do odczytu, zawiera część oprog. Systemu *CACHE-pamięć podręczna, przyśpiesza przetwarzanie danych*Pamięci zew.-służą do przechowywania danych i programów, które aktualnie nie mieszczą się w pamięci komputer az reguły mają bardzo dużą pojemność, ale znacznie dłuższy czas dostępu. np.: pamięci dyskowe, taśmoweInformatyka-dyscyplina naukowa i techniczna zajmująca się automatycznym przetwarzaniem informacjiMikroprocesor-spełnia funkcje podobne jak procesor ale jest o wiele mniejszy, ukł cyfrowy wykonany jako ukł scalony [1971r.]Schemat blokowy -diagram, na którym procedura, system albo program komputerowy są reprezentowane przez opisane figury geometryczne, połączone liniami zgodnie z kolejnością wykonywania czynności wynikających z przyjętego algorytmu rozwiązania zadania.Schemat blokowy pozwala dostrzec istotne etapy algorytmu i logiczne zależności między nimi.
Minimum
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
If IsNumeric(Text1.Text) = True Then
a = CLng(Text1.Text)
Else
MsgBox "Nieprawidłowa wartość a"
Exit Sub
End If
If IsNumeric(Text2.Text) = True Then
b = CLng(Text2.Text)
Else
MsgBox "Nieprawidłowa wartość b"
Exit Sub
End If
If IsNumeric(Text3.Text) = True Then
c = CLng(Text3.Text)
Else
MsgBox "Nieprawidłowa wartość c"
Exit Sub
End If
If a > b Then
If b > c Then
MsgBox "minimum" & c
Else
MsgBox "minimum" & b
End If
Else
If a > c Then
MsgBox "minimum" & c
Else
MsgBox "minimum" & a
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = ""
End Sub
Private Sub Command4_Click()
Text2.Text = ""
End Sub
Private Sub Command5_Click()
Text3.Text = ""
End Sub