Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Qbasic sõnade pikus märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
dsg
HV kasutaja
dsg

liitunud: 15.07.2007
sõnum 26.05.2009 01:16:00 Qbasic sõnade pikus vasta tsitaadiga
Tervist
Selline küsimus kui mulle on antud selline tekst
21-aastane tõusev hiphopi täht, kelle õige nimi on
Roderick Anthony Burton II, hukkus 18. mail pärast seda,
kui teda Los Angelese Beverly Center
nimelise kaubakeskuse ees pähe tulistati, vahendab WENN.


Kuidas ma saaksin koguteksti sõnad koos tähepikustega, ma tean ,et LEN iga tähti aga kuidas nii saab ,et iga sõna eraldi arvutaks ja kõik read mitte üks rida.
Lõpuks peaks saama iga sõna eraldi reas ja sõna tähtede arv taga.
Tänud kui keegi vitsib vastata.
Kommentaarid: 23 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 23
tagasi üles
vaata kasutaja infot saada privaatsõnum
DoS
HV veteran
DoS

liitunud: 19.08.2002
sõnum 26.05.2009 02:44:19 vasta tsitaadiga
milleks qbasic?
käid selle tekstilõigu tähthaaval läbi ja kui leiad tühiku või punkti vms, siis jätad asukoha meelde ja eelneva asukoha järgi arvutad sõna pikkuse
Kommentaarid: 50 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 47
tagasi üles
vaata kasutaja infot saada privaatsõnum
dsg
HV kasutaja
dsg

liitunud: 15.07.2007
sõnum 26.05.2009 09:38:02 vasta tsitaadiga
DoS kirjutas:
milleks qbasic?
käid selle tekstilõigu tähthaaval läbi ja kui leiad tühiku või punkti vms, siis jätad asukoha meelde ja eelneva asukoha järgi arvutad sõna pikkuse

Aga mis korralduste abil seda teha left,right,mid,len?
Kommentaarid: 23 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 23
tagasi üles
vaata kasutaja infot saada privaatsõnum
andrusny
Kreisi kasutaja
andrusny

liitunud: 20.03.2006
sõnum 26.05.2009 12:52:19 vasta tsitaadiga
Areta siit edasi, see eraldab esialgu ainult sõnad.

CLS
c = 0
b$ = ""
i = 1
a$ = "Tere vana kere. Kas keegi teab ka kas karu on kodus"
PRINT a$

DIM d$(200)
  g = LEN(a$)


  FOR i = 1 TO g

IF MID$(a$, i, 1) <> " " THEN b$ = b$ + MID$(a$, i, 1)
IF MID$(a$, i, 1) = " " OR i = g THEN d$(c) = b$: c = c + 1: b$ = "": PRINT d$(c - 1)


NEXT

_________________
Kommentaarid: 7 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 7
tagasi üles
vaata kasutaja infot saada privaatsõnum mine selle kasutaja kodulehele
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Qbasic sõnade pikus
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.