Loan Interest Solver in C++

A simple program that I wrote to compute the loan amount using C++.


If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

#include <iostream>

#include <iomanip>

#include <fstream>

using namespace std;

main() {

    string name;

    int principal=0;

    int number_months=0;

    float rate=0.00,solve_rate=0.00;

    ofstream file("report.txt");

    cout << "\t  Kwarta Agad Lending Investor";

    cout << "\n\n";

    cout << "Enter Customer Name    :=> ";

    getline(cin,name);

    cout << "\nEnter Amount  Loan   :=> ";

    cin >> principal;

    cout << "\nNumber of Months    :=> ";

    cin >> number_months;

    cout << "\nEnter Rate Per Month :=> ";

    cin >> rate;

    solve_rate = (principal * number_months * rate ) ;

    cout << "\n\n";

    cout << fixed << setprecision(2);

    cout << "The Simple Interest Rate is Php "

         << solve_rate << ".";

    file << "\n\t ======= Kwarta Agad Lending Investor =========";

    file << "\n\n";

    file << "\n\t\t CUSTOMER REPORT";

    file << "\n\n";

    file << "\n Customer Name     : " << name;

    file << "\n Amount   Loan     : " << principal;

    file << "\n Number of Months  : " << number_months;

    file << "\n Rate Per Month    : " << rate;

    file << "\n\n";

    file << fixed << setprecision(2);

    file << "\n Interest Rate is Php " << solve_rate;

    file.close();

    cout << "\n\n";

    system("pause");

}

Highest and Lowest Number in Pascal

This simple program will check which of the ten numbers in an array is the highest and the lowest using Pascal as our programming language. I am using Turbo Pascal 5.0 as my Pascal compiler in this sample program.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

program high_low;

uses crt;

var

  numbers:array[1..10] of integer;

  high:integer;

  low:integer;

  x:integer;

procedure quit;

begin

  writeln;

  writeln;

  writeln('Press <Enter> to Quit');

  readln;

end;

begin

  clrscr;

  numbers[1]:=2;

  numbers[2]:=3;

  numbers[3]:=-34;

  numbers[4]:=23;

  numbers[5]:=6;

  numbers[6]:=-345;

  numbers[7]:=7;

  numbers[8]:=9;

  numbers[9]:=10;

  numbers[10]:=123;

  writeln('Highest and Lowest Number Checker in Pascal');

  writeln;

  high := numbers[1];

  low := numbers[1];

  for x := 1 to 10 do

  begin

    if numbers[x] > high then

       high := numbers[x];

    if numbers[x] < low then

       low := numbers[x];

  end;

  writeln('The Highest Number: ', high);

  writeln('The Lowest Number: ', low);

  quit;

  End.

Area of a Circle in Pascal

A simple program that I wrote in Pascal that will compute the area of the circle based on the given value by the user. In this program I wrote using Turbo Pascal 5.0 as my Pascal compiler.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Area_Circle;

Uses Crt;

Const

  Pi = 3.1416;

Var

  Radius : Integer;

  Area    : Real;

Begin

  Clrscr;

  Writeln('Area of a Circle Solver');

  Writeln;

  Write('Enter the Radius of the Circle : ');

  Readln(Radius);

  Area := (Pi * Radius * Radius);

  Writeln;

  Writeln('The Area of the Circle is ' ,Area:8:2,'.');

  Writeln;

  Writeln('Thank You For Using This Program');

  Readln;

End.

Odd and Even Number Checker in Pascal

A simple program that I wrote using Pascal as my programming language that will ask the user to give a  number and then our program will determine if the given number by the user is ODD or EVEN number. The program itself is very short and easy to understand. I am using Turbo Pascal 6 as my compiler in writing this program.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Odd_Even_Number;

Uses Crt;

Var Number : Integer;

    R     : Integer;

    Ch    : Char;

Begin

  Clrscr;

  Repeat

  Writeln;

  Number := 0;

  R := 0;

  Writeln('Odd and Even Number Checker in Pascal');

  Writeln;

  Writeln;

  Write('Enter a Number : ');

  Readln(Number);

  R := Number MOD 2;

     If (R=0) Then

       Begin

         Writeln(Number ,' is a Even Number. ');

         Writeln;

       End

     Else

       Begin

         Writeln(Number,' is Odd Number. ');

         Writeln;

       End;

    Writeln;

    Write(' Do you want to continue y/n ?');

    Ch := Upcase(readkey);

    Until Ch = 'N';

    Writeln;

    Writeln;

    Write('Thank You For Using This Software.');

    Readln;                                  

 End.

Palindrome Program in Pascal

A simple program that I wrote before in Pascal to check if the word given by the user is a Palindrome or not a Palindrome. The code is very simple and easy to understand.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing


Program Palindrome;
Uses Crt;
Label Finish;
VAR
StrIn, dForward, Reversed:String;
n:Integer;
ch:Char;
Palin:Boolean;
Begin
     Clrscr;
     Writeln; Writeln; Writeln;
     Write('              PALINDROME PROGRAM IN PASCAL        ');
     Writeln(' Just Press Enter to quit the Program');
     Repeat
           Writeln;
           Write('Enter a Word :==> ');
           Readln(StrIn);
           If StrIn = '' Then Goto Finis;
           dForward := '';  Reversed := '';
               For n := 1 to Length(StrIn) Do
           Begin
                ch := UpCase(StrIn[n]);
                If ch in ['A'..'Z'] Then
                Begin
                     dForward := dForward + ch;
                     Reversed := ch + Reversed
                End;
           End;
           Palin := dForward = Reversed;  
           If Palin then Writeln('"',StrIn, '" is a palindrome.') 
           Else Writeln('"',StrIn, '" is not a palindrome.'); 
