Pascal - problem

[BeWuO]

Siema, jest problem, bo nie wiem, jak zczytać z jakiejś zmiennej np. liczba = 32432222234 cyfre jedności, czy jak kto woli, pierwszą cyfrę z prawej strony. Przypominam, że chodzi o Pascala.

[Ranmus]

Nie wiem jakie są funkcje w pascalu ale ja bym zrobił rzutowanie czy zamiane liczby na stringa a potem szukal odpowiedniej pozycji, np. ostatnia liczba to bedzie sie zaczynala od pozycji: dlugosc stringa - 1 oraz dlugosc cyfry to 1. Potem rzutujesz, zamieniasz string na liczbe i gotowe. Sprawdz funkcje GM'a bo w delphi jest napisany, a delphi to object pascal.

[BeWuO]

Mam spis UNITów i funkcji, ale nie mogłem nic znaleźć. I nie znalazłem też funkcji która zamienia INT na STRING, o ile taka jest, tak samo ze STRINGiem na INTa. Bo ta zmienna z cyfrą będzie mi potrzebna jako INT bo będe z nią robił obliczenia matematyczne.

Może mi ktoś jeszcze jakoś pomóc? :(

[Vardi]

użyj funkcji StrToInt na zamiane stringa na liczbe całkowitą i IntToStr na zamiane liczby całkowitej na stringa.

[BeWuO]

Takiej funkcji nie ma w Pascalu, lecz już rozwiązałem ten problem =]

Zapraszam do forum: Formularz Zgłoszeniowy, aby tam nabyć mój najnowszy program w Pascalu, więcej info w nowym temacie.

[Floopy]

To może się pochwalisz jak to zrobiłęś bo inni też są ciekawi:)

[BeWuO]

Wbrew pozorom jest to bardzo proste =]

 

liczba - dana liczba

jednosc - liczba jednosci

 

 

tmp:=liczba/10;

tmp:=round(tmp);

jednosc:=liczba - tmp;

 

KUNIEC =]

[Woock]

To mi musiało się coś we łbie poprzestawiać, bo jak ja sobie liczę w pamięci według tego kodu to mi się wydaje, że ta liczba jedności jakaś nie teges wychodzi.

 

zakładając, że masz liczbę 25. "jednosc" powinno wyjść 5, prawda?

 

tmp = 25/10 = 2,5

tmp = round(tmp) = 3

25 - 3 = 22

 

Coś mi tu zgrzyta :/

[Ranmus]

To jak już temat został, podam najprostsze rozwiazanie, dopiero dzisiaj na to wpadlem przy okazji dlubania w gm'ie (poprzedni mój sposob byl conajmniej glupi i niewydajny):

 

jednosc = liczba mod 10;

 

Mod to modulo, czyli reszta z dzielenia. To wszystko. :)

[BeWuO]

Już wiem o czym zapomniałem, poza tym round(2,5) to jest 2 a nie 3, a wystarczy jeszcze dodać jedną linijke =]

 

tmp:=liczba/10;

tmp:=round(tmp);

tmp;=10*tmp;

jednosc:=liczba - tmp;

 

Ranma mnie wyprzedził, ale faktycznie, nieźle to wykombinował =] Ale mój sposób też działa :P