Friday, 27 June 2014
RANA's Blog: html program for button click count
RANA's Blog: html program for button click count: html program for button click count <html> <head> <title>evm</title> <script type="text/javascript&q...
Tuesday, 10 June 2014
RANA's Blog: WEB SPOOFING
RANA's Blog: WEB SPOOFING: WEB SPOOFING Abstract: Web spoofing is an Internet security attack that could endanger the privacy of World Wide Web us...
Friday, 28 March 2014
PL/SQL PROGRAM TO FIND BIG NUMBER
declare
a number:=&a;
b number:=&b;
c number:=&c;
begin
if( ( a > b) and ( a > c )) then
dbms_output.put_line('a is big');
elsif(( b > a ) and ( b > c )) then
dbms_output.put_line('b is big');
elsif(( c > a ) and ( c > b )) then
dbms_output.put_line('c is big');
end if;
end;
OUTPUT:
Enter value for a: 12
old 2: a number:=&a;
new 2: a number:=12;
Enter value for b: 50
old 3: b number:=&b;
new 3: b number:=50;
Enter value for c: 90
old 4: c number:=&c;
new 4: c number:=90;
c is big
a number:=&a;
b number:=&b;
c number:=&c;
begin
if( ( a > b) and ( a > c )) then
dbms_output.put_line('a is big');
elsif(( b > a ) and ( b > c )) then
dbms_output.put_line('b is big');
elsif(( c > a ) and ( c > b )) then
dbms_output.put_line('c is big');
end if;
end;
OUTPUT:
Enter value for a: 12
old 2: a number:=&a;
new 2: a number:=12;
Enter value for b: 50
old 3: b number:=&b;
new 3: b number:=50;
Enter value for c: 90
old 4: c number:=&c;
new 4: c number:=90;
c is big
Monday, 24 February 2014
MATRIX ADDITION USING COBOL LANGUAGE
IDENTIFICATION DIVISION.
PROGRAM-ID MAT-ADD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MAT1.
02 MR1 OCCURS 5 TIMES.
03 MC1 PIC 9(2) OCCURS 5 TIMES.
01 MAT2.
02 MR2 OCCURS 5 TIMES.
03 MC2 PIC 9(2) OCCURS 5 TIMES.
01 MAT3.
02 MR3 OCCURS 5 TIMES.
03 MC3 PIC ZZZ(9) OCCURS 5 TIMES.
77 ROW1 PIC 9.
77 ROW2 PIC 9.
77 COL1 PIC 9.
77 COL2 PIC 9.
77 I PIC 9.
77 J PIC 9.
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY 'MATRIX ADDITION'.
DISPLAY ' '.
DISPLAY 'ENTER THE NUMBER OF ROW AND COLUMNS OF 1 MATRIX'.
ACCEPT ROW1.
ACCEPT COL1.
DISPLAY 'ENTER THE NUMBER OF ROW AND COLUMNS OF 2ND MATRIX'.
ACCEPT ROW2.
ACCEPT COL2.
IF(ROW IS NOT EQUALS TO ROW2) OR (COL1 NOT EQUALS TO COL2)
DISPLAY 'MATRIX ADDITION IS NOT POSSIBLE'
ELSE
PERFORM COMPU-PARA
STOP RUN.
COMPU-PARA.
DISPLAY 'ENTER THE ELEMENTS OF MATRIX'.
PERFORM ACCPARA1 VARYING I FROM 1 BY 1 UNTIL I > ROW1
AFTER J FROM 1 BY 1 UNTIL J > COL1.
DISPLAY 'ENTER THE ELEMENTS OF MATRIX2'.
PERFORM ACCPARA2 VARYING I FROM 1 BY 1 UNTIL I > ROW2
AFTER J FROM 1 BY 1 UNTIL J > COL2.
PERFORM ADDMAT-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW1
AFTER J FROM 1 BY 1 UNTIL J > COL1.
DISPLAY ( 1 1 ) ERASE.
MOVE 3 TO LIN.
MOVE 10 TO COL.
DISPALY ' '.
DISPLAY ' THE FIRST MATRIX IS'.
DISPLAY ' '.
PERFORM DISP1-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW1
AFTER J FROM 1 BY 1UNTIL J > COL1.
DISPLAY ' '.
MOVE 10 TO LIN.
MOVE 10 TO COL.
DISPLAY ' '.
DISPLAY 'THE SECOND MATRIX IS'.
DISPLAY ' '.
PERFORM DISP2-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW12
AFTER J FROM 1 BY 1UNTIL J > COL1.
DISPLAY ' '.
MOVE 17 TO LIN.
MOVE 10 TO COL.
DISPLAY ' '.
DISPLAY 'THE RESULTANT MATRIX IS'.
DISPLAY ' '.
PERFORM DISP-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW 1
AFTER J FROM 1 BY 1UNTIL J > COL1.
DISPLAY ' '.
ACCPARA1.
ACCEPT MC1 (I J).
ACCPARA2.
ACCEPT MC2 (I J).
ADDMAT-PARA
COMPUTE MC3 (I J) = MC1 (J I) + MC2 (I J).
DISP-PARA
DISPLAY (LIN . COL ) MC3 (I J).
ADD 5 TO COL.
IF J IS EQUAL TO COL
ADD 1 TO LIN MOVE 10 TO COL.
DISP1-PARA
DISPLAY (LIN , COL ) MC1 (I J).
ADD 5 TO COL.
IF J IS EQUAL TO COL.
ADD 1 TO LIN MOVE 10 TO COL
DISP2-PARA.
DISPLAY ( LIN, COL) MC1 (I J).
ADD 5 TO COL.
IF J IS EQUAL TO COL.
ADD 1 TO LIN MOVE 10 TO COL
output:
enter the number of rows for 1 matrix:
2*2
enter the number of rows for 2 matrix:
2*2
enter the elements of 1 matrix:
1 2
3 4
the first matrix is
1 2
3 4
enter the second matrix:
3 4
6 7
the second matrix is:
3 4
6 7
the resultant matrix is:
4 6
9 11
PROGRAM-ID MAT-ADD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MAT1.
02 MR1 OCCURS 5 TIMES.
03 MC1 PIC 9(2) OCCURS 5 TIMES.
01 MAT2.
02 MR2 OCCURS 5 TIMES.
03 MC2 PIC 9(2) OCCURS 5 TIMES.
01 MAT3.
02 MR3 OCCURS 5 TIMES.
03 MC3 PIC ZZZ(9) OCCURS 5 TIMES.
77 ROW1 PIC 9.
77 ROW2 PIC 9.
77 COL1 PIC 9.
77 COL2 PIC 9.
77 I PIC 9.
77 J PIC 9.
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY 'MATRIX ADDITION'.
DISPLAY ' '.
DISPLAY 'ENTER THE NUMBER OF ROW AND COLUMNS OF 1 MATRIX'.
ACCEPT ROW1.
ACCEPT COL1.
DISPLAY 'ENTER THE NUMBER OF ROW AND COLUMNS OF 2ND MATRIX'.
ACCEPT ROW2.
ACCEPT COL2.
IF(ROW IS NOT EQUALS TO ROW2) OR (COL1 NOT EQUALS TO COL2)
DISPLAY 'MATRIX ADDITION IS NOT POSSIBLE'
ELSE
PERFORM COMPU-PARA
STOP RUN.
COMPU-PARA.
DISPLAY 'ENTER THE ELEMENTS OF MATRIX'.
PERFORM ACCPARA1 VARYING I FROM 1 BY 1 UNTIL I > ROW1
AFTER J FROM 1 BY 1 UNTIL J > COL1.
DISPLAY 'ENTER THE ELEMENTS OF MATRIX2'.
PERFORM ACCPARA2 VARYING I FROM 1 BY 1 UNTIL I > ROW2
AFTER J FROM 1 BY 1 UNTIL J > COL2.
PERFORM ADDMAT-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW1
AFTER J FROM 1 BY 1 UNTIL J > COL1.
DISPLAY ( 1 1 ) ERASE.
MOVE 3 TO LIN.
MOVE 10 TO COL.
DISPALY ' '.
DISPLAY ' THE FIRST MATRIX IS'.
DISPLAY ' '.
PERFORM DISP1-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW1
AFTER J FROM 1 BY 1UNTIL J > COL1.
DISPLAY ' '.
MOVE 10 TO LIN.
MOVE 10 TO COL.
DISPLAY ' '.
DISPLAY 'THE SECOND MATRIX IS'.
DISPLAY ' '.
PERFORM DISP2-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW12
AFTER J FROM 1 BY 1UNTIL J > COL1.
DISPLAY ' '.
MOVE 17 TO LIN.
MOVE 10 TO COL.
DISPLAY ' '.
DISPLAY 'THE RESULTANT MATRIX IS'.
DISPLAY ' '.
PERFORM DISP-PARA VARYING I FROM 1 BY 1 UNTIL I > ROW 1
AFTER J FROM 1 BY 1UNTIL J > COL1.
DISPLAY ' '.
ACCPARA1.
ACCEPT MC1 (I J).
ACCPARA2.
ACCEPT MC2 (I J).
ADDMAT-PARA
COMPUTE MC3 (I J) = MC1 (J I) + MC2 (I J).
DISP-PARA
DISPLAY (LIN . COL ) MC3 (I J).
ADD 5 TO COL.
IF J IS EQUAL TO COL
ADD 1 TO LIN MOVE 10 TO COL.
DISP1-PARA
DISPLAY (LIN , COL ) MC1 (I J).
ADD 5 TO COL.
IF J IS EQUAL TO COL.
ADD 1 TO LIN MOVE 10 TO COL
DISP2-PARA.
DISPLAY ( LIN, COL) MC1 (I J).
ADD 5 TO COL.
IF J IS EQUAL TO COL.
ADD 1 TO LIN MOVE 10 TO COL
output:
enter the number of rows for 1 matrix:
2*2
enter the number of rows for 2 matrix:
2*2
enter the elements of 1 matrix:
1 2
3 4
the first matrix is
1 2
3 4
enter the second matrix:
3 4
6 7
the second matrix is:
3 4
6 7
the resultant matrix is:
4 6
9 11
Sunday, 19 January 2014
FIND OUT THE BIG VALUE USING JAVA PROGRAM
import java.io.*;
import java.lang.*;
class Bigvalue
{
public static void main(String[]args)
{
int a=5;
int b=2;
int c=7;
if((a>b)&&(a>c))
System.out.println("A is big");
else
if((b>a)&&(b>c))
System.out.println("b is big");
else
if((c>b)&&(c>a))
System.out.println("C is big");
}
}
import java.lang.*;
class Bigvalue
{
public static void main(String[]args)
{
int a=5;
int b=2;
int c=7;
if((a>b)&&(a>c))
System.out.println("A is big");
else
if((b>a)&&(b>c))
System.out.println("b is big");
else
if((c>b)&&(c>a))
System.out.println("C is big");
}
}
Thursday, 13 June 2013
SIMPLE COBOL PROGRAM TO FIND OUT THE STUDENT TOTAL AND GRADES
/*COBOL PROGRAM TO FIND OUT STUDENT GRADES. */
IDENTIFICATION DIVISION.
PROGRAM-ID STUDENTGRADE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 M1 PIC 9(2).
77 M2 PIC 9(2).
77 M3 PIC 9(2).
77 TOTAL PIC 9(4).
88 FIRST1 VALUE 180 THRU 300.
88 SECOND VALUE 150 THRU 179.
88 THIRD VALUE 120 THRU 149.
88 FAIL VALUE 0 THRU 119.
PROCEDURE DIVISION.
PARA.
DISPLAY 'ENTER STUDENTMARKS'.
ACCEPT M1.
ACCEPT M2.
ACCEPT M3.
COMPUTE TOTAL = M1 + M2 + M3.
DISPLAY TOTAL.
IF FIRST1
DISPLAY 'A GRADE'
ELSE
IF SECOND
DISPLAY 'B GRADE'
ELSE
IF THIRD
DISPLAY 'C GRADE'
ELSE
DISPLAY 'FAIL'
STOP RUN.
OUTPUT:
ENTER STUDENT MARKS
45
55
65
0165
B GRADE
Monday, 10 June 2013
Subscribe to:
Posts (Atom)