• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Pascal kod sprawdzający pesel

VPS Starter Arubacloud
0 głosów
416 wizyt
pytanie zadane 13 grudnia 2018 w Inne języki przez Voribel Nowicjusz (180 p.)
zmienione kategorie 14 grudnia 2018 przez draghan
uses crt;
var
	pesel: array [0..10] of integer;
	peselstr:string;
	poprawna:boolean;
function rokUrodzenia(): integer;
var
rok : integer;
miesiac : integer;
begin

rok := 10 * pesel[0];
rok := rok + pesel[1];
miesiac := 10 * pesel[2];
miesiac := miesiac + pesel[3];
if (miesiac > 80) and (miesiac < 93) then
rok := rok + 1800
else if (miesiac > 0) and (miesiac < 13) then
rok := rok + 1900
else if (miesiac > 20) and (miesiac < 33) then
rok := rok + 2000
else if (miesiac > 40) and (miesiac < 53) then
rok := rok + 2100
else if (miesiac > 60) and (miesiac < 73) then
rok := rok + 2200;
rokUrodzenia := rok;
end;

function miesiacUrodzenia(): integer;
var
miesiac : integer;
begin
miesiac := 10 * pesel[2];
miesiac := miesiac + pesel[3];
if (miesiac > 80) and (miesiac < 93) then
miesiac := miesiac -80
else if (miesiac > 20) and (miesiac < 33) then
miesiac := miesiac - 20
else if (miesiac > 40) and (miesiac < 53) then
miesiac := miesiac - 40
else if (miesiac > 60) and (miesiac < 73) then
miesiac := miesiac - 60;
miesiacUrodzenia := miesiac;
end;

function dzienUrodzin(): integer;
var
dzien : integer;
begin
dzien := 10 * pesel[4];
dzien := dzien + pesel[5];
dzienUrodzin := dzien;
end;

function plec(): string;
begin
if (poprawna) then
if (pesel[9] mod 2 = 1) then
plec := 'Mezczyzna'
else
plec := 'Kobieta'
else
plec := '---'
end;

function kontrolna(): boolean;
var
suma : integer;
begin
suma := 1 * pesel[0] +
3 * pesel[1] +
7 * pesel[2] +
9 * pesel[3] +
1 * pesel[4] +
3 * pesel[5] +
7 * pesel[6] +
9 * pesel[7] +
1 * pesel[8] +
3 * pesel[9];
suma := suma mod 10;
suma := 10 - suma;
suma := suma mod 10;

if (suma = pesel[10]) then
kontrolna := true
else
kontrolna:= false;
end;
 function sprawdzPesel(numer:string):boolean;
var
        i:integer;
begin
if (length(numer) <> 11) then
poprawna = false
else
for i := 0 to 10 do
	pesel[i]:=StrtoInt(peselstr[i+1]);
end;
begin
repeat
write('Podaj numer Pesel: ');readln(peselstr);
poprawny := sprawdzPesel(numer);
until poprawny = false ;
writeln('Numer PESEL jest prawidlowy');
writeln('Rok urodzenia: ',StrtoInt(rokUrodzenia));
writeln('Miesiac urodzenia: ',StrtoInt(miesiacUrodzenia));
writeln('Dzien urodzenia: ',StrtoInt(dzienUrodzin));
writeln('Plec: ',plec);
end.

Czemu to nie chce działać? Pomocy

komentarz 14 grudnia 2018 przez Voribel Nowicjusz (180 p.)
Fajnie że wszyscy mają gdzieś ;)
komentarz 14 grudnia 2018 przez CenterPL Pasjonat (19,070 p.)
Mają gdzieś, bo nikt nie będzie przecież wróżył z fusów. Co nie działa? Jakbyś podał informace jakie błędy, co jest nie tak, a czego oczekujesz, to byś pewnie miał już odpowiedź. Poza tym nie bądź taki roszczeniowy, każdy jest tutaj bo chce i nie musi odpisywać, to nie customer service. Poza tym Pascal nie jest w tej chywil językiem często używanym więc i speców z tej kategorii jest odpowiednio mniej.
komentarz 14 grudnia 2018 przez jeremus Maniak (59,720 p.)

@Voribel, nie zwracasz wartości funkcji sprawdzPesel, nie wywołujesz funkcji kontrola, ustawiasz zmienną globalnaą poprawna i z niej nie korzystasz -  to tyle  na początek  :)

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

Podobne pytania

0 głosów
1 odpowiedź 262 wizyt
pytanie zadane 23 stycznia 2019 w Inne języki przez xniebieski Nowicjusz (140 p.)
0 głosów
0 odpowiedzi 237 wizyt
pytanie zadane 11 kwietnia 2022 w Inne języki przez julka1605 Nowicjusz (120 p.)
0 głosów
0 odpowiedzi 98 wizyt
pytanie zadane 25 listopada 2020 w Inne języki przez Patrycja.w. Nowicjusz (120 p.)

92,452 zapytań

141,262 odpowiedzi

319,077 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...