Skocz do zawartości

  • Zaloguj korzystając z Facebooka Zaloguj korzystając z Twittera Zaloguj przez Steam Zaloguj poprzez Google      Logowanie »   
  • Rejestracja

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.

  • Rozpoczynaj nowe tematy i odpowiedaj na inne
  • Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
  • Dodawaj wydarzenia do kalendarza społecznościowego
  • Stwórz swój własny profil i zdobywaj nowych znajomych
  • Zdobywaj nowe doświadczenia

Dołączona grafika Dołączona grafika

Guest Message by DevFuse
 

Zdjęcie
Pascal

IF Napis + liczba THEN ustawia zmiennąTurrrrbo Pascal

Pascal

  • Zamknięty Temat jest zamknięty
10 odpowiedzi w tym temacie

#1 Abes Mapper

    Repulsion Gel

  • Przyjaciel

Reputacja: 1996
Godlike

  • Postów:7356
  • Steam:steam
  • Imię:Sebastian
  • Lokalizacja:Sulejówek
Offline

Napisano 26.09.2010 15:11

Jak zrobić że jak wpisze "ustawienie 300" to jakaś zmienna ustawi się na 300
  • +
  • -
  • 0

#2 mgr inż. Pavulon

    C35H60Br2N2O4

  • Przyjaciel

Reputacja: 1725
Godlike

  • Postów:6881
  • Steam:steam
  • Imię:Konrad
  • Lokalizacja:Koniecpol
Offline

Napisano 26.09.2010 15:22

jakbyś miał funkcję w stylu split'a ( Delphi/Pascal :: [Delphi] Jak rozbic string w tablice? - 4programmers.net ) to chyba już wiedziałbyś co i jak ;)
użyj Pos i Copy (o ile w pascalu to działa).
Pos użyj do znalezienia spacji pomiędzy "ustawienie" a wartością
a następnie skopiuj od początku do spacji, potem od spacji do końca i to będzie wartość
potem porównaj pierwszą część z "ustawienie" i jeżeli się zgadza to zmień wartość zmiennej na drugą część
  • +
  • -
  • 0

#3 Abes Mapper

    Repulsion Gel

  • Autor tematu
  • Przyjaciel

Reputacja: 1996
Godlike

  • Postów:7356
  • Steam:steam
  • Imię:Sebastian
  • Lokalizacja:Sulejówek
Offline

Napisano 26.09.2010 15:33

:lol:
Dasz jakiś przykładzik ?
  • +
  • -
  • 0

#4 ...

    Wszechmogący

  • Zbanowany

Reputacja: 166
Profesjonalista

  • Postów:612
  • Lokalizacja:Jasło
Offline

Napisano 26.09.2010 16:09

Splitting strings - Turbo Pascal 1.5 - Pascal - Forums at ProgrammersHeaven.com

#5 mgr inż. Pavulon

    C35H60Br2N2O4

  • Przyjaciel

Reputacja: 1725
Godlike

  • Postów:6881
  • Steam:steam
  • Imię:Konrad
  • Lokalizacja:Koniecpol
Offline

Napisano 26.09.2010 16:10

ciężko dać mi przykładzik jak pascal'a to miałem w liceum a na dodatek nie mam jak na debianie przetestować kod (głupot przecież dawał nie będę)

Length(s) - zwraca bieżącą długość łańcucha s;
Copy(s, m, n) - zwraca podłańcuch o długości m znaków wycięty z łańcucha s poczynając od pozycji n;
Pos(ch, s) - zwraca numer pozycji, na której w łańcuchu s znajduje się znak ch;


Tu masz przykłady itd: Turbo Pascal. Programowanie
  • +
  • -
  • 1

#6 Abes Mapper

    Repulsion Gel

  • Autor tematu
  • Przyjaciel

Reputacja: 1996
Godlike

  • Postów:7356
  • Steam:steam
  • Imię:Sebastian
  • Lokalizacja:Sulejówek
Offline

Napisano 26.09.2010 17:57

