|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> perl Programmering >> Content

    Hur Avrunda till ett heltal i Perl

    Perl har inte en inbyggd funktion särskilt utformade för att runda flyttal till heltal , men du kan skriva din egen funktion som införlivar sprintf funktionen att avrunda dessa siffror till närmaste hela . Den sprintf Funktionen tar två argument , ett format och en lista . Listan är helt enkelt numret du vill avrunda uppåt eller nedåt . Använd " % .0 f " som format , vilket talar om för funktionen att antalet är flyttal och du vill avrunda det till noll siffror efter decimalkommat . Instruktioner
    1

    Öppna ett Perl programfil . Skriv följande kod :

    sub intCheck {

    min $ num = skift,

    retur ( $ num = ~ m /^ \\ d + $ /) ;

    }

    Detta skapar en funktion som heter " intCheck " som först får ett argument som skickas till den och sparar den till en variabel som heter " $ num , " återgår " true " om detta antal är ett heltal . eller " false " om det inte är
    2

    Skriv följande kod :

    sub runda {

    min $ var = skift,
    < p > om ( intCheck ( $ var - 0,5 ) ) { $ var = $ var + 0,1; }

    återvända sprintf ( " % .0 f " , $ var ) ;

    }

    Detta skapar en funktion som heter " runda . " Det blir argumentet som skickas till den och sparar den i " $ var " variabel . Det anropar sedan intCheck funktion och passerar variabelnummer minus 0,5 . Om intCheck returnerar " true ", den $ var har 0,1 adderas till det . Den runda avrundar funktionen då variabeln till närmaste heltal och returnerar den
    3

    Skriv följande kod : .

    Print runda ( 4,49 ) . " \\ n ";

    print runda ( 4,51 ) . " \\ n ";

    print runda ( 4,5 ) . " \\ n ";

    Dessa rader testa runda funktionen . Den första raden rundorna ner till fyra och de nästa två rader runda upp till fem .
    4

    Spara Perl filen .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur att läsa från Dosbox i Perl
    ·Hur du använda utskriftsfunktionen i Perl
    ·Hur man skapar ett perl Fil
    ·Hur man använder en switch-sats i Perl
    ·Hur man läser mer än en rad i taget i Perl
    ·Hur man skapar en while i Perl
    ·Hur konvertera binära data till en decimal i Perl
    ·Hur att referera till sista elementet i en array i Perl…
    ·Hur man läser CSV -filer i Perl
    ·Lägga till en länk med en Perl Script
    Utvalda artiklarna
    ·Hur man skriver ett formulär med jQuery
    ·Hur man läser en CSV Column & Konvertera till Python
    ·Hur du använder Force Feedback med GTA IV för Xbox
    ·Kontroll C i Förvänta Script
    ·Så här använder skyboxes i GtkRadiant
    ·Hur man programmerar andragradsekvationer i Visual Basi…
    ·Hur man skickar HTML formulärdata till en textfil
    ·Hur du krypterar en fil med VB
    ·Hur man identifierar storleken på en Viewport
    ·Lägga till en in -knappen till NIB
    Copyright © Dator Kunskap http://www.dator.xyz