Kezdőoldal » Számítástechnika » Programozás » Milyen egyszerűbb megoldással...

Milyen egyszerűbb megoldással működhetne ez a program, mi az, amit elegánsabban lehetne megoldani? (Pascal, string-kezelés)

Figyelt kérdés

Megadott karaktertől megadott karakterig szeretnék törölni egy string-ből mindent.

Ez az, ami a "szokásos módon" nem akar sikerülni, úgy, ahogy működnie kellene, ellenben más módon, sikerült.

Itt két negoldás, másodikat én találtam ki, kénytelen vagyok megszámolni a darabszámot, mert egyébként nem hajlandó működni...

Miért nem?


{$h+}


uses crt;


var

s : string;

i, j, poz, poz2 : word;

begin

s := 'próba valami () ez is csak próba () mint az előbb ()';

repeat

poz := pos('p',s);

poz2 := pos(')',s);

delete(s,poz, poz2-poz);

until (poz = 0);

WriteLn(s);

s:='';

ReadLn;

for i:=1 to 888 do

s:=s+'abteszt(teszt)';

repeat

poz:=pos( 'ab', s);

poz2 := pos(')',s);

j := 0;

for i := poz to poz2 do

inc(j);

delete(s,poz,j);

WriteLn(poz);

until poz = 0;

end.



2018. febr. 19. 20:54
1 2
 1/11 anonim ***** válasza:
0%
Banyek, legalább azt Írd már ki, hogy milyen stringből szeretnél törölni és mit!
2018. febr. 19. 21:13
Hasznos számodra ez a válasz?
 2/11 A kérdező kommentje:

38%-os (gondolom a pár hónapja még 33%-os értő olvasást nem ismerő delikvenshez van "szerencsém"):

Ha magát a kódot értelmezni nem tudod, nem megy az értő olvasás, akkor a válasszal sztem ne fáradj.

2018. febr. 19. 21:18
 3/11 anonim ***** válasza:
0%

uses crt;

var

 MyString : string;

 DelLenght: byte;

begin

  DelLenght:= 3;

  MyString:= 'Gyakorikerdesek.hu';

  MyString := Copy (MyString,0,(length(MyString)-DelLenght));

  Write(Mystring,#13);

  readln;

end.

2018. febr. 19. 21:25
Hasznos számodra ez a válasz?
 4/11 anonim ***** válasza:
0%
Kérődző: Annyit érsz, amennyit a fostenger kódod.
2018. febr. 19. 21:28
Hasznos számodra ez a válasz?
 5/11 A kérdező kommentje:

38%:

Látom a kód értelmes elolvasása az továbbra se megy...

Stringben többször szerepel az adott törlendő rész kedző - és végponttal...

Ne eröltesd. :-)

Múltkor még nekem mondtad, hogy nem programoztam Pascal-ban soha. :-)

2018. febr. 19. 21:30
 6/11 A kérdező kommentje:
A törlendő részek nem mindig fix hosszúságúak, ezért nem definiáltam a kódban fix hosszúságot.
2018. febr. 19. 21:34
 7/11 anonim ***** válasza:

38%-os Tapsi hapsi hozza a formáját :D :D

Csak tudnám hogy kúszott fel idáig 25%-ról... :/

Lassan ideje lenne helyrerakni, ahova való.

2018. febr. 19. 21:37
Hasznos számodra ez a válasz?
 8/11 anonim ***** válasza:
0%

"hogy nem programoztam Pascal-ban soha. :-)"


1. És az számomra miből derült volna ki, birge?

2. Netikettet olvasd már el egyszer, ha ráérsz.

3. Ha az abban olvasottakat még így-úgy be is tartod, akkor már sokkal kisebb bunkónak fognak tartani, mint most.


+ Ne képzeld már, hogy a förmedvényedet elemezgetni fogom. Egy rettenet az egész. Örülj neki, ha választ kapsz egyáltalán. Pláne így megfogalmazott kérdésre.

2018. febr. 19. 21:40
Hasznos számodra ez a válasz?
 9/11 anonim ***** válasza:

Hányszor és hányan kell még könyörögnünk a moderátoroknak, hogy ezt a fogalmatlan gyökeret vágják kár ki innen?!

Hello, 38%-os, életében nem volt még egy hasznos hozzászólása!

2018. febr. 19. 21:45
Hasznos számodra ez a válasz?
 10/11 sharkxxx ***** válasza:
2018. febr. 20. 00:02
Hasznos számodra ez a válasz?
1 2

Kapcsolódó kérdések:





Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!