Nie mam już sił żeby te długie kody ogarniać.
Spróbowałem z tym:
LName := Copy(Name, Pos(' ', Name) + 1, Length(S) - Pos(' ', Name));
ale nic się nie wyświetla. Te pierwsze działa, wyświetla się tylko pierwsze ale interesuje mnie druga wartość.
Tylko że tu się wpisuje jednorazowo a ja mam programik gdzie ciągle cię wpisuje jakieś liczby (Pav wie bo dawałem :) )
Może jutro spróbuje ogarnąć te łańcuchy
  • +
  • -
  • 0

#7 mgr inż. Pavulon

    C35H60Br2N2O4

  • Przyjaciel

Reputacja: 1725
Godlike

  • Postów:6881
  • Steam:steam
  • Imię:Konrad
  • Lokalizacja:Koniecpol
Offline

Napisano 26.09.2010 18:04

LName := Copy(Name, Pos(' ', Name) + 1, Length(Name) - Pos(' ', Name));
powinno działać. absolutnie nic nie wyświetla niezależnie od stringa początkowego ?
Miałeś Length(Name) czy Length(S) ? :D
  • +
  • -
  • 1

#8 Abes Mapper

    Repulsion Gel

  • Autor tematu
  • Przyjaciel

Reputacja: 1996
Godlike

  • Postów:7356
  • Steam:steam
  • Imię:Sebastian
  • Lokalizacja:Sulejówek
Offline

Napisano 26.09.2010 18:16

S :P
Za godzinke zobacze.

I jeszcze jak to powiązać z moim kodem?

(kawałek)
PROCEDURE Liczby;
Begin
	REPEAT
		readln(napis);
		for	x:=1 to length(napis) do Sound(napis[x]);
		IF napis='/predkosc' THEN Predkosc;
	UNTIL napis='/exit';
End;

  • +
  • -
  • 0

#9 mgr inż. Pavulon

    C35H60Br2N2O4

  • Przyjaciel

Reputacja: 1725
Godlike

  • Postów:6881
  • Steam:steam
  • Imię:Konrad
  • Lokalizacja:Koniecpol
Offline

Napisano 26.09.2010 18:31

PROCEDURE Liczby;
Begin
	REPEAT
		readln(napis);
		IF napis='/predkosc' THEN Predkosc
		else
			for	x:=1 to length(napis) do Sound(napis[x]);
	UNTIL napis='/exit';
End;

O to ci chodzi ?
  • +
  • -
  • 0

#10 G[o]Q

    I'm G[o]Q

  • Przyjaciel

Reputacja: 1339
Godlike

  • Postów:3556
  • Steam:steam
  • Imię:Krzysiek
  • Lokalizacja:C: / program Files / Valve / Cstrike / G[o]Q.dem
Offline

Napisano 26.09.2010 18:51

Spoiler


masz rezultaty ostatnich 20 minut wiec przyklad prosty
wpisujesz

ustaw wartosc

to ustawia zmienna
ustaw_hook
na wartosc jaka podales
jesli wpiszesz

ustawianie wartosc

to ustawia zmienna
ustawianie_hook

  • +
  • -
  • 1
Manual ponad wszystko, konsola ponad manual :D :&

Chcesz wysłać do mnie PW ? użyj nazwy GoQ zamiast G[o]Q
Chcesz Kupić moduł płatności via Pukawka,Tserwery, Gamesol, Zabijaka do mojego sklepu? napisz PW cena to tylko 10 zł/sztuka

GG:6022845 (nie pomagam za free osobom ponizej rangi MoD) :D

#11 Abes Mapper

    Repulsion Gel

  • Autor tematu
  • Przyjaciel

Reputacja: 1996
Godlike

  • Postów:7356
  • Steam:steam
  • Imię:Sebastian
  • Lokalizacja:Sulejówek
Offline

Napisano 26.09.2010 20:23

Dzięki, działa ;)
  • +
  • -
  • 0





Również z jednym lub większą ilością słów kluczowych: Pascal

Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych