A Collection of Code Snippets in as Many Programming Languages as Possible

This project is maintained by TheRenegadeCoder

Welcome to the Palindromic Number in Pascal page! Here, you’ll find the source code for this program as well as a description of how the program works.

```
(*
Description Input Output
no input None Usage: please input a number
empty input ”” Usage: please input a number
invalid input: not a number a Usage: please input a number
sample input: palindrome 232 true
sample input: not palindrome 521 false
Count the no. of digits
compare the left most with rightmost no & keep moving nearer to midpoint
If any one comparison fails, type false
If all comparison succeeds, type true
*)
program Palindromic_number_check(input, output, stdErr);
(*Read count of fibonnacnoofdigits numbers into a string
*)
var
buf: String;
noofdigits : integer;
check, number, reversed_number : Cardinal;
begin
(*Variable initialisation must be inside begin-end block*)
(*Accept Number, check no. of digits in it, ...*)
buf:= paramStr(1);
Val(buf, number, check);
(*If input is valid integer, check will be 0, else will be 1*)
if (check <> 0)
then
begin
writeln('Usage: please input a non-negative integer');
end
else
begin
// writeln('number = ', number);
check := number;
reversed_number := 0;
repeat
begin
(*quotient := check mod 10 ;*)
reversed_number := (reversed_number * 10) + (check mod 10);
check := trunc(check div 10);
end;
until check = 0;
if number >= 0 then
if (reversed_number = number) then
writeln('true')
else
writeln('false')
else
writeln('Usage: please input a non-negative integer')
end; (* Begin Reading NUmber*)
end. (* Begin Program Block*)
```

Palindromic Number in Pascal was written by:

- Jeremy Grifski
- manasmithamn

If you see anything you’d like to change or update, please consider contributing.

**Note**: The solution shown above is the current solution in the Sample Programs repository as of Oct 11 2022 01:31:51. The solution was first committed on Oct 29 2021 22:09:59. As a result, documentation below may be outdated.

No ‘How to Implement the Solution’ section available. Please consider contributing.

No ‘How to Run the Solution’ section available. Please consider contributing.