Free Programming Source Codes and Computer Programming Tutorials

Friday, August 19, 2016

Fibonacci Numbers in Turbo Pascal

Here is a sample program that I wrote using Turbo Pascal For Windows to compute the fibonacci number based on the given number by the user.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Fibonacci;
Uses WinCrt;

Var N : Integer;

Function fib(n:integer) : integer;
Begin
If (n=0) OR (n=1) then
   Begin
   fib := 1;
   End
Else
fib:= fib(n-1)+fib(n-2);
End;

Begin
   Clrscr;
   Writeln('FIBONACCI NUMBERS IN PASCAL');
   Writeln;
   Write('Give a Number : ');
   Readln(n);
   Writeln;
   Writeln('The Fibonacci(n) = ',fib(n),'.');
   Readln;
End.

Product of Two Numbers in PERL CGI

A simple program that I wrote that will ask the user to give two numbers and then our program will find the product of the two numbers using PERL CGI.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

product.cgi

#!"D:\xampp\perl\bin\perl.exe"
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $q = new CGI;

my $num1 = $q->param(val1);
my $num2 = $q->param(val2);
print "Content-type: text/html\n\n";

print "<html>
<style>
body {
     font-family:arial;
    font-size:15;
    color:blue;
    }

</style>
<head><title>Product of Two Numbers in Perl CGI</title></head>
<body bgcolor='lightgreen'>
    <h3>Product of Two Numbers in PERL CGI</h3>
    <b>Written By: Mr. Jake R. Pomperada,MAED-IT</b>
    <br><br>
    <form action='' method='post'>
        <label>Enter First Number <label>
        <input type='text' name='val1' value='' autofocus/><br><br>
        <label>Enter Second Number </label>
        <input type='text' name='val2' value='' />
        <br><br>
       <input type='submit' value='Submit' />

    <input type='reset' name='Reset' value='Reset'/></form>
</body>
</html>";

if($q->param())
{


    $product = $num1 * $num2;

       print "<p>The product of $num1 and $num2 is $product.</p>";

}

Palindrome in Perl

In this article I would like to share with you a sample program the I wrote in PERL CGI to accept a string and then it will check if the given string is a palindrome or not a palindrome. The code is very easy to understand and use.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

#!"D:\xampp\perl\bin\perl.exe"

use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

print "Content-type: text/html\n\n";
print "<html>
<style>
body {
     font-family:arial;
    font-size:15;
    color:blue;
    }

</style>
<head><title>Palindrome Program in PERL CGI</title></head>
<body bgcolor='lightgreen'><br>
    <h3>Palindrome Program in PERL CGI</h3>
    <b>Written By: Mr. Jake R. Pomperada,MAED-IT</b>
    <br><br><br>
    <form action='' method='post'>
        <label>Give a String : <label>
        <input type='text' name='string' />
        <br><br>
        <input type='submit' value='Ok'
        title='Click to know if the string a palindrome or not a palindrome.'/>
    </form>
</body>
</html>";

my $q = new CGI;

if($q->param())
{
    $string = lc($q->param('string'));

    $string=~s/ //g;

    $string =~ s/[^A-Za-z0-9]//g;

    $reverse = reverse($string);

    $display = uc($string);

    if($string eq $reverse){

        print "<br>";
        print "<p>The String <b>$display</b> is Palindrome.</p>";
    }else{
        print "<br>";
        print "<p>The String <b>$display</b> is not Palindrome.</p>";
    }

}

Friday, August 12, 2016

Checking Age in Cobol

Here is a simple program that I wrote entirely in COBOL that shows how to use if statement. This program will ask the user's and then our program will check and determine whether the user is an adult or a minor. The code is very simple and easy to understand.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

******************************************************************

* Author: MR. JAKE R. POMPERADA,MAED-IT

* Date: AUGUST 12, 2016

* Purpose: AGE CHECKER PROGRAM IN COBOL

******************************************************************

IDENTIFICATION DIVISION.

PROGRAM-ID. AGE_CHECKER.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 AGE PIC 9(4).

PROCEDURE DIVISION.

PARA.

DISPLAY "CHECKING AGE IN COBOL".

DISPLAY "".

DISPLAY "WHAT IS YOUR AGE?".

ACCEPT AGE.

IF AGE >=18 THEN

DISPLAY "YOU ARE ALREADY AN ADULT.".

IF AGE < 18 THEN

DISPLAY "SORRY YOU ARE STILL A MINOR.".

STOP RUN.

Math Calculator in Cobol

Here is a simple program that I wrote using COBOL to imitate a very simple calculator. The program will ask the user to give two numbers and then our program will compute for the sum, difference, product and quotient of the two numbers given by our user. I am using OpenCOBOLIde as my compiler in this sample program. I hope you will like it. Thank you.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

******************************************************************

* Author: MR. JAKE R. POMPERADA

* Date: AUGUST 12, 2016

* Purpose: MATH CALCULATOR IN COBOL

******************************************************************

IDENTIFICATION DIVISION.

PROGRAM-ID. CALCULATOR.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 NUM_1 PIC 9(4).

77 NUM_2 PIC 9(4).

77 SOLVE_SUM PIC 9(4).

77 SOLVE_DIFF PIC 9(4).

77 SOLVE_PRODUCT PIC 9(4).

77 SOLVE_QUOTIENT PIC 9(4).

PROCEDURE DIVISION.

PARA.

DISPLAY "MATH CALCULATOR IN COBOL".

DISPLAY "".

DISPLAY "ENTER THE FIRST VALUE : ".

ACCEPT NUM_1.

DISPLAY "ENTER THE SECOND VALUE : ".

ACCEPT NUM_2.

