witam, mam problem z obliczeniem wieku na podstawie PESELA, tzn. z utworzeniem algorytmu...
czy moglby mi ktos podac jakas wskazowke?
z gory dziekuje za pomoc
programowanie Delphi
-
- Użytkownik
- Posty: 120
- Rejestracja: 21 kwie 2009, o 12:13
- Płeć: Kobieta
- Podziękował: 9 razy
-
- Użytkownik
- Posty: 97
- Rejestracja: 28 wrz 2009, o 15:01
- Płeć: Mężczyzna
- Podziękował: 3 razy
- Pomógł: 9 razy
programowanie Delphi
W delphi ci tego nie napiszę, ale podam ci listę po kolei, co robisz
1. Pobierasz pesel. (np. 44051401458)
2. Pobierasz pierwsze 6 liczb (lub odcinasz 5). (440514).
3. Teraz dzielisz otrzymaną liczbę na 3 - po 2 cyfry każda. (44|05|14).
3. Pobierasz pierwszą cyfrę drugiej liczby (dla 05 -> 0) i na jej podstawie określasz pierwsze 2 cyfry roku (dla 0,1 => 19, dla 8,9 => 18, dla 2,3 => 20, dla 4,5 => 21, dla 6,7 => 22). (dla przykładu otrzymujemy 0 => 19).
4. Zajmijmy się miesiącem. Bierzesz znowu drugą liczbę (05). I wg wzoru:
5. Dzień (ostatnia liczba - 14), końcówka roku (pierwsza liczba - 44).
6. Ustawiamy, wyświetlamy
możesz dla lepszej formy językowej pozamieniać "styczeń" na "stycznia" itp.
1. Pobierasz pesel. (np. 44051401458)
2. Pobierasz pierwsze 6 liczb (lub odcinasz 5). (440514).
3. Teraz dzielisz otrzymaną liczbę na 3 - po 2 cyfry każda. (44|05|14).
3. Pobierasz pierwszą cyfrę drugiej liczby (dla 05 -> 0) i na jej podstawie określasz pierwsze 2 cyfry roku (dla 0,1 => 19, dla 8,9 => 18, dla 2,3 => 20, dla 4,5 => 21, dla 6,7 => 22). (dla przykładu otrzymujemy 0 => 19).
4. Zajmijmy się miesiącem. Bierzesz znowu drugą liczbę (05). I wg wzoru:
Kod: Zaznacz cały
81,01,21,41,61 => styczeń
82,02,22,42,62 => luty
83,03,23,43,63 => marzec
84,04,24,44,64 => kwiecień
85,05,25,45,65 => maj
86,06,26,46,66 => czerwiec
87,07,27,47,67 => lipiec
88,08,28,48,68 => sierpień
89,09,29,49,69 => wrzesień
90,10,30,50,70 => październik
91,11,31,51,71 => listopad
92,12,32,52,72 => grudzień
6. Ustawiamy, wyświetlamy
Kod: Zaznacz cały
dzien - ostatnia liczba - 14
miesiac - punkt 4 - maj
rok - początek(punkt 3 - 20).koniec(pierwsza liczba - 44).
i wyświetlasz - dla przykładu 14 maj 2044
-
- Użytkownik
- Posty: 120
- Rejestracja: 21 kwie 2009, o 12:13
- Płeć: Kobieta
- Podziękował: 9 razy
-
- Użytkownik
- Posty: 120
- Rejestracja: 21 kwie 2009, o 12:13
- Płeć: Kobieta
- Podziękował: 9 razy
programowanie Delphi
no wlasnie to jest sam opis; a mnie chodzi o algorytm...
napisze to jasniej
otoz mam napisac program, ktory wczytuje imie, nazwisko, pesel...
do tego momentu doszlam
lecz teraz na podstawie pesela mam napisac algorytm sprawdzajacy ile lat ma dana osoba...
powiedzmy moze byc to w formie komentarza ('naprawde masz ... lat?');
napisze to jasniej
otoz mam napisac program, ktory wczytuje imie, nazwisko, pesel...
do tego momentu doszlam
lecz teraz na podstawie pesela mam napisac algorytm sprawdzajacy ile lat ma dana osoba...
powiedzmy moze byc to w formie komentarza ('naprawde masz ... lat?');
-
- Użytkownik
- Posty: 97
- Rejestracja: 28 wrz 2009, o 15:01
- Płeć: Mężczyzna
- Podziękował: 3 razy
- Pomógł: 9 razy
programowanie Delphi
Wszystko masz powyżej. Nic dodać, nic ująć. Chcesz, to napiszę ci program w C++, ale Pascala kijem nie dotknęaaleks1985 pisze:no wlasnie to jest sam opis; a mnie chodzi o algorytm...
napisze to jasniej
otoz mam napisac program, ktory wczytuje imie, nazwisko, pesel...
do tego momentu doszlam
lecz teraz na podstawie pesela mam napisac algorytm sprawdzajacy ile lat ma dana osoba...
powiedzmy moze byc to w formie komentarza ('naprawde masz ... lat?');
-
- Użytkownik
- Posty: 120
- Rejestracja: 21 kwie 2009, o 12:13
- Płeć: Kobieta
- Podziękował: 9 razy
programowanie Delphi
a co jest z tym Pascalem, ze nawet kijem go nie dotkniesz???
Ja dopiero ucze sie programowania i zaproponowano nam na poczatek Pascala...
czy on jest taki zly?
PS: w C++ mam ten program napisany -- 8 gru 2009, o 10:34 --...a wiec , doszlam do rozwiazania :
teraz napisze o co mi chodzilo:
var rok : integer;
pesel : real;
begin
rok := trunc (pesel /1000000000);
writeln(109 - rok);
end.
...jak widac nie trzeba bylo tak komplikowac:)
Ja dopiero ucze sie programowania i zaproponowano nam na poczatek Pascala...
czy on jest taki zly?
PS: w C++ mam ten program napisany -- 8 gru 2009, o 10:34 --...a wiec , doszlam do rozwiazania :
teraz napisze o co mi chodzilo:
var rok : integer;
pesel : real;
begin
rok := trunc (pesel /1000000000);
writeln(109 - rok);
end.
...jak widac nie trzeba bylo tak komplikowac:)