Determine if a string is numeric
hp 2840 biliardo classic imetec 1500w gnome 203 la morte di cleopatra garmin quest ricaricabili mh aa windos www googel streets of new york inxs live baby live wembley stadium download free mp3 blue breath easy big cock nic burg otto donne e mezzo voglia di dance all nigth valmadrera ibm intell z infradito donna toyota usato software motorola c330 canoe gonfiabili modelli www dipiu it nicolas berg video la via del west yugioh xbox mac g5 veline paola materasso acqua david lynch clendari vip nuova compagnia di can haiducii dintei mp3 mew mew cardiofrequenzimetro polar f11 video alessia merz ericsson r380 s barzelletta piccante dvdram masterizzatori dvd la follia di orlando jamie lee kurtis graditi i singoli ristoranti a collevalenza centro vacanze isuledda giorgio armani uomo abbigliamento spartiti quick step mo manchi la legge del mare lavatrici rex 160 kim sun il beheading barra trazioni fitness cacciabombardiere mares mr12 proton metal logo palermocalcio on my own whitneyhouston box hd esterno ide nintendo al tiro da tre golino nuda hard disk 80gb maxtor 7200rpm cinelandia gallarate classifica musicale causalismo hp 3200 512 cerca mini cooper dodici donne doro valentina valli santiago de veraguas masate gioco matrix ocean colour scene filmed from the front row ribes michelle hunziker it buggy board nara nara na na haiducii guasti audi a2 veritas backup 10 screensaver per quake iii arena midis argentinos www adsa org bags batteria acer 660 cure palliative residenziali ti ame golf gpl cammeo calendario 2005 arcuri poverta hp hw6515 agriturismo potenza jeannine pesca al sarago it pompeiana aquolina mandarino dincolo de noapte el porompompero www coolant e sesso wrc 4 www rosso it arcane grossista milano suocero i m in you rossini giuseppe libero it copertura adsl in italia cartine geografica croazia www centovetrine com canon eos 10d kamina microsoft flight simulator patch no cd stampante hp deskjet 9800 ricky leroy platinum eyetoy play 2 dimmi se dormi accanto a me nokia bl4c frigoriferi white westinghouse da lma avant browser 7 baite in affitto in val badia banca di desio iloveyou pioggia io saro monster truck madness 1 hentai foto sigma sd10 fodbold incontro reggio francesco renga meravigliosa nikon ar 3 ps2 gamepad converter to pc usb istitu tecnico agrario siena planet max vieni sul mar sipix nove ore per rama ibrahim bala sony str de497 jaguares ariston 6 coperti il video delle torri gemelle juve maglia limbo rock schermi motorizzati teac 7d click amatoriali yatana tv con tuner digitale integrato finanziamento fiduciario trio folk cover d alessio gigi assicurazione hannover reano girl walpaper sanyo 30 lcd calendario di costantino vitagliano saeco magic de luxe samsung spinpoint 80 bendata ultima raccolta di gigi d alessio cretan music ultima edizione srl piegaro www rechevere com oregon 988 immagini folletto schneider josephpaul ragazza chiavari sfratto monitor widescreen 17 dennis coffey hard disk 300 gb maxtor masterizzatore dvd nec miele w 2667 iraqi rape photos discoparade compilation diario de yucatan parto cordless siemens a250 profilato alluminio brazilian girls tiziana foschi immagini calciocatania dlink dwlg710 www comcel com blast billiard discoteca gioia cessione quinto stipendio inni delle contrade di siena the vilage cover melissa p personalizza scarpe land rover discovery salerno sigrist logitech momo racing force feedback sony videocamere bussola casio orologi barbora bobulova itinerario per firenze da macerata fratello ladro www aljazeera per i tools di quake 3 arena ati radeon x850xt pe video telefonino bilancio ambientale miniescavatori n70 nokia cellulari asics cumulus vii amd manchester casio qv r52 foto arcuri manuela lmc vs u2 take me to the clouds above invasion usa fine millennio pc133 memoria ram livigno e dintorni comune di riccione rossi cover the servans amplificatore decoder video de ivy queen panasonic tcd200 registrazione videosorveglianza anywhere dermatologici monitor lcd 17 acer 1715 ti telefono daredevil contro spiderman emma button nuda samsung 4100 body mass oregon multi durex love famosi scott doesn t know euro versio mp3 registratore audio lei non beve lei non fuma ma x nelly dilemma toby stephens mixer attivo file v7 channel erotica speaker per pc delta s brondi voyager 2001 c3 1 6 forato paraluce baglioni caludio dj ninja storia turismo seven nation army remix rmx lettori vhs e dvd noleggio lungo termini auto mary claire cesmo test screensaver animato paesaggio corsi contabilita www as roma it diffidati rumble racing altec lansing vs4121 2 1 gioco fifa 06 orecchino perline no goodbyes cuore pesci hamlet fax fiat 500 km 0 www cenoni capodanni napoli it php 5 roland scarica brani musicali attraction haec dies tabacco per sigaretta molly sims leoncino www ryanair com scienze giuridiche cd branduardi platinum collection oeta kit gps per mio 168 vera atyuskina hp navigatore satellitare www bolina masterizatori msi proper filthy naughty fascination hp stampanti 8150 tur the france ferrari 575 lowless pen drive 2 2 gb win real lycris com ragazzo solo ragazza sola regolatori di temperatura la casa delle ombre maledette occasioni di lavoro come educatore profe sei diventata nera il giardino delle delizie sexy babes tv subete la falda la baia di napoli duo 2gb salone nautico genova xvid codec britnet immagini jessica biel moneta numismatica ussuri uranio esame consulenti del lavoro philippe leroy italiano ucciso in irak accessori cellulari cartomanzia chat daroca nessun gioco online in winning eleven 8 mail ru casa per capodanno abruzzo festini maricopa www cazzi hicks granville arion frank martinus general loyd zoppas p 5 morgan giorgio prezioso tastiera symbian fiat barchetta 1 8i 16v i colori della vittoria hard disk mp3 player isola femmina tv plasma 42 1024x1024 epson semigloss vesela tycoon 3 lo strano ercorso calendario david beckham lg u8150 concorsi in divisa ninne nanna italiane pattinaggio torino metropolitan highway battle r pent house foto il conte dracula calling card interspaziale nova pilbeam mel gibson collection uscita dv videocamere www laprensa com bo bad girls scheda audio 5 1 trust l eternita mazzarella www maporama com ballade for adeline affittasi ladra n gels vtm hits michal vieth video www smach down micro hifi lg luomo lupo sara elle dire fare www gamming floor maxtor 250gb 8mb offerta copenhagen tom jerry vol 11 cd tdc racconti erotici al cinema www jerryleelewis com cartina inghilterra nadiya perle moi usb 2 0 pen drive 4gb caplio cd rom dvd lettori e divx www caltagirone it decoder digitale sat common debora zanon www ritmosonlatino com krug 1990 villa generale rossi la vespa pene circonciso villingenschwenningen gessica immagini teletubbies okyweb 2 pornographie agadir donna cuori pooh ivan delfi nokia 6600 vivavoce per cellulari nightwish wish i had an angel coagulasi olympus c 310zoom provveditorato di caserta capodichino aereoporto cristina grillo a ilary totti e mio radio fm digitale packard giuseppe di uomini e donne tintoria
You are encouraged to solve this task according to the task description, using any language you may know.
Demonstrates how to implement a custom IsNumeric method.
Ada
The first file is the package interface containing the declaration of the Is_Numeric function.
package Numeric_Tests is function Is_Numeric(Item : in String) return Boolean; end Numeric_Tests;
The second file is the package body containing the implementation of the Is_Numeric function.
package body Numeric_Tests is
----------------
-- Is_Numeric --
----------------
function Is_Numeric (Item : in String) return Boolean is
Result : Boolean := True;
begin
declare
Int : Integer;
begin
Int := Integer'Value(Item);
exception
when others =>
Result := False;
end;
if Result = False then
declare
Real : Float;
begin
Real := Float'Value(Item);
Result := True;
exception
when others =>
null;
end;
end if;
return Result;
end Is_Numeric;
end Numeric_Tests;
The last file shows how the Is_Numeric function can be called.
with Ada.Text_Io; use Ada.Text_Io; with Numeric_Tests; use Numeric_Tests; procedure Isnumeric_Test is S1 : String := "152"; S2 : String := "-3.1415926"; S3 : String := "Foo123"; begin Put_Line(S1