Pomoc u paskalu/pocetnik
Prikazujem rezultate 1 do 4 od 4

Tema: Pomoc u paskalu/pocetnik

  1. #1
    Zainteresovan član Sakim (avatar)
    Učlanjen
    06.12.2005.
    Pol
    muški
    Poruke
    164
    Reputaciona moć
    45

    Podrazumevano Pomoc u paskalu/pocetnik

    pozdrav ljudi ja sam pocetnik u paskalu i pokusavam da napravim program citac misli kao ovaj http://www.sanjalica.com/citac_misli.php samo u paskalu.
    e sad
    Korisnik mora uneti 16 nasumucnih znakova koje ce komp nasumice rasporediti na 99 polja
    problemi kod unosa teksta:
    ja recimo napisem

    Unestie znak broj 6:
    i sada on unese recimo malo slovo a(i onda stavljam ispod if ( znak6=znak1) or (znak6=znak2) or .... then repeat
    uneli ste isti znak milimo unesite dugaciji znak... i to radi
    to je ok ali sta cu ako unese broj jer ako bude broj program nece imati smisla pa sam smislio sledece...da ako majmun otkuca broj da ga program prebaci u simblo preko chr comande(acs2 se valjda zove) ali nije mi jasno kako da mu objasnim
    Ako je znak6 broj onda uradi funkicju X:=chr(znak6); i kako to da napisem u writeln...da li writeln('uneti znak je '.znak6, or x);
    nadam se da ste shvatili ideju...mada znam da ce biti jos problema kod pravljenja datoteke...



  2. #2
    Zainteresovan član
    Učlanjen
    23.08.2005.
    Poruke
    379
    Reputaciona moć
    48

    Podrazumevano Re: Pomoc u paskalu/pocetnik

    Не знам паскал али то што корисник унесе снимиш у променљиву типа стринг и онда поредиш тај стринг са свим опцијама које су доступне и на тај начин није битно јел он унео број или знак или 500 знакова
    И користи switch( или шта је еквивалент switch-у у паскалу) јер није ОК да користиш пет if-ова за редом.
    Samo jedan klub--samo jedan grad---
    samo Z E T A bre
    kakav partizan

  3. #3
    Zainteresovan član Sakim (avatar)
    Učlanjen
    06.12.2005.
    Pol
    muški
    Poruke
    164
    Reputaciona moć
    45

    Podrazumevano Re: Pomoc u paskalu/pocetnik

    e ne bi da smaram ali mozes li mi dati primer za takav nacin koriscenja strigna ?

  4. #4
    Zainteresovan član sist_ing (avatar)
    Učlanjen
    28.02.2006.
    Pol
    muški
    Lokacija
    Bor
    Poruke
    292
    Reputaciona moć
    46

    Podrazumevano Re: Pomoc u paskalu/pocetnik

    U VB-u se to moze uraditi ovako, ako sam te doro razumeo:

    Kod:
    Private Sub Text1_KeyPress(KeyAscii As Integer)
        '
        'Dozvoljeni su brojevi i backspace. Na ovaj nacin
        'se u polju za unos "Text1" ne moze nista drugo uneti osim brojeva i backspace.
        If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
            KeyAscii = 0
        End If
        '
    End Sub
    
    Private Sub Text1_KeyPress(KeyAscii As Integer)
        '
        'Dozvoljena su slova, backspace i spacebar. Ovde se brojevi
        'nikako ne mogu uneti.
        If (Asc(UCase(Chr(KeyAscii))) < 65 Or Asc(UCase(Chr(KeyAscii))) > 91) And KeyAscii <> 8 And KeyAscii <> 32 Then
            KeyAscii = 0
        End If
        '
    End Sub
    Neznam kako bi to islo u paskalu.:?

Slične teme

  1. Pocetnik na gitari-pomoc
    Autor b!keR u forumu Muzika
    Odgovora: 93
    Poslednja poruka: 02.12.2007., 17:51
  2. Filatelist pocetnik - TREBA MI POMOC!
    Autor usladic u forumu Numizmatika i filatelija
    Odgovora: 11
    Poslednja poruka: 18.08.2006., 00:40
  3. I ja sam početnik i treba mi pomoć...
    Autor Kurt2 u forumu Programiranje
    Odgovora: 27
    Poslednja poruka: 23.09.2005., 00:55
  4. pocetnik trazi pomoc
    Autor pekan000 u forumu Programiranje
    Odgovora: 4
    Poslednja poruka: 02.06.2005., 13:21
  5. pomoc-ja sam pocetnik
    Autor neznalica jeca u forumu Softver
    Odgovora: 8
    Poslednja poruka: 19.08.2004., 22:49

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •