A very simple program that I wrote using Oracle PL/SQL to accept input string from the user and then it will check if the given string is a Palindrome or Not a Palindrome. I am still a beginner in Oracle PL/SQL programming I hope you will find my work useful. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Input of Values Screen Shots
Sample Program Output
Program Listing
/* Palindrome Program in Oracle PL/SQL */
/* Written By Mr. Jake R. Pomperada */
/* Language : PL/SQL */
/* Date : May 28, 2017 Sunday */
SET SERVEROUTPUT ON;
DECLARE
get_string varchar2(50);
rev_string varchar2(50);
a number(5);
title varchar2(50) :='Palindrome Program in PL/SQL';
author varchar2(50) :='Written By: Mr. Jake R. Pomperada,MAED-IT';
BEGIN
get_string := '&get_string';
for a in reverse 1..length(get_string) loop
rev_string := rev_string || substr(get_string,a,1);
end loop;
dbms_output.put_line(chr(13)||chr(10) || UPPER(title));
dbms_output.put_line(chr(13)||chr(10) || UPPER(author));
dbms_output.put_line(chr(13)||chr(10));
dbms_output.put_line('The original string is ' || UPPER(get_string) || '.');
dbms_output.put_line(chr(13)||chr(10));
dbms_output.put_line('The reverse string is ' || UPPER(rev_string) || '.');
IF rev_string = get_string
THEN
dbms_output.put_line(chr(13)||chr(10) || 'The given string ' || UPPER(get_string) || ' is a Palindome.');
dbms_output.put_line(chr(13)||chr(10));
dbms_output.put_line('END OF PROGRAM');
ELSE
dbms_output.put_line(chr(13)||chr(10) || 'The given string ' || UPPER(get_string) || ' is Not a Palindome.');
dbms_output.put_line(chr(13)||chr(10));
dbms_output.put_line('END OF PROGRAM');
END IF;
END;
