|
www.zip1173.fora.pl zip1173
|
Zobacz poprzedni temat :: Zobacz następny temat |
Autor |
Wiadomość |
robsQN
Dołączył: 18 Paź 2007
Posty: 46
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: SKMK
|
Wysłany: Wto 22:58, 29 Kwi 2008 Temat postu: inf |
|
|
macie świnie
Kod: |
Module
Module1
Sub Main()
' Deklaracja zmiennych
Dim A, B, C As String
Dim Objetosc As Single
Dim Pole As Single
' Wprowadzanie danych
A = InputBox("Wprowadź wymiar A", "Wprowadzanie danych prostopadłościanu")
B = InputBox("Wprowadź wymiar B", "Wprowadzanie danych prostopadłościanu")
C = InputBox("Wprowadź wymiar C", "Wprowadzanie danych prostopadłościanu")
' Obliczenia
Objetosc = Val(A) * Val(B) * Val(C)
Pole = (2 * (Val(A) * Val(B) + Val(A) * Val(C) + Val(B) * Val(C)))
' Wyświetlanie wyniku
MsgBox("Wartość A=" + A + "Wartość B=" + B + "Wartość C=" + C)
MsgBox("Objętość prostopadłościanu =" + Str(Objetosc))
MsgBox("Pole powierzchni prostopadłościanu =" + Str(Pole))
End Sub
End
Module |
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
|
|
Zobacz poprzedni temat :: Zobacz następny temat |
Autor |
Wiadomość |
robsQN
Dołączył: 18 Paź 2007
Posty: 46
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: SKMK
|
Wysłany: Wto 23:00, 29 Kwi 2008 Temat postu: |
|
|
Kod: | Module
Module1
Sub Main()
' Deklaracja zmiennych
Dim X1 As Single, Y1 As Single, X2 As Single, Y2 As Single
Dim Dlugosc, Srodek_X, Srodek_Y As Single
' Wprowadzanie danych
X1 = InputBox("Wprowadź współrzędną X1", "Wprowadzanie współrzędnych odcinka AB")
Y1 = InputBox("Wprowadź współrzędną Y1", "Wprowadzanie współrzędnych odcinka AB")
X2 = InputBox("Wprowadź współrzędną X2", "Wprowadzanie współrzędnych odcinka AB")
Y2 = InputBox("Wprowadź współrzędną Y1", "Wprowadzanie współrzędnych odcinka AB")
' Obliczenia i wyswietlanie wyniku
Dlugosc = Math.Sqrt((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
MsgBox("Długość odcinka wynosi = " + Str(Dlugosc))
Srodek_X = (X1 + X2) / 2
Srodek_Y = (Y1 + Y2) / 2
MsgBox("Środek odcinka AB ma współrzędne (" + Str(Srodek_X) + "," + Str(Srodek_Y) + ")")
End Sub
End
Module |
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Zobacz poprzedni temat :: Zobacz następny temat |
Autor |
Wiadomość |
robsQN
Dołączył: 18 Paź 2007
Posty: 46
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: SKMK
|
Wysłany: Wto 23:00, 29 Kwi 2008 Temat postu: |
|
|
Kod: |
Module
Module1
Sub Main()
' Deklaracja stałych i zmiennych
Dim A, B, C, Max As Integer
A = InputBox("Wprowadź wartość A")
B = InputBox("Wprowadź wartość B")
C = InputBox("Wprowadź wartość C")
' Wyznaczanie max 3 liczb
Max = A
If B > Max Then Max = B
If C > Max Then Max = C
' Wyświetlenie wyniku
MsgBox("Maximum =" + Str(Max))
End Sub
End
Module |
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Zobacz poprzedni temat :: Zobacz następny temat |
Autor |
Wiadomość |
robsQN
Dołączył: 18 Paź 2007
Posty: 46
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: SKMK
|
Wysłany: Wto 23:02, 29 Kwi 2008 Temat postu: |
|
|
Kod: | Module
Module1
Sub Main()
Dim No As Integer
Dim Pisownia As String
No = InputBox("podaj cyfrę", "Wprowadzanie danych")
Select Case No
Case 1
Pisownia = "one"
Case 2
Pisownia = "two"
Case 3
Pisownia = "three"
Case 4
Pisownia = "for"
Case 5
Pisownia = "fajf"
Case 6
Pisownia = "six"
Case 7
Pisownia = "sewen"
Case 8
Pisownia = "ejt"
Case 9
Pisownia = "nejn"
Case 0
Pisownia = "zero"
End Select
' Wyświetlanie wyniku
MsgBox("Letter" + Str(No) + " we write: " + Pisownia)
End Sub
End
Module |
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
Zobacz poprzedni temat :: Zobacz następny temat |
Autor |
Wiadomość |
robsQN
Dołączył: 18 Paź 2007
Posty: 46
Przeczytał: 0 tematów
Ostrzeżeń: 0/5 Skąd: SKMK
|
Wysłany: Wto 23:03, 29 Kwi 2008 Temat postu: |
|
|
Kod: | Module
Module1
Dim Tabl(0 To 5) As Single 'zmienna tablicowa globalna = to na górze pod option explicit
Sub WczytajMacierz()
Dim i As Integer
' pętla iteracyjna wczytujaca dane do tablicy
For i = 1 To 5
Tabl(i) = InputBox("Podaj wartość elementu: " + Str(i), "Wprowadzanie danych")
Next i
End Sub
Sub Main()
Dim srednia As Single
Dim i As Integer
'Wywołanie podprogramu wczytujacego dane
Call WczytajMacierz()
'Obliczanie średniej
srednia = 0
For i = 1 To 5
srednia = srednia + Tabl(i)
'sumowanie elementow tablicy
Next i
srednia = srednia / 5
'Wyswietlenie wyniku
MsgBox("Średnia wynosi =" + Str(srednia))
End Sub
End
Module |
Post został pochwalony 0 razy
|
|
Powrót do góry |
|
|
|
|
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach
|
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
|