Zadanie w Pascalu :)

03.01.2005

12:18

[1]

Gandalf-biały [ Mithrandir ]

Zadanie w Pascalu :)

Jak ktos mi pomoze to zrobic dostanie buziaczka :)

Zadanie

Napisać zestaw trzech funkcji zastępujących readln umożliwiających bezpieczne wczytanie z klawiatury liczby całkowitej, rzeczywistej oraz wczytanie daty przechowywanej jako trzy liczby całkowite (dzień miesiąc rok). Funkcje powinny uniemożliwiać popełnienie błędu przez użytkownika, tj.:
– dla wczytywania liczby całkowitej dopuszczalne jest jedynie wprowadzenie ciągu cyfr 0-9 (np. 12582 ale nie 34e53x)
– dla liczby rzeczywistej - ciągu cyfr 0-9 przedzielonego maksymalnie jedną wewnętrzną kropką (np. 123.5 4520 ale nie .435 23. 24.53.240)
– dla daty dopuszczalny jest jedynie format rrrr.mm.dd gdzie rmd to cyfry 0-9, rrrr to rok (cztery cyfry), mm to miesiąc (dwie cyfry), dd dzień (dwie cyfry). Dopuszczalne są jedynie daty poprawne (np. 2004.12.07 2000.02.29 ale nie 2000.02.28 04.12.07)
Użytkownik powinien móc w dowolnym momencie zrezygnować z wprowadzania danych (wciskając klawisz ESC), w tym wypadku globalna zmienna INPUT_ERROR powinna być ustawiana na wartość true. Funkcje wykorzystaj w przykładowym programie.

Markos [ Konsul ]

no nie wiem czy ktos bedzie chcial to zrobic za buziaka.

Ja bym to zrobił używając pętli while, i pobierał od użytkownika po jednej literce aż do naciśnięcia klawisza [enter]

PS. Nie pamietam juz za bardzo pascala.