Sunday, April 19, 2020

Flex Box in CSS

This program is being written by my good friend and fellow software engineer Sir Ernel G. Fadriquilan thank you very much, Sir, for sharing your code to us.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

<!DOCTYPE html>
<html>
<head>
<style> 
.flex-container {
    display: -webkit-flex;
    display: flex;  
    -webkit-flex-flow: row wrap;
    flex-flow: row wrap;
    font-weight: bold;
    text-align: center;
}
.flex-container > * {
    padding: 10px;
    flex: 1 100%;
}
.main {
    text-align: left;
    background: cornflowerblue;
}
.header {background: coral;}
.footer {background: lightgreen;}
.aside1 {background: moccasin;}
.aside2 {background: violet;}
@media screen and (min-width: 600px) {
    .aside { flex: 1 0px; }
}
@media screen and (min-width: 800px) {
    .main    { flex: 3 0px; }
    .aside1 { order: 1; } 
    .main    { order: 2; }
    .aside2 { order: 3; }
    .footer  { order: 4; }
}
</style>
</head>
<body>
<div class="flex-container">
  <header class="header">Header</header>
  <article class="main">
    <p>I love this game</p>
  </article>
  <aside class="aside aside1">Aside 1</aside>
  <aside class="aside aside2">Aside 2</aside>
  <footer class="footer">Footer</footer>
</div>
</body>

</html>

Color Borders in CSS

This program is being written by my good friend and fellow software engineer Sir Ernel G. Fadriquilan thank you very much, Sir, for sharing your code to us.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

<!DOCTYPE html>
<html>
<head>
<style>
p.one {
    border-style: solid;
    border-color: #0000ff;
}
p.two {
    border-style: solid;
    border-color: #ff0000 #0000ff;
}
p.three {
    border-style: solid;
    border-color: #ff0000 #00ff00 #0000ff;
}
p.four {
    border-style: solid;
    border-color: #ff0000 #00ff00 #0000ff rgb(250,0,255);
}
</style>
</head>
<body>
<p class="one">One-colored!</p>
<p class="two">Two-colored!</p>
<p class="three">Three-colored!</p>
<p class="four">Four-colored!</p>
</body>
</html>

User Input Using Hash in Perl

A code that I wrote to demonstrate user input and display the results using Hash in Perl programming language.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# user_input_hash.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 14, 2020  Tuesday  10:46 AM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Websites : http://www.jakerpomperada.com
#            http://www.jakerpomperada.blogspot.com

my %hashed =(); 

#Takes The value of Number of Key-Value pairs intended

print "Enter count\n";
my $count=<STDIN>;
chomp ($count);
my $i=0;
until ($i==$count)
{
do &Hash_Input();
$count--;
}

#Prints the key-value pair
while (($keys,$values) = each (%hashed))
{
print "$keys => $values\n";
}

# Takes User Input on the basis of Count value

sub Hash_Input
{
my $keys='zenity --entry --text "Enter key\n"';
chomp ($keys);
my $values= 'zenity --entry --text "Enter Val"';
chomp ($values);

#Stores the new key-value pairs on the basis of count
$hashed{$keys}=$values;


}

Count Vowels and Consonants in a String in Perl

I wrote this program to ask the user to give a string and then the program will count the number of vowels and consonants using Perl programming language.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# vowels_consonants_string.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 8, 2020   Wednesday  6:41 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