COMPUTE SOLVE_SUM = NUM_1 + NUM_2.

COMPUTE SOLVE_DIFF = NUM_1 - NUM_2.

COMPUTE SOLVE_PRODUCT = NUM_1 * NUM_2.

COMPUTE SOLVE_QUOTIENT = NUM_1 / NUM_2.

DISPLAY "".

DISPLAY "===== DISPLAY RESULT =====".

DISPLAY "".

DISPLAY "THE SUM IS ".

DISPLAY SOLVE_SUM.

DISPLAY "".

DISPLAY "THE DIFFERENCE IS ".

DISPLAY SOLVE_DIFF.

DISPLAY "".

DISPLAY "THE PRODUCT IS ".

DISPLAY SOLVE_PRODUCT.

DISPLAY "".

DISPLAY "THE QUOTIENT IS ".

DISPLAY SOLVE_QUOTIENT.

STOP RUN.

Hello World in Cobol

Here is a very simple program that I wrote in COBOL to simply display hello world text on the screen.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

**********************************************************************

* Author: MR. JAKE R. POMPERADA

* Date: AUGUST 12, 2016 FRIDAY

* Purpose: TO DISPLAY HELLO WORLD ON THE SCREEN

**********************************************************************

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLOWORLD.

DATA DIVISION.

FILE SECTION.

WORKING-STORAGE SECTION.

PROCEDURE DIVISION.

MAIN-PROCEDURE.

DISPLAY "Hello world. Welcome To the Philippines.".

STOP RUN.

END PROGRAM HELLOWORLD.

Addition of Two Numbers in Cobol

Hi there this will be my first time to write a simple program in COBOL or Common Business Oriented Language to find the sum of the two numbers. In this sample program I am using OPENCOBOLIDE as my cobol compiler. The code is very simple and easy to understand.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

******************************************************************

* Author: MR. JAKE R. POMPERADA

* Date: AUGUST 12, 2016

* Purpose: FIND THE SUM OF TWO NUMBERS

******************************************************************

IDENTIFICATION DIVISION.

PROGRAM-ID. ADDITION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 NUM_1 PIC 9(4).

77 NUM_2 PIC 9(4).

77 SOLVE_SUM PIC 9(4).

PROCEDURE DIVISION.

PARA.

DISPLAY "SUM OF TWO NUMBERS IN COBOL".

DISPLAY "".

DISPLAY "ENTER THE FIRST VALUE : ".

ACCEPT NUM_1.

DISPLAY "ENTER THE SECOND VALUE : ".

ACCEPT NUM_2.

COMPUTE SOLVE_SUM = NUM_1 + NUM_2.

DISPLAY "THE TOTAL SUM IS ".

DISPLAY SOLVE_SUM.

STOP RUN.

Monday, August 8, 2016

Find the sum of the first 100 Natural Numbers in C++

A simple program that I wrote in C++ to find the sum of the first 100 natural numbers in C++. The code is very easy and use.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

#include <iostream>

using namespace std;

int main()

{

int number=0,sum=0;

cout << "\t Find the sum of the first 100 Natural Numbers ";

cout << "\n\n";

for (number =1; number <=100; number++)

{

sum+=number;

}

cout << "The total sum is " << sum << ".";

cout << "\n\n";

cout << "End of Program";

cout << "\n\n";

}

Find Area of Rhombus in C++

A simple program that I wrote using C++ to find the are of the Rhombus. The code is very easy to understand and use.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

#include <iostream>

#include <iomanip>

using namespace std;

int main()

{

float diag_1,diag_2;

float area=0.00;

cout << "\t Find Area of Rhombus";

cout << "\n\n";

cout << "Enter diagonals of the given rhombus : ";

cin >> diag_1 >> diag_2;

area = (0.5 * diag_1 * diag_2);

cout << "\n\n";

cout << setprecision(5);

cout <<"The Area of Rhombus is " << area<<".";

cout << "\n\n";

cout << "End of Program";

cout << "\n\n";

}

Saturday, August 6, 2016

Prime Numbers in Perl

A simple program that I wrote using Perl to display prime numbers at the screen.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

#prime.pl

my @prime_display;

for my $i (2..100){

my $check="true";

for (2..$i-1){

if($i % $_ ==0){

$check = "false";

}

if ($check eq "true"){

push @prime_display, $i;

}

print "\n\n";

print "\tPrime Numbers Program in Perl";

print "\n\n";

print "List of Prime Numbers";

print "\n\n";

print "@prime_display.\n";

print "\n\n";

print "\t End of Program";

print "\n\n";

Factorial Number in Perl

A simple program that I wrote using Perl to display the factorial value of the number.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

my @factorial = (1);

$MAX_VALUES=6;

for my $number (1..$MAX_VALUES) {

$factorial[$number] = $number * $factorial[$number-1];

}

print "\n\n";

print "\tFactorial Program in Perl";

print "\n\n";

for my $values(1..$MAX_VALUES)

{

print "The factorial value of $values is $factorial[$values].\n" ;

}

print "\n\n";

print "\t End of Program";

print "\n\n";

Free Programming Source Codes and Computer Programming Tutorials

Friday, August 19, 2016

Fibonacci Numbers in Turbo Pascal

Product of Two Numbers in PERL CGI

Palindrome in Perl

Friday, August 12, 2016

Checking Age in Cobol

Math Calculator in Cobol

Hello World in Cobol

Addition of Two Numbers in Cobol

Monday, August 8, 2016

Find the sum of the first 100 Natural Numbers in C++

Find Area of Rhombus in C++

Saturday, August 6, 2016

Prime Numbers in Perl

Factorial Number in Perl

Google Ads

Followers