Finish: 
     Until StrIn = ''; 
END.

Positive and Negative Number Checker in Pascal

Here is a sample program that I wrote using Pascal as my programming language that will ask the user to give a number and then our program will check whether the give number of the user is a positive or negative number after which our program will ask the user if the user will continue using the program or not.  This program that I wrote is very simple it brings back the memories during my college day's when I am taking up Pascal programming I am using Turbo Pascal 6.0 as my Pascal compiler in this program.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Positive_and_Negative_Numbers;

Uses Crt;

Var Number : Integer;

    Ch     : Char;

Begin

  Clrscr;

  Repeat

  Writeln;

  Number := 0;

  Writeln('Positive and Negative Number Checker in Pascal');

  Writeln;

  Writeln;

  Write('Enter a Number : ');

  Readln(Number);

     If (Number >=0) Then

       Begin

         Writeln(Number ,' is a Positive Number. ');

         Writeln;

       End

     Else

       Begin

         Writeln(Number,' is a Negative Number. ');

         Writeln;

       End;

    Writeln;

    Write(' Do you want to continue y/n ?');

    Ch := Upcase(readkey);

    Until Ch = 'N';

    Writeln;

    Writeln;

    Write('Thank You For Using This Software.');

    Readln;                                  

 End.

Average of Ten Numbers Using Array in Turbo Pascal 6.0

Pascal programming language is the first programming language that I have learned during my first years and second year in college taking up my course in Bachelor of Science in Computer Science in the University of Negros Occidental - Recoletos, Bacolod City, Philippines. 

I find this programming language very easy to learn primary reason is that it uses commonly used english words and terms very near to user understand indeed. I learned many things in Pascal that I was able to used it in learning other programming language such as C, C++, BASIC and among others.

In this sample program that I wrote using Pascal as my programming language and Turbo Pascal 6.0 as my Pascal compiler. This program will ask the user to give ten numbers and then our program will find the average of the ten number being provided by the user using one dimensional array in Pascal.

The program itself is very easy to understand and very useful for those who wants to learn Pascal programming. I know now a day's programming in Pascal is not popular compared to the past 20 years. I just try my best to share the things that I learned before in Pascal programming.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Program Average_Ten_Numbers;

Uses Crt;

Var

  NumberArray : Array[1..10] of Integer;

  Average : Real;

  i : integer;

Begin

  Clrscr;

  Gotoxy(24,2);

  Writeln('Average of Ten Numbers in Pascal');

  Writeln;

  For i :=  1 To 10 Do

    Begin

      Write('Enter Item No. ' ,i, ' : ');

      Readln(NumberArray[i]);

    End;

  Average := 0;

  i := 1;

  Repeat

    Average := Average + NumberArray[i];

    i := i + 1;

  Until i > 10;

  Average := Average / 10;

  Writeln;

  Writeln('The average is : ',Average:0:2);

  Writeln;

  Writeln(' Thank you for using This Software');

  Readln;

End.

Kilograms To Pounds Converter in Python

A simple program that I wrote in Python as my programming language that will ask the user to give how many kilograms and then it will convert it to pounds equivalent. The code is very simple I intended my work for beginners like me in Python programming.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

import math

print('\n')

print('\t Kilograms To Pounds in Python')

print('\n')

kilograms = input('How many kilograms : ')

solve_pounds = (kilograms * 2.20462262 )

print('\n')

print('The {0} Kilogram(s) is equivalent to {1} Pound(s). '.format(kilograms,round(solve_pounds,2)))

print('\n')

print('Thank you for using this program')

Basic Math Operations in Python

This is a simple program that I wrote using Python as my programming language that program will ask the user to give two numbers and then our program will find the sum, difference, product and quotient of the two numbers that is being provided by our end user of the program. I am still a beginner in Python programming but I find Python an easy to learn programming language.

If you have some questions please send me an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

print('\n')

print('\t Basic Math Operations in Python')

print('\n')

first_value  = int(input('Enter first  value : '))

second_value = int(input('Enter second value : '))

addtion = (first_value + second_value)

subtraction = (first_value - second_value)

product = (first_value * second_value)

division = (first_value / second_value);

print('\n')

print("The sum of {0} and {1} is {2} .".format(first_value,second_value,addtion)."\n");

print("The difference between {0} and {1} is {2} .".format(first_value,second_value,subtraction)."\n");

print("The product of {0} and {1} is {2} .".format(first_value,second_value,product)."\n");

print("The quotient of {0} and {1} is {2} .".format(first_value,second_value,division)."\n");

print('\n')

print('Thank you for using this program')

Checking Prime Number in C++

Here is a sample program that I wrote a long time ago in C++ to check for prime numbers. I have a very busy schedule at work that why I was not able to update my blog. Anyway I hope you will find my work useful in your programming assignments in C++ programming.

If you have some questions please send me an email at jakerpomperada@gmail.comand jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Program Listing

#include <iostream.h>

 int check_prime(int x)

 {

 int var1=0,var2=0,flag=0;

 cout << "\n\n";

 cout << "\t List of Prime Numbers";

 cout << "\n\n";

 for(var1 = 2; var1 <= x; var1++){

flag = 1;

for(var2 = 2; var2 < var1; var2++){

if((int)var1 % (int)var2 == 0){

flag = 0;

}

}

if(flag == 1){

cout << var2;

cout << " ";

}

}

 }

 main(){

   int values=0;

   cout << "\t\tPrime Number Generator Version 1.0";

   cout << "\n\n";

   cout << "Enter a Number : ";

   cin >> values;

   check_prime(values);

cout << "\n\n";

system("pause");

}