Determine if a string is numeric
rata mutuo tell him vonda shepard malaluna sony kv-14ct1 villaggio turistico al mare auto noleggio messina loewe xelos lcd 26 hp 8200 quam mirabilis vacanza lavoro its a kind of magic gary oldman foto wolfgang amadeus mozart il flauto diffusori da esterno leccami www mls com zafferano bicchieri zoran jelenkovic tv studio pctv ati fire incanto classic saeco risultati motomondiale 2004 km0 mitsubishi pajero sport auto km 0 schede madri asus p4p800s sigma 12-24 sn una tettona cittadinanza canon lbp 2000 toner microfono ps2 chi ha vinto piu coppe al mondo calcio dinotopia tablet pc 12 1 hp manifesto ringraziamenti fiat coupe 1 8 turbo nh hotel chacker soho square erikson e la crisi psico sociale gioco all aperto bambino minolta toner cuffie wireless dolby digital il libro della aldo giovanni e giacomo volo aereo palermo lampedusa iraq fotos ivy queen loona bailando pulitore vapore smallville kristin kreuk nuda fax 3310l prestito bruxelles bepi koelliker regali per casa dpr 686 del 3 5 1957 yety sport 5 rrufeja toyota mantova velodyne vx10 camera villorba www canzoni di leone di lernia it foto camera digitale online olimpia splendid deumidificatore batterie samsung e800 ecco i cieli del mito libri casper slide la macchina nera kingston ddr sodimm fromage frais invernali ninne nanne in italiano esce il drago entra la tigre peretta volkswagen fox diesel dori ghezzi wess cantautore garmin gps iii seks vidoe corpi vogliamoci tanto bene lalbero delle pere the biggest black cock un grande amore picrite star wars. clone wars. vol. 01 jogos da playboy nike calcio ecco la demo di age of empires iii la camera della morte terratec aureon universe 7 1 dvd-rw 9 4 gb internet a passo di lumaca piastra per bistecchiera piscina di antegnate appendici carrelli www lady web it guri quarta serie speciale 13 dicembre 2 hub 5 porte ethernet rod usted de diego torres olivetti logos 682 s piatti in vetro trottolino hp 200 todo lo que hago lo hago por ti sale marino integrale testo voglia di dance all night kit cp 100 film erotici helena figo sexy orbs athlon 64 939 3000 pieces de rechange processori intel pentium 4 prescott foto naziskin tocuh santo antonio pisa san francisco biglietti aerei gamepad pc saitek tarantelle pugliesi breezin gamepad joystick hotel centrale jesolo fotos garotas nuas navigatore gps blaupunkt grimaudo piastre intercambiabili cranberries zombi chat gay roma gratis bey usb sharp gx30 extremo mina in studio audi a3 1.6 calciatore nudo lampade risparmio energetico handel cd logitech premium usb headset 350 kuman mi manchi pooh dvd 8x princo yonis musica per i tuoi sogni pirandello l esclusa piscine montichiari rex rd 185 dx wwwpetardas con cardim, fernao set lettino bando straordinario 19 12 2005 servizio civile silke www google ro europa grecia isola ibm t43 foto di pantere www robertobaggio it zorro alla corte di spagna drow wavelenght schema fattura infradito sandali dichiarazione dei rediti sia di fornaci frankfurt an der oder fz 61 1 primi denunciati tu soltanto tu delta v via da qui mp3 preromanticismo il pingpong arctic cooling nv silencer 5 heroin labtec mouse optical big girls www canzoni da scaricare it grandmaster flash belle di notre dame de paris ocktoberfest un emozione da poco anna oxa love lina modem 56 interno xp crimsom rooom dvd rip numer barzallette cattive colin mcrea rally 2 classiche napoletane byblos terra stampante epson stylus pro 4000 chu mei andrews virginia libri fliston fortuna slim bluetooth la canzone dei vecchi amanti photos colocataires m6 ef 100 macro grow2 kaoma video lambada a scuola dallo sciamano harrrdito stampante laser brother hl-2030 palmari cellulari kylie minogue red blooded sonia morales viprati pipa pentax wp optio sky tears for fears break it down again nardi nvidia geforce 6600 gt 256mb canon powershot a95 plus bas armagnac saitek 52 bacio katia carolina aegolius borse dell energia bwv 182 the king of the golden hall centro per pulizia del viso prescott 478 samsung tft navigatore satellitare gps pattinaggio foto royal gigolos california dreamin extend where the children play acer travelmate 4001 webranking www lycos portami in cielo viajes com mx kenwood chef major robot da cucina battletech epson emp-tw20 inger nilsson kosova mp3 mix vibes pro 4 bollon macchine da caffe in cialde qtek - pda phone 2020 brother tn8000 pc da tavolo benoit musica telefoni con filo generale di de gregori antrozous accessori gps alimento cane sachsen link esibizionisti diffusori e casse facce di clown foto acer aspire 5024wlmi turion ml34 512mb if god will send his angels g mazzini giovine italia cavalie hamster ball robbie williams. nobody someday la bayadere high grow sms logo nec e606 manu monitor lg 19 lcd il processo del secolo oakley iridium monitor benq lcd 19 fp931 soledad forster, john lultima pattuglia offerte lavoro infermieri svizzera most oh happy days sister act mobiline i nostri sogni on my knees 411 sapphire x550 256mb i want to miss a thing breath midge ure iposte www formaper com formulario giuridico lo scandalo del vestito bianco boow calma e sangu freddo anello elica creazione sito internet albenga protezione lcd castelrotto val gardena offertorio finanziamento lucca volo montreal immagini ragazze nude gratis dj di musica electronica in italia stupid girl voss, johann heinrich monitor lcd tuner diesel camicie donna albergo cortina d ampezzo barabba cheap and chic sparkle gf6600 256mb pci-express una corsa sul prato merz backstage gps blue tooth nemerix schede video per pc divinacommedia lettore dvd divx dv-380-s yuiop animaciones flash forio ischia o zone mai ia hii lombra della vendetta c8080 olympus telefonino samsung z300 mp3 1 u got your self fairfield (australia) hotel villamarina di cesenatico kenwood w6531 capareza rondanina donna reed nuove immagini senza preavviso buddha bar vi rayban occhiali poetare behringer kt108 paragonite settimana bianca a pila baloon 5 traduzione is it cos im cool jvc th-s1 box esterno 3 5 usb ata manubrio kg vacanze ottobre stacy fergusson philips impianti hi-fi velsen zephir condizionatore casamicciola fan fiction site sermon barbara durso locali hard trittico damore kodak - easyshare cx7330 ups 650 macchine caffe krups losing my tiziana sensi fuji - finepix s5500 jennifer connelly nuda fort washington - vita da cani scarpe lizard time to rock la mano che uccide porsche 2003 996 franchising abbronzatura vaio 17 notebook auto noleggio benevento frigoriferi incasso 320 ituiutaba set posate con origen nel deserto della california gay e transex stefania lay curriculum vitae europeo un medico in famiglia. prima serie. vol. 01 www roten com monitor yakumo 17 lcd seit elettronica srl hard disck 80gb fiat punto 1.2 16v sporting canon cb-2lue godwin austen motoraduni 2004 vicenza emma shapplin - carmine meo danu righeira karaoke calcio.com konica minolta dimage 600 rebel a k a forno con piano cottura clipart cobra videochatgratis accessori per interni audi 4 miratoio mac os 10 4 tiger sacrifice by lisa gerard and peter burke von savigny udo samel jamie walters songs top sensation dulce maria clase 406 posto al sole rai it bella balilla platinum wall dating sites tu che foto arcuri totali spies
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