Free Programming Source Codes and Computer Programming Tutorials

Wednesday, March 29, 2023

Remove Vowels in Pascal

A program that will remove the vowels in the given string using Pascal programming language.

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 at 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.





Program Listing

program RemoveVowels;

var
  inputString, outputString: String;
  i: Integer;

begin
  writeln;
  write('Remove Vowels in Pascal');
  writeln;
  writeln('Enter a string:');
  readln(inputString);
  
  outputString := '';
  for i := 1 to length(inputString) do
  begin
    if not (inputString[i] in ['a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 

'O', 'U']) then
    begin
      outputString := outputString + inputString[i];
    end;
  end;
  
  writeln;
  writeln('String without vowels:', outputString);
end.

Number Palindrome in C++

A program to check if the given number by the user is a palindrome or not using C++ 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.




Program Listing

#include <iostream>

using namespace std;

int main() {
   int num, reversed_num = 0, remainder, original_num;
    
   cout <<"\n\n";
   cout <<"Number Palindrome in C++\n\n";
   cout << "Give an integer: ";
   cin >> num;

   original_num = num;

   // reverse the number
   while (num != 0) {
      remainder = num % 10;
      reversed_num = reversed_num * 10 + remainder;
      num /= 10;
   }

    cout <<"\n\n";
   // check if the reversed number is equal to the original number
   if (original_num == reversed_num) {
      cout << original_num << " is a palindrome." << endl;
   }
   else {
      cout << original_num << " is not a palindrome." << endl;
   }
   
   return 0;
}

Tuesday, March 28, 2023

Fibonacci Sequence in Pascal

Monday, March 27, 2023

Fibonacci Sequence in Pascal

A program that will ask the user to give a number and then the program will generate the fibonacci sequence using Pascal 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.




Program Listing
program FibonacciSequence;

uses crt;

var
  n, i: integer;
  fib1, fib2, fib: longint;

begin
  writeln;
  write('Fibonacci Sequence in Pascal');
  writeln;
  writeln('Give the number of terms to generate:');
  readln(n);

  fib1 := 0;
  fib2 := 1;
  writeln;
  write('Display Result');
  writeln;
  writeln(fib1);
  writeln(fib2);

  for i := 3 to n do
  begin
    fib := fib1 + fib2;
    writeln(fib);
    fib1 := fib2;
    fib2 := fib;
  end;
  writeln;
  write('End of Program');
  writeln;
  readln;
end.

What is an Algorithm and It's Purpose?

Sunday, March 26, 2023

Insertion Sort in C++

A program written in C++ that demonstrate the concept of insertion algorithm.

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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.




Program Listing

#include <iostream>

using namespace std;

void insertionSort(int arr[], int n) {
   int i, key, j;
   for (i = 1; i < n; i++) {
       key = arr[i];
       j = i - 1;
       while (j >= 0 && arr[j] > key) {
           arr[j + 1] = arr[j];
           j = j - 1;
       }
       arr[j + 1] = key;
   }
}

int main() {
   int arr[] = { -45, 89, 23, 2, -89, 34,-78 };
   
   cout <<"Insertion Sort in C++\n\n";
   int n = sizeof(arr) / sizeof(arr[0]);
   cout <<"Original values\n";
   for (int i = 0; i < n; i++) {
       cout << arr[i] << " ";
   }
   cout <<"\n\n";
    cout <<"Sorted values\n";
   insertionSort(arr, n);
   for (int i = 0; i < n; i++) {
       cout << arr[i] << " ";
   }
   return 0;
}

Saturday, March 25, 2023

Fahrenheit To Celsius in Pascal

A program that will ask the user to give temperature in Fahrenheit and then the program will convert it into Celsius equivalent using Pascal 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.





Program Listing

program FahrenheitToCelsius;

var
  fahrenheit, celsius: real;

begin
  writeln;
  writeln('Fahrenheit To Celsius in Pascal');
  writeln;
  writeln('Enter temperature in Fahrenheit: ');
  readln(fahrenheit);

  celsius := (fahrenheit - 32) * 5 / 9;

  writeln('Temperature in Celsius: ', celsius:0:2);
  writeln;
  writeln('End of Program');
  writeln;
end.

What is Software Engineering?

Checking the version of PHP in your computer

Friday, March 24, 2023

Fahrenheit To Celsius Using Forms in C#

A program that will ask the user to give temperature in Fahrenheit and then convert into Celsius using windows forms in C# 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.





Program Listing

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            double f = Convert.ToDouble(textBox1.Text);
            double solve = (f - 32) / 1.8;
            textBox2.Text = solve.ToString("###.##");
        }
    }
}

Thursday, March 23, 2023

Celsius To Fahrenheit Using Forms in C#

A program that will ask the user to give temperature in Celsius and then convert into Fahrenheit using windows forms in C# 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.










Program Listing


using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            double c = Convert.ToDouble(textBox1.Text);
            double solve = (c * 1.8) + 32;
            textBox2.Text = solve.ToString("###.##");
        }
    }
}

Area of the Circle in Pascal

A simple program that I wrote using Pascal programming language that will ask the user to give radius value and then our program will compute the area of the circle and display the results 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.
Please subscribe to my channel  https://www.youtube.com/channel/UCOs-lpOoIeJoh6gpJthPoGg
=================================================

You can buy my C++ book online at  

https://www.mindshaperspublishing.com/product/beginners-guide-to-c-programming/

You can buy my book in introduction to computer networking at 
https://www.unlimitedbooksph.com/product-page/introduction-to-computer-networking

Want to support my channel?
GCash Account
Jake Pomperada

09173084360

Paypal
https://paypal.me/jakerpomperada

Patreon
https://www.patreon.com/jakerpomperada

Thank you very much for your support.




Program Listing

program AreaOfCircle;

var
  radius, area: real;

begin
  writeln;
  write('Area of the Circle in Pascal');
  writeln;
  write('Enter the radius of the circle: ');
  readln(radius);
  
  area := 3.14159 * sqr(radius);
  
  writeln('The area of the circle is ', area:0:2);
  writeln;
  write('End of Program');
  writeln;
end.

Free Programming Source Codes and Computer Programming Tutorials

Wednesday, March 29, 2023

Remove Vowels in Pascal

Number Palindrome in C++

Number Palindrome in C++

Tuesday, March 28, 2023

Fibonacci Sequence in Pascal

Monday, March 27, 2023

Fibonacci Sequence in Pascal

What is an Algorithm and It's Purpose?

Sunday, March 26, 2023

Insertion Sort in C++

Insertion Sort in C++

Saturday, March 25, 2023

Fahrenheit To Celsius in Pascal

Fahrenheit To Celsius in Pascal

What is Software Engineering?

Checking the version of PHP in your computer

Friday, March 24, 2023

Fahrenheit To Celsius Using Forms in C#

Fahrenheit To Celsius Using Forms in C#

Thursday, March 23, 2023

Celsius To Fahrenheit Using Forms in C#

Celsius To Fahrenheit Using Forms in C#

Area of the Circle in Pascal

Area of the Circle in Pascal

What is Marketing and It's Benefits in Business?

Benefits of having a business

Wednesday, March 22, 2023

Sum of Natural Numbers using For Loop in C++

Google Ads

Followers