Free Programming Source Codes and Computer Programming Tutorials

Saturday, August 20, 2016

Word Count in C++

Here is a sample program that I wrote in C++ that will count the number of words in a given sentence.

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

My mobile number here in the Philippines is 09173084360.

Program Listing

#include<iostream>
#include<string>

using namespace std;

char str1[150],tmp;
int i=0,j=0,w=0,l=0;

void CntWords(char str1[150])

{

l=strlen(str1);

for (i=1;i<=l;i++)

{

if (str1[i]==' '&&str1[i+1]!=' ')
{
w++;

}else{
if (str1[i]!=' '&&str1[l]!=' '&&l==i)
{
w++;

}

}

}

if (str1[1]==' ' && str1[2]==' ')
   {

   w--;
   }

tmp=str1[l-1];

if (tmp==' ')
{
w--;

}
}

main()
{

cout << "\t\t Word Count Version 1.0 ";
cout << "\n\n";
cout << "Type Words :=> ";
gets(str1);

CntWords(str1);

cout << "\nThe Counted Words " << w;
cout << "\n\n";
system("PAUSE");

}

Count Vowels and Consonants in PERL CGI

A simple program that I wrote using PERL CGI to count the number of vowels and consonants in a given word or a sentence. 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

vowels_consonants.cgi

#!"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>Count Vowels and Consonants in PERL CGI</title></head>
<body bgcolor='lightgreen'>
    <h3>Count Vowels and Consonants in PERL CGI</h3>
    <b>Written By: Mr. Jake R. Pomperada,MAED-IT</b>
    <br><br>
    <form action='' method='post'>
        <label>Enter a word or a sentence :<label>
        <input type='text' name='string' size=50/>
       <br><br>
        <input type='submit' value='Ok' />
    </form>
</body>
</html>";

my $q = new CGI;

if($q->param())
{
    $string = lc($q->param('string'));
    @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 "<br><br>";
    print "<b>===== DISPLAY RESULTS =====</b>";
    print "<br><br>";
    print "The given string or sentence : <span style='color:red; font-weight:bold;'>".$string."</span></p>";
    print "<p>Number of Vowels : <span style='color:red; font-weight:bold;'>". $num1 ."</span></p>";
    print "<p>Number of Consonants : <span style='color:red; font-weight:bold;'>". $num2 ."</span></p>";

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

Friday, August 19, 2016

Factorial in Turbo Pascal

A simple program that I wrote using Turbo Pascal for Windows to accept an integer value from the user and then our program will compute the factorial value of 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 Factorial_Program;

Uses WinCrt;

Var

   Fact : Longint;
   n    : Integer;

Function Factorial(n : integer) : longint;
Begin
If N < 1 then
   Begin
   factorial := 1;
   End
Else
   Factorial := n * factorial(n-1);
End;

Begin
Clrscr;
Write('Factorial Program in Turbo Pascal');
writeln;
Writeln;
Write('Enter a Number : ');
Readln(n);
fact := factorial(n);
writeln;
Writeln('The factorial of ',n:1,' = ',fact,'.');
Readln;
End.

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

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";

}

Free Programming Source Codes and Computer Programming Tutorials

Saturday, August 20, 2016

Word Count in C++

Count Vowels and Consonants in PERL CGI

Friday, August 19, 2016

Factorial in Turbo Pascal

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++

Google Ads

Followers