Chce stworzyc program ktory po wpisaniu daty urodzenia bedzie pokazywal w jakim dniu dana osoba sie urodzila. To co widzicie na poczatku w komentarzu pod zaladowaniem biblioteki to te rzeczy, ktore potrzebuje aby zostaly sprawdzone bo bankowo nie sa dobrze. I jeszcze jedno, czy mozna jakos te ify potem na samym dole z wypisywaniem ominac w krotszy sposob czy lepiej zeby tak byly? Potrzebuje pilnie pomocy bo program musze wyslac dzisiaj a zupelnie zapomnialem ze mam go nie skonczonego ( w sensie mam go zle). PROGRAM Dzien_tygodnia; uses crt; { petla dla miesiecy 31 x petla dla miesiecy 30 x petla dla lutego x wyciecie dnia na poczatku jak >31 x wyciecie miesiaca na poczatku jak >12 x } var rok: integer; dzien: integer; miesiac: integer; calosc: integer; procedure dzien_urodzin; begin { poczatek procedury } calosc := calosc mod 7; if (calosc = 1) or (calosc = 2) or (calosc = 3) or (calosc = 4) or (calosc = 5) or (calosc = 6) or (calosc = 0) then { wypisuje dzien tygodnia } CASE calosc OF 1: writeln ('Ten dzien to Poniedzialek.'); { dla wartosci 1 zostaje wykonana instrukcja writeln ... } 2: writeln ('Ten dzien to Wtorek.'); 3: writeln ('Ten dzien to Sroda.'); 4: writeln ('Ten dzien to Czwartek.'); 5: writeln ('Ten dzien to Piatek.'); 6: writeln ('Ten dzien to Sobota.'); 0: writeln ('Ten dzien to Niedziela.'); end; { koniec case of } readln; end; { koniec procedury } if (miesiac = 1) or (miesiac = 3) or (miesiac = 5) or (miesiac = 7) or (miesiac = 8) or (miesiac = 10) or (miesiac = 12) and dzien<32 then return true; else if dzien>31 return false and stop; if (miesiac = 1) or (miesiac = 3) or (miesiac = 5) or (miesiac = 7) or (miesiac = 8) or (miesiac = 10) or (miesiac = 12) and dzien<31 then return true; else if dzien>30 return false and stop; begin { poczatek programu } clrscr; writeln ('Podaj rok.'); readln (rok); writeln; writeln ('Podaj dzien. (liczba z przedzialu 1-31)'); readln (dzien); if dzien >31 or <1 then begin write ('Nie ma tylu dni w miesiacu.'); end; writeln; writeln ('Podaj miesiac. (liczba z przedzialu 1-12)'); readln (miesiac); if miesiac >12 or <1 then begin write ('Nie ma tylu miesięcy w roku.'); end; if miesiac = 1 then begin dzien_urodzin; end; if miesiac = 2 and dzien > 30 then begin dzien_urodzin; end; if miesiac = 3 then begin dzien_urodzin; end; if miesiac = 4 then begin dzien_urodzin; end; if miesiac = 5 then begin dzien_urodzin; end; if miesiac = 6 then begin dzien_urodzin; end; if miesiac = 7 then begin dzien_urodzin; end; if miesiac = 8 then begin dzien_urodzin; end; if miesiac = 9 then begin dzien_urodzin; end; if miesiac = 10 then begin dzien_urodzin; end; if miesiac = 11 then begin dzien_urodzin; end; if miesiac = 12 then begin dzien_urodzin; end; { koniec ostatniego ifa } end. { koniec programu }