Free Programming Source Codes and Computer Programming Tutorials

Thursday, October 22, 2020

Product of Two Numbers in Delphi

A simple program to ask the user to give two numbers and then program will compute the product of two numbers.

I am currently accepting programming work, 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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

unit Product;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,b : Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a := strtoint(edit1.Text);

b := strtoint(edit2.Text);

edit3.text := inttostr(a*b);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.text := '';

edit2.text := '';

edit3.text := '';

edit1.SetFocus;

end;

end.

Payroll Program in PHP

A simple program using PHP to solve the salary of an employee in the company.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

<!doctype html>

<html>

<head>

<title>Payroll Program in PHP</title>

</head>

<body>

<style>

body {

font-family: arial;

size: 12px;

}

</style>

<h2>Payroll Program in PHP</h2>

<?php

$days_work=$rate=$g_sal=$deduct=$n_sal=0;

if(isset($_POST['compute'])){

$days_work=$_POST['days_work'];

$rate=$_POST['interest_rate'];

$g_sal=$days_work*$rate;

$deduct=$g_sal*.1;

$n_sal=$g_sal-$deduct;

}

<p>Number of Days Work: <input type="text" name="days_work" size="8" value="<?=$days_work;?>"/></p>

<p>

Gross Salary: <?=number_format($g_sal, 2);?><br/>

Deduction: <?=number_format($deduct, 2);?><br/>

Net Salary: <?=number_format($n_sal, 2);?>

</p>

</form>

</body>

</html>

Wednesday, October 21, 2020

LLE part 6

Square Root Converter in PERL

I will show you how to write a Perl program that will ask the user to give a number and then the program will convert the given number to it's square root equivalent.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Sample Program Output

Program Listing

# square_root.pl
# Author : Jake Rodriguez Pomperada, MAED-IT
# Date : November 4, 2019 Monday
# Email : jakerpomperada@gmail.com
do {
system("cls");
print "\n\n";
print "\tSquare Root Converter in PERL";
print "\n\n";
print "\tGive a Number : ";
chomp($num_val =<>);
$result = sqrt($num_val);
print "\n";
print "\tThe Square Root Value of $num_val is $result.";
print "\n\n";
print "\tDo you want to continue Y/N? : ";
chomp($reply =<>);
} while (uc $reply eq 'Y');
print "\n";
print "\tEnd of Program";
print "\n\n";

Loan Interest Solver in Perl

Loan Interest Solver in PERL

In this tutorial, I will show you how to write a Perl program that will ask the user the principal amount, number of years, and interest rate of the loan of the customer, and then the program will compute the interest amount to be paid by the customer and display the result on the screen.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

# interest.pl

# Author : Jake Rodriguez Pomperada, MAED-IT

# Date : October 21, 2020

# Website : www.jakerpomperada.blogspot.com / www.jakerpomperada.com

# Email : jakerpomperada@gmail.com

do {

system("cls");

print "\n\n";

print "\tLoan Interest Solver in PERL";

print "\n\n";

print "\tEnter Principal Amount PHP : ";

chomp($principal =<>);

print "\tEnter Number of Years : ";

chomp($time =<>);

print "\tEnter Percent Rate % : ";

chomp($rate =<>);

$solve_interest = ($principal * $time * $rate) / 100;

print "\n";

$result = sprintf("%.2f", $solve_interest);

print "\n";

print "\tThe Interest is PHP $result.";

print "\n\n";

print "\tDo you want to continue Y/N? : ";

chomp($reply =<>);

} while (uc $reply eq 'Y');

print "\n";

print "\tEnd of Program";

print "\n\n";

Minimum and Maximum Number in Java

A program that will ask the user how many element to be process in array and then the program will determine which of the given number in minimum and maximum number using Java programming language.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Sample Program Output

Program Listing

