Forum www.zip1173.fora.pl Strona Główna www.zip1173.fora.pl
zip1173
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

inf

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.zip1173.fora.pl Strona Główna -> przedmioty
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

PostWysł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 profil autora
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

PostWysł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 profil autora
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

PostWysł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 profil autora
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

PostWysł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 profil autora
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

PostWysł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
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.zip1173.fora.pl Strona Główna -> przedmioty Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
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
Regulamin