Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: zadania -pomocy nie znam się
aceman




Typ: neutral
Postów: 4
Zarejestrowany: Jun 2003
zadania -pomocy nie znam się

Prosiłbym o pomoc w rozwiązaniu podanych przykładów. Jestem laikiem w tych sprawach, dostałęm do wykonania takie zadanka a niemiałem prędzej większej styczności z vb. Prosze o pomoc

1) Wypisz liczby od 5 do 15 w porządku rosnącym
2) Wypisz liczby z podanego przez uzytkownika zakresu, w pożądku malejącym
3) Oblicz sumę wszystkich liczb całkowitych , oblicz średnią arytmetyczną tych liczb które będą  podanego zakresu
4) Napisz program w którym użytkownik będzie na początku podawał ile liczb wpisze, a następnie będzie podawał te liczby. Program powinien zsumować te wartości, a także znajdź ich średnią
5) Do powyższego zadania dodaj jeszcze zliczanie liczb dodatnich, ujemnych oraz zera
6) Napisz program który będzie wypisywał od 1 do liczby podanej przez użytkownika, wartości podzielne przez 3.  Np. Gdy jako górny zakres zostanie podana liczba 10 to program wyświetli 3,6,9.
7) Powyższy program udoskonalić tak by działał nie tylko dla 3 ale dla liczby również podanej przez użytkownika
8) Powyższe 2 programy udoskonalić tak by podawano również dolny zakres(zastosuj dzielenie modulo, które zwraca resztę z dzielenia np. 5 mod 3=2, 6 mod 3=0)
9) Napisz program w którym użytkownik ma możliwość podania 10 różnych wartości (liczbowych lub wartości tekstowych). Program powinien policzyć ile wśród wprowadzonych wartości jest liczb a ile tekstów. Program powinien podać sumę tych liczb. Teksty również należy dodać, ale tak by się nie skleiły czyli oddzielając poszczególne słowa np. Spacjami.
10) Napisz program w którym użytkownik może podawać liczby. Po wpisaniu każdej z liczb powinno pojawić się pytanie o to czy operacja powinna być kontynuowana (msgbox z przyciskami tak nie). Odpowiedź pozytywna umożliwi dalsze wpisywanie liczb. Odpowiedź negatywna zakończy wpisywanie danych, a następnie powinna się pokazać statystyka wprowadzonych liczb: suma,średnia, ilość liczb dodatnich, ujemnych i zer.
11) Napisz program, analogiczny jak powyższy przy czym nie ma pytania o kontynuacje, przerwanie nastąpi gdy użytkownik poda 0
12) Napisz program, analogiczny jak powyższy przy czym przerwanie nastąpi gdy użytkownik poda zamiast liczby tekst.
13) Napisz program w którym uzytkownik podaje zakres z którego komputer losuje dowolną liczbę całkowitą. Użytkownik ma za zadanie odgadnąć jaka to jest liczba. Po wprowadzeniu proponowanej liczby, gdy ta jest błędna program podpowiada czy wprowadzono za dużo czy za mało. Po odgadnięciu pojawia się informacja również o tym w ilu próbach rozwiązano zadanie

03-06-2003 09:15
Pokaż profil aceman  Wyślij email do aceman        458328
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
co do zad. 10.....

nie powiem ci czy to zadziala bo pisalem z pamieci ale bedzie to cos mniej wiecej takiego:

Private Sub Form_Load()
Dim ilosc_wprowadzen As Integer
Dim pytanie
Dim wprowadzona As Integer
Dim liczba() As Integer
Dim ujemne, dodatnie, zera, suma, srednia