/**

* @author Jake Rodriguez Pomperada,MAED-IT, MIT

* www.jakerpomperada.com / www.jakerpomperada.blogspot.com

* jakerpomperada@gmail.com

* Bacolod City, Negros Occidental Philippines

import java.util.Scanner;

public class Minimum_Maximum_Numbers {

public static void main(String[] args) {

// TODO Auto-generated method stub

Scanner in = new Scanner(System.in);

int n=0, sum = 0;

int min=0, max=0;

System.out.println("\n");

System.out.print("\tMinimum and Maximum Number in Java");

System.out.println("\n");

System.out.print("\tEnter no. of elements you want in array:");

n = in.nextInt();

int a[] = new int[n];

for(int i = 0; i < n; i++)

{

System.out.print("\tGive element "

+ " value no." + (i+1) + " : ");

a[i] = in.nextInt();

}

min = max = a[0];

for(int i=1; i < n; i++) {

if(a[i] < min) min = a[i];

if(a[i] > max) max = a[i];

}

System.out.println();

System.out.println("\tMinimum Number : " + min +"." );

System.out.println("\tMaximum Number : " + max +"." );

System.out.println();

System.out.println("\tEnd of Program");

System.out.println("\n");

}

Tuesday, October 20, 2020

Kilometers To Miles in Java

A program that will ask the user to give a distance in kilometers and then it will convert into miles equivalent using Java programming language.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Sample Program Output

Program Listing

/**

* @author Jake Rodriguez Pomperada,MAED-IT, MIT

* www.jakerpomperada.com / www.jakerpomperada.blogspot.com

* jakerpomperada@gmail.com

* Bacolod City, Negros Occidental Philippines

import java.util.Scanner;

import java.text.DecimalFormat;

public class Kilometers_Miles {

private static DecimalFormat df2 = new DecimalFormat("#.###");

public static void main(String[] args) {

// TODO Auto-generated method stub

Scanner in = new Scanner(System.in);

System.out.println("\n");

System.out.print("\tKilometers To Miles in Java");

System.out.println("\n");

System.out.print("\tEnter Number of Kilometers : ");

double km =in.nextDouble();

double miles = (km * 0.621);

System.out.println("\n");

System.out.println("\t" + km + " Kilometer(s) is "

+ df2.format(miles) + " Miles(s).");

System.out.println();

System.out.println("\tEnd of Program");

System.out.println("\n");

}

Arithmetic Operators in Java

A program that I wrote using Java programming language that will ask the user to give two numbers and then the program will compute the sum, difference, product, and quotient of the two numbers given by the user.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Sample Program Output

Program Listing

/**

* @author Jake Rodriguez Pomperada,MAED-IT, MIT

* www.jakerpomperada.com / www.jakerpomperada.blogspot.com

* jakerpomperada@gmail.com

* Bacolod City, Negros Occidental Philippines

* October 20, 2020

import java.util.Scanner;

public class Arithmetic_Operators {

public static void main(String[] args) {

// TODO Auto-generated method stub

Scanner in = new Scanner(System.in);

System.out.println("\n");

System.out.print("\tArithmetic Operators in Java");

System.out.println("\n");

System.out.print("\tGive First Value : ");

int a =in.nextInt();

System.out.print("\tGive Second Value : ");

int b =in.nextInt();

int addition = (a+b);

int subtract = (a-b);

int product = (a*b);

int quotient = (a/b);

System.out.println("\n");

System.out.println("\t===== DISPLAY RESULTS =====");

System.out.println();

System.out.println("\tThe sum of " + a + " and "

+ b + " is " + addition +".");

System.out.println("\tThe difference of " + a + " and "

+ b + " is " + subtract +".");

System.out.println("\tThe product of " + a + " and "

+ b + " is " + product +".");

System.out.println("\tThe quotient of " + a + " and "

+ b + " is " + quotient +".");

System.out.println();

System.out.println("\tEnd of Program");

System.out.println("\n");

}

Average Score in Java

A simple program that I wrote using Java programming language to compute the average score given by the user.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

/**

* @author Jake Rodriguez Pomperada, MAED-IT, MIT

* jakerpomperada@gmail.com

* www.jakerpomperada.com

* Bacolod City, Negros Occidental

* October 20, 2020 Monday

import java.util.Scanner;

public class Average_Score {

public static void main(String[] args) {

// TODO Auto-generated method stub

int score1, score2, score3, score4, score5 ;

double average;

char repeat;

String input;

Scanner keyboard = new Scanner(System.in);

{

System.out.println("\n");

System.out.print("\t\tAverage Score in Java");

System.out.println("\n");

System.out.print("\tEnter Score No. 1 : ");

score1 = keyboard.nextInt();

System.out.print("\tEnter Score No. 2 : ");

score2 = keyboard.nextInt();

System.out.print("\tEnter Score No. 3 : ");

score3 = keyboard.nextInt();

System.out.print("\tEnter Score No. 4 : ");

score4 = keyboard.nextInt();

System.out.print("\tEnter Score No. 5 : ");

score5 = keyboard.nextInt();

keyboard.nextLine();

average = (score1 + score2 + score3 + score4 + score5) / 5.0;

System.out.println();

System.out.println("\tThe average score is " + average);

System.out.println();

System.out.print("\tContinue Y for yes or N for no: ");

input = keyboard.nextLine();

repeat = input.charAt(0);

} while (repeat == 'Y' || repeat == 'y');

System.out.print("\n\n");

System.out.println("\tEnd of Program");

System.out.println("\n\n");

}

Compound Interest in Java

A Java program that I wrote to ask the user to give the principal amount, rate, and years to be paid by the user.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Sample Program Output

Program Listing

Compound_Interest,java

/**

* @author Jake Rodriguez Pomperada, MAED-IT, MIT

* jakerpomperada@gmail.com

* www.jakerpomperada.com

* Bacolod City, Negros Occidental

* October 20, 2020 Monday

import java.util.Scanner;

import java.text.DecimalFormat;

public class Compound_Interest {

private static DecimalFormat df2 = new DecimalFormat("#.###");

public static void main(String[] args) {

// TODO Auto-generated method stub

Scanner input = new Scanner(System.in);

System.out.println("\n");

System.out.print("\t\tCompound Interest m in Java");

System.out.println("\n");

System.out.print("\tEnter Principal Amount : ");

double principal_amt = input.nextDouble();

System.out.print("\tEnter Interest Rate : ");

double rate = input.nextDouble();

System.out.print("\tEnter Number of Years : ");

double time = input.nextDouble();

// Calculate compound interest rate here

double CI = principal_amt *

(Math.pow((1 + rate / 100), time));

System.out.print("\n");

System.out.println("\tThe Compound Interest is $ "+ df2.format(CI));

System.out.print("\n\n");

System.out.println("\tEnd of Program");

System.out.println("\n\n");

}

Monday, October 19, 2020

Payroll Program in Java

I wrote this java program to compute the salary of an employee in the company.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

/**

* @author Jake Rodriguez Pomperada, MAED-IT, MIT

* jakerpomperada@gmail.com

* www.jakerpomperada.com

* Bacolod City, Negros Occidental

* October 19, 2020 Monday

import java.util.Scanner;

import java.math.RoundingMode;

import java.text.DecimalFormat;

public class Payroll_Program {

/**

* @param args

private static DecimalFormat df2 = new DecimalFormat("#.###");

public static void main(String[] args) {

// TODO Auto-generated method stub

String emp_name;

int hours;

double payRate;

double grossPay;

Scanner input = new Scanner(System.in);

System.out.println("\n");

System.out.print("\t\tPayroll Program in Java");

System.out.println("\n");

System.out.print("\tGive Employees Name : ");

emp_name = input.nextLine();

System.out.print("\tHow many hours did you work this week? : ");

hours = input.nextInt();

System.out.print("\tWhat is your hourly pay rate? : ");

payRate = input.nextDouble();

grossPay = hours * payRate;

System.out.print("\n");

System.out.print("\t===== Display Records =====");

System.out.print("\n\n");

System.out.println("\tEmployees Name : " + emp_name);

System.out.println("\tGross Pay : PHP " + df2.format(grossPay));

System.out.print("\n\n");

System.out.println("\tEnd of Program");

System.out.println("\n\n");

}

Sunday, October 18, 2020

Leap Year in Visual Basic

A simple program that I wrote using Visual Basic 6 to ask the user to give a starting year and ending year and then the program will generate the list of years based on the given starting and ending years of the user.

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 I also accepting computer repair, networking and Arduino Project development at a very affordable price.

Program Listing

Option Explicit

Public Function IsLeapYear0(ByVal y As Integer) As Boolean

On Error Resume Next

IsLeapYear0 = False

'If the year is evenly divisible by 4 and not by 100, then this

'is a leap year.

If y Mod 4 = 0 And y Mod 100 <> 0 Then

IsLeapYear0 = True

'If the year is evenly divisible by 4 and 100, then check to

'see if the quotient of year divided by 100 is also evenly

'divisible by 4. If it is, then this is a leap year.

ElseIf y Mod 4 = 0 And y Mod 100 = 0 Then

If (y \ 100) Mod 4 = 0 Then IsLeapYear0 = True

End If

End Function

Private Sub Command1_Click()

Dim y As Integer

For y = Val(Text1.Text) To Val(Text2.Text)

If IsLeapYear0(y) Then lstLeapYears(0).AddItem y

Next y

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

lstLeapYears(0).Clear

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Free Programming Source Codes and Computer Programming Tutorials

Thursday, October 22, 2020

Product of Two Numbers in Delphi

Payroll Program in PHP

Payroll Program in PHP

Wednesday, October 21, 2020

LLE part 6

Square Root Converter in PERL

Square Root Converter in PERL

Loan Interest Solver in Perl

Loan Interest Solver in PERL

Minimum and Maximum Number in Java

Minimum and Maximum Number in Java

Tuesday, October 20, 2020

Kilometers To Miles in Java

Arithmetic Operators in Java

Average Score in Java

Average Score in Java

Compound Interest in Java

Compound Interest in Java

Monday, October 19, 2020

Payroll Program in Java

Payroll Program in Java

Sunday, October 18, 2020

Leap Year in Visual Basic

Leap Year in Visual Basic

Google Ads

Followers