programowanie Delphi

aaleks1985 · Post autor: **aaleks1985** » 28 lis 2009, o 13:38

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

exother · Post autor: **exother** » 28 lis 2009, o 18:19

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:

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ń

5. Dzień (ostatnia liczba - 14), końcówka roku (pierwsza liczba - 44).
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

możesz dla lepszej formy językowej pozamieniać "styczeń" na "stycznia" itp.

aaleks1985 · Post autor: **aaleks1985** » 30 lis 2009, o 18:00

nic z tego nie rozumiem.Moglbys jasniej?
to ma byc w Pacalu...

soku11 · Post autor: **soku11** » 30 lis 2009, o 18:54

Heh... To samo masz tutaj:

Jest to sam opis odczytywania z PESEL-u daty urodzenia. Obliczania wieku nie ma.

Pozdrawiam.

aaleks1985 · Post autor: **aaleks1985** » 30 lis 2009, o 19:44

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?');

exother · Post autor: **exother** » 30 lis 2009, o 20:28

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?');

Wszystko masz powyżej. Nic dodać, nic ująć. Chcesz, to napiszę ci program w C++, ale Pascala kijem nie dotknę

aaleks1985 · Post autor: **aaleks1985** » 1 gru 2009, o 19:45

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:)