ilosc_wprowadzen = 0
procedurka:
wprowadzona = InputBox("podaj liczbę", "wprowadzanie danych" 'pobranie liczby
ilosc_wprowadzen = ilosc_wprowadzen + 1
liczba(ilosc_wprowadzen) = wprowadzona
'sprawdzamy czy jest dodatnia, ujemna czy zero
If wprowadzona < 0 Then ujemne = ujemne + 1
If wprowadzona > 0 Then dodatnie = dodatnie + 1
If wprowadzona = 0 Then zera = zera + 1
'pytamy czy wprowadzac dalej
pytanie = MsgBox("Czy chcesz podać kolejną liczbe?", vbYesNo & vbQuestion, "pytanie"
If pytanie = 6 Then 'msgbox zwraca 6 jezeli nacisnieto "tak"
GoTo procedurka
Else
'teraz liczenie sumy wszystkich liczb:
For i = 1 To liczba_wprowadzen
suma = suma + liczba(i)
Next i
'teraz zajmiemy sie srednia:
srednia = suma / liczba_wprowadzen
'no i mamy wszystkie dane potrzebne do statystyki
'czyli sume; srednia; ujemne; dodatnie i zera
'teraz tylko wprowadzasz te dane np. do labeli i po klopocie

mam nadzieje ze ci sie to przyda... nad innymi moze pokombinuje w wolnej chwili to dorzuce

Pozdrawiam


_____________________________________________
SANTA!!

03-06-2003 13:57
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
ad zad. 1,2,3,4,5

przeanalizuj tylko powyzszy kod i wyrzuc co nie potrzebne, bo to jest w sumie caly czas jeden i ten sam program


_____________________________________________
SANTA!!

03-06-2003 14:24
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
male sprostowanie

male sprostowanie - kod ktory ci wczesniej podalem nie chcial mi dzialac jak go wrzucilem do VB, takze nanioslem male poprawki - i kod powinien wygladac tak:

Private Sub Form_Load()
Dim n As Integer
Dim pytanie
Dim wprowadzona As Integer
Dim ujemne, dodatnie, zera, suma, srednia As Integer

ilosc_wprowadzen = 0
procedurka:
wprowadzona = InputBox("podaj liczbę", "wprowadzanie danych" 'pobranie liczby
n = n + 1
'sprawdzamy czy jest dodatnia, ujemna czy zero i sumujemy
If wprowadzona < 0 Then ujemne = ujemne + 1
If wprowadzona > 0 Then dodatnie = dodatnie + 1
If wprowadzona = 0 Then zera = zera + 1
suma = suma + wprowadzona
'pytamy czy wprowadzac dalej
pytanie = MsgBox("Czy chcesz podać kolejną liczbę?", vbQuestion & vbYesNo, "pytanie"
'vbQuestion spowoduje wyswietlenie ikonki " ? " a vbYesNo to dwa klawisze
If pytanie = 6 Then GoTo procedurka 'msgbox zwraca 6 jezeli nacisnieto "tak"
If pytanie = 7 Then srednia = suma / n

to masz poprawione zadanie 10
gotowca ci przesle na maila!

Pozdrawiam!


_____________________________________________
SANTA!!

04-06-2003 17:23
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
lamas



Typ: neutral
Postów: 35
Zarejestrowany: May 2003

Mozna troszke prosciej i czysciej

pytanie = MsgBox("Czy chcesz podać kolejną liczbę?", vbQuestion & vbYesNo, "pytanie"

select Case pytani

case 6
procedurka 'msgbox zwraca 6 jezeli nacisnieto "tak"

case 7
srednia = suma / n

end select

to masz poprawione zadanie 10
gotowca ci przesle na maila!


_____________________________________________
CCCP (Rosyjski czyt: SSSR) czytaj po polsku Córka Cesarza Całuje Piekaża

Wim że stare

04-06-2003 18:32
Pokaż profil lamas  Wyślij email do lamas   Odwiedź stronę lamas       817054
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
moze i prosciej.....

moze i prosciej przez zastosowanie select case ale
ja sie steram wystrzegac tej funkcji, poniewaz nieraz narobila mi klopotu... z if'ami dzialalo wszystko a z select za chiny nie chcialo.....


_____________________________________________
SANTA!!

04-06-2003 21:15
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
aceman




Typ: neutral
Postów: 4
Zarejestrowany: Jun 2003
dzięki za to 10 zadanko

zrobiłem jeszcze 1,2,11
z pozostałymi jest problem czy ktoś pomoże

05-06-2003 20:07
Pokaż profil aceman  Wyślij email do aceman        458328
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
co do zad 12....

zadanie 12 zrob tak samo jak 11 z ta roznica ze wprowadz taki fragment kodu:

'jak bylo wprowadzona=inputbox(blebleble) to ponizej:
If Is Numeric wprowadzona Then GoTo procedurka
'jesli wprowadzona nie bedzie wartoscia liczbowa to powinno isc dalej czyli jak dobrze pamietam powinno przejsc do wyswietlenia sumy, sredniej itd. jezeli zas bedzie to wartosc liczbowa to przejdzie do ponownego pobrania liczby.
w razie problemow pisz.
Pozdrawiam!


_____________________________________________
SANTA!!

05-06-2003 21:43
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 12

Private Sub Form_Load()
Dim n As Integer
Dim pytanie
Dim wprowadzona 'As Integer
Dim ujemne, dodatnie, zera, suma, srednia As Integer

ilosc_wprowadzen = 0
procedurka:
wprowadzona = InputBox("podaj liczbę", "wprowadzanie danych" 'pobranie liczby
n = n + 1
If IsNumeric(wprowadzona) Then
'sprawdzamy czy jest dodatnia, ujemna czy zero i sumujemy
If wprowadzona < 0 Then ujemne = ujemne + 1
If wprowadzona > 0 Then dodatnie = dodatnie + 1
If wprowadzona = 0 Then zera = zera + 1
suma = suma + Val(wprowadzona) 'val(wprowadzona) dlatego ze
'wprowadzona jest tu stringiem i aby przeprowadzic obliczenia
'musimy znac wartosc liczbowa tego stringu
GoTo procedurka
Else

srednia = suma / n
Label1.Caption = Label1.Caption & "  " & suma
Label2.Caption = Label2.Caption & "  " & srednia
Label3.Caption = Label3.Caption & "  " & ujemne
Label4.Caption = Label4.Caption & "  " & dodatnie
Label5.Caption = Label5.Caption & "  " & zera
End If
End Sub

gotowca posle ci mailem!
Pozdrawiam


_____________________________________________
SANTA!!

06-06-2003 11:34
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
aceman




Typ: neutral
Postów: 4
Zarejestrowany: Jun 2003
zad 9

wszystko mi działa w tym zadaniu prócz zliczania tekstu. kurcze niemam kodu źródłowego (jestem w pracy ), skończyłem go tworzyć późno wieczorem i z tego co pamiętam to przyjmował same teksty albo liczby (sumował robił  średnie) a gdy było troche liczb i liter to się wywalał. wyśle go po 18 gdy wróce do domu. Chyba ze ktoś rozwiąże ten problem do tej godzinki. wielkie dzięki za zadanko 12

06-06-2003 12:01
Pokaż profil aceman  Wyślij email do aceman        458328
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 9

Private Sub Form_Load()
Dim n As Integer
Dim pytanie
Dim wprowadzona 'As Integer
Dim ujemne, dodatnie, zera, suma, srednia As Integer
Dim ilosc_liczb, ilosc_textow, ilosc_wprowadzen As Integer
Dim text_koncowy As String
ilosc_wprowadzen = 0
procedurka:
If ilosc_wprowadzen = 10 Then GoTo wyswietl
wprowadzona = InputBox("podaj liczbę, lub tekst", "wprowadzanie danych"
If IsNumeric(wprowadzona) Then
ilosc_liczb = ilosc_liczb + 1
suma = suma + Val(wprowadzona)
ilosc_wprowadzen = ilosc_wprowadzen + 1
GoTo procedurka

Else
text_koncowy = text_koncowy & " " & wprowadzona
ilosc_textow = ilosc_textow + 1
ilosc_wprowadzen = ilosc_wprowadzen + 1
GoTo procedurka

wyswietl:
Label1.Caption = Label1.Caption & "  " & suma
Label2.Caption = "Ilość liczb : " & ilosc_liczb
Label3.Caption = "Ilość tekstów : " & ilosc_textow
Label4.Caption = text_koncowy
End If
End Sub

gotowiec przyjdzie mailem.

[Post edytowany dnia 06-06-2003 12:10 przez Alternativ]


_____________________________________________
SANTA!!

06-06-2003 12:10
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
aceman




Typ: neutral
Postów: 4
Zarejestrowany: Jun 2003
padam do stóp

poraz kolejny wielkie dzięki za okazaną mi pomoc zadanka musze zdać do 19. Jeżeli ktoś by jeszcze coś wymyślił to prosze o pomoc

06-06-2003 12:26
Pokaż profil aceman  Wyślij email do aceman        458328
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 6 na piechote.....

Private Sub Form_Load()
Dim zakres As Integer
Dim wynik

zakres = InputBox("podaj zakres", "wprowadzanie danych" 'pobranie liczby

For i = 1 To zakres

wynik = i / 3

    For a = 2 To Len(wynik)
    v = Mid(wynik, a, 1)

If v = "," Then GoTo buu

    Next a

Label1.Caption = Label1.Caption & " " & i
buu:
Next i

End Sub

zadanie zrobilem "na piechote" bo za chiny sobie nie moge przypomniec funkcji....

ok! narazie tyle!!


_____________________________________________
SANTA!!

06-06-2003 13:16
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 4

Private Sub Form_Load()
Dim zakres As Integer
Dim wynik As Integer
Dim v As Integer

zakres = InputBox("Ile liczb podasz?", "wprowadzanie danych" 'pobranie liczby
For i = 1 To zakres
v = InputBox("Podaj liczbę " & i & " :", "wprowadzanie danych"
wynik = wynik + v
Next i
srednia = wynik / zakres

Label1.Caption = "Suma wprowadzonych liczb : " & wynik
Label2.Caption = "Średnia wprowadzonych liczb : " & srednia
End Sub

Pozdrawiam!


_____________________________________________
SANTA!!

07-06-2003 10:35
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 5

Private Sub Form_Load()
Dim zakres As Integer
Dim wynik As Integer
Dim v As Integer
Dim dodatnie, ujemne, zera As Integer

zakres = InputBox("Ile liczb podasz?", "wprowadzanie danych" 'pobranie liczby
For i = 1 To zakres
v = InputBox("Podaj liczbę " & i & " :", "wprowadzanie danych"
wynik = wynik + v
If v < 0 Then ujemne = ujemne + 1
If v > 0 Then dodatnie = dodatnie + 1
If v = 0 Then zera = zera + 1
Next i
srednia = wynik / zakres

Label1.Caption = "Suma wprowadzonych liczb : " & wynik
Label2.Caption = "Średnia : " & srednia
Label3.Caption = "Liczb dodatnich : " & dodatnie
Label4.Caption = "Liczb ujemnych : " & ujemne
Label5.Caption = "Ilość wprowadzonych zer : " & zera
End Sub


_____________________________________________
SANTA!!

07-06-2003 10:45
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 3

Private Sub Form_Load()
Dim zakresD, zakresG As Integer
Dim wynik As Integer
Dim srednia
zakresD = InputBox("podaj dolny zakres", "wprowadzanie danych" 'pobranie liczby
zakresG = InputBox("podaj górny zakres", "wprowadzanie danych" 'pobranie liczby

For i = zakresD To zakresG

wynik = wynik + i

Next i

srednia = wynik / (zakresG - zakresD + 1)

Label1.Caption = "Suma liczb z zakresu " & zakresD & " - " & zakresG & " : " & wynik
Label2.Caption = "Średnia liczb z zakresu " & zakresD & " - " & zakresG & " : " & srednia

End Sub

jezeli dobrze zrozumialem to o to chodzilo


_____________________________________________
SANTA!!

07-06-2003 11:17
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
zadanie 8

Private Sub Form_Load()
Dim zakresD, zakresG As Integer

zakresD = InputBox("Podaj dolny zakres : ", "wprowadzanie danych"
zakresG = InputBox("Podaj górny zakres : ", "wprowadzanie danych"

For i = zakresD To zakresG

v = i Mod 3
If v = 0 Then Label1.Caption = Label1.Caption & " " & i

Next i

End Sub


_____________________________________________
SANTA!!

07-06-2003 15:59
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002
no i w końcu zadanie ostatnie 13.....

Private Sub Form_Load()
Dim zakresD, zakresG, odpowiedz As Integer

zakresD = InputBox("Podaj dolny zakres : ", "wprowadzanie danych"
zakresG = InputBox("Podaj górny zakres : ", "wprowadzanie danych"

wylosowana = Int((zakresG - zakresD + 1) * Rnd + zakresD)

petelka:
odpowiedz = InputBox("Zgadnij jaką liczbę wylosowałem z tego przedziału??", "Pytanie"
If odpowiedz < wylosowana Then
    MsgBox "Za malo!!", vbInformation, "Niestety"
    ilosc_prob = ilosc_prob + 1
ElseIf odpowiedz > wylosowana Then
    MsgBox "Za duzo!!", vbInformation, "Niestety"
    ilosc_prob = ilosc_prob + 1
ElseIf odpowiedz = wylosowana Then GoTo brawo
End If
GoTo petelka

brawo:
MsgBox "BRAWO!!!!!!! Oczywiście wylosowana liczba to " & wylosowana _
& Chr(13) & "Udało Ci się zgadnąć w " & ilosc_prob & " próbach" _
, vbExclamation, "GRATULACJE"

End Sub

Pozdrawiam!


_____________________________________________
SANTA!!

07-06-2003 16:27
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
monia



Typ: neutral
Postów: 26
Zarejestrowany: Apr 2003

no no no.... aceman...
zdaje się że chodzimy do tej samej uczelni...
i zdaje się, że jedyna różnica jest taka, że ja już mam wpis w indeksie
jak będą jakieś problemy dawaj znać na forum...
mam to wszystko gdzieś na dysku ;P
powodzenia


_____________________________________________
nic co ludzkie, nie jest mi obce

08-06-2003 18:09
Pokaż profil monia  Wyślij email do monia        4894458
Wszystkich odpowiedzi: 18 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1