How do you write a program to find the reverse of a given number in COBOL?

Answer 1

Identification Division.
Program-id. Example1.
Data Division.
Working-storage Section.
01 Num1 Pic 999 Value Zeros.
01 Num2 Pic 9 Value Zeros.
01 Num3 Pic 99 Value 10.
01 Result Pic 999 Value Zeros.
01 Temp Pic 99.
Procedure Division.
Calculator.
Display "enter First Number :".
Accept Num1.
Perform Until Num1 = 0
Divide Num1 By Num3 Giving Temp Remainder Num2
Compute Result =(result * Num3) + Num2
Compute Num1 = Num1 / Num3
End-perform
Display "result Is=", Result.
Stop Run.

Answer 2

Use the following function to reverse a number:

unsigned reverse (unsigned num) {

unsigned accumulator=0;

while (num) {

accumulator *= 10;

accumulator += (num%10);

num /= 10;

}

return accumulator;

}

Note that if the number ends in 0 (no units), there will be no leading zero in the reversed number. To accommodate this, convert the number to a string then reverse the string. This is achieved by working from both ends of the string to the middle, swapping characters as we go:

void reverse_string (char* str) {

char *left, *right, temp;

unsigned len;

left = str;

right = str;

while (right) ++right; // traverse to null-terminator

len = (right-left)/2; // determine mid-point

while (len--) {

--right; // step back

// swap characters

temp=*left;

*left=*right;

*right=temp;

++left; // step forward

}

}

Answer 3

Answer1 int a = 10, int b = 20; int temp; Solution: a=temp --->> Assings temp = 10 a=b --->> Assigns a= 20 b=temp --->> Assigns b=10