Ascending and descending

IDENTIFICATION DIVISION.
PROGRAM-ID. SOR1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 I PIC 9(2).
77 J PIC 9(2).
77 TEMP1 PIC 9(2).
77 N PIC 9.
01 NUM.
02 A PIC 9(2) OCCURS 10 TIMES.
PROCEDURE DIVISION.
PARA1.
DISPLAY "ENTER N VALUE".
ACCEPT N.
DISPLAY N.
PERFORM READ-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM CAL-PARA VARYING I FROM 1 BY 1 UNTIL I > N
AFTER J FROM 1 BY 1 UNTIL J > N.
DISPLAY "ASCENDING ORDER IS".
PERFORM DISP-PARA VARYING I FROM 1 BY 1 UNTIL I > N.
PERFORM CAL-PARA1 VARYING I FROM 1 BY 1 UNTIL I > N
AFTER J FROM 1 BY 1 UNTIL J > N.
DISPLAY "DESCENDING ORDER IS".
PERFORM DISP-PARA1 VARYING I FROM 1 BY 1 UNTIL I > N.
STOP RUN.
READ-PARA.
ACCEPT A(I).
CAL-PARA.
IF A(I) < A(J) MOVE A(I) TO TEMP1 MOVE A(J) TO A(I) MOVE TEMP1 TO A(J). CAL-PARA1. IF A(I) > A(J)
MOVE A(I) TO TEMP1
MOVE A(J) TO A(I)
MOVE TEMP1 TO A(J).
DISP-PARA.
DISPLAY A(I).
DISP-PARA1.
DISPLAY A(I).

Remove Viruses from Ur Pen Drive without using Antivirus

Remove Viruses from Ur Pen Drive without usin Antivirus Software

VC++ MFC Program To display Shapes

#include
class myframe : public CFrameWnd
{
public:
myframe()
{
Create(0,L"Shape");
}
void OnPaint()
{
CPaintDC d(this);
CBrush mybrush(RGB(0,0,150));
d.SelectObject(&mybrush);
d.MoveTo(10,10);
d.LineTo(200,10);
d.Rectangle(10,20,200,100);
d.RoundRect(10,120,200,220,20,20);
d.Ellipse(10,240,200,340);
d.Pie(250,10,350,110,350,110,350,10);
POINT pt[5]={250,150,250,300,300,350,400,300,320,190};
d.Polygon(pt,5);
}
DECLARE_MESSAGE_MAP()
};
BEGIN_MESSAGE_MAP(myframe,CFrameWnd)
ON_WM_PAINT()
END_MESSAGE_MAP()
class myapp : public CWinApp
{
public:
int InitInstance()
{
myframe *p;
p=new myframe;
p->ShowWindow(3);
m_pMainWnd=p;
return 1;
}
};
myapp a;