sub in_array {
my ($arr,$search_for) = @_;
return grep {$search_for eq $_} @$arr;
}
  

    print("\n");
    print("\tCount Vowels and Consonants in a String in Perl");
    print("\n\n");
    print("\tEnter a String : ");
    chomp($str=<STDIN>);

    $string = lc($str);
    @vowels = ("a","e","i","o","u");
    @consonants=("b","c","d","f","g","h","j","k","l"
                ,"m","n","p","q","r","s","t","v","w","x","y","z");
    $len = length($string);
    $num1 = 0;
  
    @strarr = split(//, $string);
   
    for($i=0; $i<$len; $i++){

        if(in_array(\@vowels, $strarr[$i]))
        {
            $num1++;
        }
      
        if(in_array(\@consonants, $strarr[$i]))
        {
            $num2++;
        }
    }
    print("\n");
    print("\tString given          : $str");
    print("\n\n");
    print ("\tNumber of Vowels      : $num1\n"); 
    print ("\tNumber of Consonants  : $num2\n"); 
    print("\n\n");
    print("\t\tEnd of Program");

    print("\n\n");

Remove Vowels in a String in Perl

I wrote this program to ask the user to give a string and then the program will remove all the vowels in the given string and display the results on the screen using Perl programming language.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# vowels_remove_string.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 11, 2020   Saturday  7:07 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Websites : http://www.jakerpomperada.com
#            http://www.jakerpomperada.blogspot.com
printf("\n\n");
printf("\tRemove Vowels in a String");
printf("\n\n");
printf("\tGive a String : ");
    
chomp($str=<STDIN>);
printf("\n\n"); 
printf("\tDISPLAY RESULT");
printf("\n\n"); 
printf("\tOriginal String : %s ",$str);

# To convert the $str string to upper case 
# using the lc keyword.
$results = uc $str;

# Transliteration Operator to remove the vowels 
# in the string.

$results =~ tr/A,I,E,O,U/\0/;

printf("\n\n");    
printf("\tString after removing the vowels.\n\n" );
printf("\t%s",$results);
printf("\n\n");
printf("\tEnd of Program");

printf("\n\n");

Length a Number Using While Loop in Perl

I wrote this program to ask the user to give the number and then the program will find the length of the number using while loop statement in Perl programming language.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# length_number_while.pl
# Length of a Number Using While Loop
# Author   : Jake R. Pomperada,MAED-IT,MAIT
# Date     : April 5, 2020   Sunday  12:10 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

print("\n");
print("\tLength a Number Using While Loop in Perl");
print("\n\n");
print("\tGive a Number : ");
chomp(my $num=<STDIN>);

my @arr = split //, $num;
my $len = @arr;
my $rev = '';

while ($len>=0)
{
    $rev .=$arr[$len];
    $display=length($rev);
    $len--;
}
print("\n");
print("\tThe length of the number is $display.");
print("\n\n");
print("\tEnd of Program");

print("\n\n");

Length of String in Perl

I wrote this program to ask the user to give a string and then the program will find the length of the given string by the user and display the results on the screen using Perl programming language.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# length_string.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 8, 2020   Wednesday  6:41 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

    print("\n");
    print("\tLength of String in Perl");
    print("\n\n");
    print("\tEnter a String : ");
    chomp($str=<STDIN>);

    $display = uc $str;
    $string_len =  length($str);

    print("\n\n");
    print "\tThe given string        : $display\n";
    print "\tLength of the String is : $string_len\n";
    print("\n\n");
    print("\t\tEnd of Program");

    print("\n\n");

Linear Search in Perl

I wrote this program to demonstrate the concept of linear search using Perl programming language. Feel free to use this code in your assignments and projects in computer programming in Perl.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# linear_search_array.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 10, 2020   Friday  9:25 OM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

@$arr=(1..100);
$b=0,$num_input=0;
$c=0, $pos=0;
printf("\n");
printf("\t\tLinear Search in Perl");
printf("\n\n");
printf("\tEnter the array size : ");
chomp($num_input=<STDIN>);
printf("\n");
for($b=0; $b<$num_input; $b++)
{
     printf("\tEnter Array Elements Item No. %d: ",$b+1);   
     chomp($arr[$b]=<STDIN>);
}
printf("\n\n"); 
printf("\tEnter the number to be search : ");
chomp($num_input=<STDIN>);
for($b=0; $b<$num_input; $b++)
{
if($arr[$b]==$num_input)
{
$c=1;
$pos=($b+1);
break;
}
}
if($c==0)
{
printf("\n\n");
printf("\tSorry the number %d is not found from the list.",$num_input);
}
else
{
printf("\n\n");
    printf("\tThe number %d found at position %d.",$num_input,$pos);
}
printf("\n\n");
printf("\tEnd of Program");
printf("\n\n");

Login Security System in Perl

I wrote this simple login security system using Perl programming language to ask the user to give a username and password and check if the username and password is correct or not.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# login_string.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 8, 2020   Wednesday  7;40 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

    back:
    print("\n\n");
    print("\tLogin Security System in Perl");
    print("\n\n");
  
    print("\tEnter Your Username  : ");
    chomp($username=<STDIN>);
    
    print("\tEnter Your Password  : ");
    chomp($password=<STDIN>);
    
    $user_check = lc $username;
    $pass_check = lc $password;

    if  ($user_check eq "admin"  && $pass_check eq "123") {
        print("\n\n");
        printf("\tPassword is accepted. Welcome to the system.")
    } else
      {
          print("\n\n");
          printf("\tInvalid Password. Try Again.");
          print("\n\n");
          goto back;
      }
    print("\n\n");
    print("\t\tEnd of Program");

    print("\n\n");

String Lower Case in Perl

I wrote this program to ask the user to give a string and then the program will convert the given string into a lower case format using Perl programming language.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

# lowercase_string.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 8, 2020   Wednesday  7;40 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

    print("\n");
    print("\tString Lower Case in Perl");
    print("\n\n");
  
    print("\tGive a String : ");
    chomp($str=<STDIN>);
    
    $display = lc $str;

    print("\n\n");
    print "\tThe lower case equivalent of the string is $display.";
    print("\n\n");
    print("\t\tEnd of Program");

    print("\n\n");

Factors of Positive Integer in C

This program is being written by my good friend and fellow software engineer Sir Ernel G. Fadriquilan thank you very much, Sir, for sharing your code to us.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

#include <stdio.h>

int main()
{
    int number, i;
    printf("Enter a positive integer: ");
    scanf("%d",&amp;number);
    printf("Factors of %d are: ", number);
    for(i=1; i <= number; ++i)
    {
        if (number%i == 0)
        {
            printf("%d ",i);
        }
    }
    return 0;

}

Power of Number Using C

This program is being written by my good friend and fellow software engineer Sir Ernel G. Fadriquilan thank you very much, Sir, for sharing your code to us.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.

My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/

https://www.unlimitedbooksph.com/

Program Listing

#include <stdio.h>
#include <math.h>
int main()
{
    double base, exponent, result;
    printf("Enter a base number: ");
    scanf("%lf", &amp;base);
    printf("Enter an exponent: ");
    scanf("%lf", &amp;exponent);
    result = pow(base, exponent);
    printf("%.1lf^%.1lf = %.2lf", base, exponent, result);
    return 0;
}

Friday, April 17, 2020

Search a Record in SQL Using PHPMyAdmin

Insert a Record Using SQL in MySQL Database

Update a Record Using SQL in MySQL Database

Running Sum of Numbers Using Until Loop in Perl

I wrote this program to ask the user to give a series of numbers and then the program will compute the running sum of numbers using until loop in Perl programming language,

I wrote this math functions in C++ to help my friend in his C++ class I hope you will fund this math machine problem functions useful.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.


Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.
My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/
https://www.unlimitedbooksph.com/


Program Listing

# sum_until.pl
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 6, 2020   Monday  5:51 AM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com
print("\n");
print("\tRunning Sum of Numbers Using Until Loop in Perl");
print("\n\n");
$num_val = 1;

until ($num_val >= 11) {
 print("\tGive Value in Item No. $num_val: ");
 chomp($num=<STDIN>);

 $sum = $sum+$num;
 $num_val++;
}
print("\n");
printf "\tThe total sum is $num_val.";
print("\n\n");
print("\t\tEnd of Program");

print("\n\n");


While Loop in Perl

A simple code in Perl that I wrote that shows how to declare and use while loop statement.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.


Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.
My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/
https://www.unlimitedbooksph.com/


Program Listing

# While Loop Example No. 1 Perl
# Author   : Jake R. Pomperada,MAED-IT,MAIT
# Date     : April 4, 2020   Saturday  7:34 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

$test = 1;

print("\n");
print("\tWhile Loop Example No. 1 in Perl");
print("\n\n");
while ($test <= 5)
{
 print "\tStill Counting at $test. \n";
 $test++;
}
print("\n");
print("\tEnd of Program");
print("\n\n");

Word Count in Perl

I wrote this simple program using Perl programming language to ask the user to give a string and then the program will count the number of words in the given string.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.


Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.
My personal website is http://www.jakerpomperada.com

My programming website is http://www.jakerpomperada.blogspot.com

I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/
https://www.unlimitedbooksph.com/


Program Listing

# word_count_string.pl

# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 10, 2020   Friday  8:03 AM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

    $wordcount = 0;

    print("\n\n");
    print("\tWord Count in Perl");
    print("\n\n");
  
    print("\tGive a Sentence  : ");
    chomp($sentence=<STDIN>);
    
    @array = split(/ /,$sentence);
    $wordcount += @array;
    
    print("\n");
    print("\tTotal Number of Words : $wordcount");
    print("\n\n");
    print("\t\tEnd of Program");

    print("\n\n");


Odd and Even Numbers Using Do While Statement in Perl

I wrote this simple Perl program that will ask the user to give a number and then the program will display the list of odd and even numbers using do-while loop statement.

I am currently accepting programming work inventory system, enrollment system, accounting system, payroll system, information system, website design and development using WordPress, IT projects, school and application development, programming projects, thesis, and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me in the following email address for further details. If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is the following jakerpomperada@gmail.com, jakerpomperada@aol.com, and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.
My telephone number at home here in Bacolod City, Negros Occidental Philippines is +63 (034) 4335675.

Here in Bacolod City, Negros Occidental I also accepting computer repair, web development using WordPress, Computer Networking and Arduino Project development at a very affordable price.
My personal website is http://www.jakerpomperada.com


My programming website is http://www.jakerpomperada.blogspot.com
I am also a book author you can purchase my books on computer programming and information technology in the following links below.

https://www.mindshaperspublishing.com/
https://www.unlimitedbooksph.com/


Program Listing

# odd_even_do_while.pl
# It will ask the user to give a number and then the program
# will display the list of odd and even numbers using do while
# loop statement.
# Author   : Jake R. Pomperada,MAED-IT,MIT
# Date     : April 5, 2020   Sunday  8:24 PM
# Location : Bacolod City, Negros Occidental
# Email    : jakerpomperada@gmail.com
# Website  : http://www.jakerpomperada.com

print("\n");
print("\tOdd and Even Numbers Using Do While Statement in Perl");
print("\n\n");
print("\tGive a Number : ");
chomp($num=<STDIN>);
print("\n");
for ($i=0; $i <= $num; $i++) {
    if ($i % 2 == 0) {
    print "\t$i is an EVEN Number.";
    print "\n";
        }
    else {
  print "\t$i is an ODD Number.";
print "\n";
    }
}  
print("\n");
print("\t\t\tEnd of Program");

print("\n\n");