Programs

File Copy program in Java

2010-01-20T09:51:00.000-08:00

//FileCopy

import java.io.*;

public class FileCopy
{
public static void main(String args[])
{
try
{

File file1 = new File("f1.txt");
File file2 = new File("f2.txt");;
File file3 = new File("f3.txt");;
FileOutputStream fos = new FileOutputStream(file1);
FileReader fr;

int cnt;
int cap = 65;
int small = 98;
char ch;

//writing in file1
fos.write(cap);cap++;
fos.write(cap);cap++;
fos.write(small);small++;
fos.write(small);small++;
fos.write(small);small++;
fos.write(cap);cap++;

fr = new FileReader(file1);

fos = new FileOutputStream(file2);

while( (cnt = fr.read()) != -1 )
{
ch = (char)cnt;
if( ch >= 'a' && ch <= 'z' )
{
cnt = cnt - 32;
fos.write(cnt);
}
else
if( ch >= 'A' && ch <= 'Z' )
{
cnt = cnt + 32;
fos.write((char)cnt);
}
else
fos.write(cnt);
}
//displaying file1 file2
fr = new FileReader(file1);
System.out.println ("file1::");
while( (cnt = fr.read()) != -1 )
{
ch = (char)cnt;
System.out.print (""+ch);
}
fr = new FileReader(file2);
System.out.println ("");
System.out.println ("file2::");
while( (cnt = fr.read() )!= -1)
{
ch = (char)cnt;
System.out.print (""+ch);
}

fos = new FileOutputStream(file3);
fr = new FileReader(file1);
while( (cnt = fr.read()) != -1 )
{
fos.write(cnt);
}

fr = new FileReader(file2);
while( (cnt = fr.read()) != -1 )
{
fos.write(cnt);
}

fr = new FileReader(file3);
System.out.println ("");
System.out.println ("file3::");
while( (cnt = fr.read() )!= -1)
{
ch = (char)cnt;
System.out.print (""+ch);
}

fos.close();
fr.close();
//file3.
}
catch(Exception exc)
{
System.out.println ("exc::"+exc);
}

}
}

Number Conversion program in Java

2010-01-20T09:49:00.000-08:00

//NumberConversion

import javax.swing.*;
import java.awt.*;
import java.awt.event.*;

public class NumberConversion extends JFrame
{
Container con = this.getContentPane();

JLabel lbl;
JButton binary;
JButton octal;
JButton hexa;

JTextArea txt1;
JTextArea txt2;
JTextArea txt3;
JTextArea txt4;

public NumberConversion()
{
con.setLayout(null);

lbl = new JLabel("Enter Decimal ");
lbl.setBounds(25,75,200,25);
con.add(lbl);

txt1 = new JTextArea(1,15);
txt1.setBounds(175,75,150,25);
con.add(txt1);

txt2 = new JTextArea(1,15);
txt2.setBounds(175,125,150,25);
con.add(txt2);

txt3 = new JTextArea(1,15);
txt3.setBounds(175,175,150,25);
con.add(txt3);

txt4 = new JTextArea(1,15);
txt4.setBounds(175,225,150,25);
con.add(txt4);

binary = new JButton("Binary");
binary.setBounds(25,125,100,25);
con.add(binary);

octal = new JButton("Octal");
octal.setBounds(25,175,100,25);
con.add(octal);

hexa = new JButton("Hexadecimal");
hexa.setBounds(25,225,100,25);
con.add(hexa);

binary.addActionListener(new w11());
octal.addActionListener(new w11());
hexa.addActionListener(new w11());

}

class w11 implements ActionListener
{
public void actionPerformed(ActionEvent ae)
{
JButton temp = (JButton)ae.getSource();
String str;
Integer b[] = new Integer[10] ;
int i = 0;
int num;
if( temp.getLabel().equals("Binary"))
{
str = txt1.getText();
try
{
num = Integer.parseInt(str);
while( num != 0 )
{
int rem = num % 2;
b[i] = rem;
i++;
num = num/2;
}
txt2.setText("");
for(i = i -1 ;i >= 0; i--)
txt2.append(""+b[i]);

}
catch(Exception exc)
{
JOptionPane.showMessageDialog(con,"Enter Number\nCharacters invalid","ERROR",JOptionPane.ERROR_MESSAGE);
System.out.println ("Exception genenrated::"+exc);
}
}
else
if( temp.getLabel().equals("Octal"))
{
str = txt1.getText();
try
{
num = Integer.parseInt(str);
while( num != 0 )
{
int rem = num % 8;
b[i] = rem;
i++;
num = num / 8;
}
txt3.setText("");
for(i = i -1 ;i >= 0; i--)
txt3.append(""+b[i]);

}
catch(Exception exc)
{
JOptionPane.showMessageDialog(con,"Enter Number\nCharacters invalid","ERROR",JOptionPane.ERROR_MESSAGE);
System.out.println ("Exception genenrated::"+exc);
}
}
else
if( temp.getLabel().equals("Hexadecimal"))
{
str = txt1.getText();
try
{
num = Integer.parseInt(str);
while( num != 0 )
{
int rem = num % 16;
b[i] = rem;
i++;
num = num / 16;
}
txt4.setText("");
for(i = i -1 ;i >= 0; i--)
{

switch( b[i] )
{
case 10:txt4.append("A"); break;
case 11:txt4.append("B"); break;
case 12:txt4.append("C"); break;
case 13:txt4.append("D"); break;
case 14:txt4.append("E"); break;
case 15:txt4.append("F"); break;
default:txt4.append(""+b[i]); break;
}

}

}
catch(Exception exc)
{
JOptionPane.showMessageDialog(con,"Enter Number\nCharacters invalid","ERROR",JOptionPane.ERROR_MESSAGE);
System.out.println ("Exception genenrated::"+exc);
}
}

}
}

public static void main(String args[])
{
NumberConversion obj = new NumberConversion();
obj.setVisible(true);
obj.setTitle("Number conversion");
obj.setExtendedState(MAXIMIZED_BOTH);
obj.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
}

}

Binary Calculator Program in Java

2010-01-20T09:48:00.001-08:00

//BinaryCalculator

import javax.swing.*;
import java.awt.*;
import java.awt.event.*;

public class BinaryCalculator extends JFrame
{
Container con;

int flag;
int num1 , num2;
int num3,num4;
char array1[];
int array[];

JTextArea txtop;
JButton butadd;
JButton butequ;
JButton butcomplement;
JButton butsub;
public BinaryCalculator()
{
con = this.getContentPane();
con.setLayout(null);

txtop = new JTextArea(1,15);
txtop.setBounds(50,50,300,30);
con.add(txtop);

butadd = new JButton("+");
butadd.setBounds(50,120,50,30);
con.add(butadd);

butsub = new JButton("-");
butsub.setBounds(125,120,50,30);
con.add(butsub);

butcomplement = new JButton("~");
butcomplement.setBounds(200,120,50,30);
con.add(butcomplement);

butequ = new JButton("=");
butequ.setBounds(275,120,50,30);
con.add(butequ);

butadd.addActionListener(new w11());
butsub.addActionListener(new w11());
butcomplement.addActionListener(new w11());
butequ.addActionListener(new w11());
}

class w11 implements ActionListener
{
String number;
int res;
public void actionPerformed(ActionEvent ae)
{
JButton temp = (JButton)ae.getSource();
if( temp.getLabel().equals("+") )
{
number = txtop.getText();
if( (res=chkbinary(number))==1 )
{
flag = 1;
num1 = getDecimal(number);
try
{
num3 = Integer.parseInt(number);
}
catch(Exception exc23)
{
JOptionPane.showMessageDialog(con,"number is not in range");
}

txtop.setText(null);
}
else
{
JOptionPane.showMessageDialog(con,"not a valid number");
txtop.setText(null);
}
}
else
if( temp.getLabel().equals("~") )
{
number = txtop.getText();
if( number.length() < 1 )
JOptionPane.showMessageDialog(con,"enter number");
else
{
flag = 2;
}
}

else
if( temp.getLabel().equals("-") )
{
number = txtop.getText();
if( (res = chkbinary(number) )==1 )
{
flag = 3;
num1 = getDecimal(number);
try
{
num3 = Integer.parseInt(number);
}
catch(Exception exc23)
{
JOptionPane.showMessageDialog(con,"number is not in range");
}

txtop.setText(null);
}
else
{
JOptionPane.showMessageDialog(con,"not a valid number");
txtop.setText(null);
}
}

else

if( temp.getLabel().equals("=") )
{
switch(flag)
{
case 1: number = txtop.getText();
if( (res=chkbinary(number) )==1 )
{
num2 = getDecimal(number);
int num5 = num1+num2;
txtop.setText(Integer.toBinaryString(num5));
}
else
{
JOptionPane.showMessageDialog(con,"not a valid number");
txtop.setText(null);
}
break;
case 3: number = txtop.getText();
if( (res=chkbinary(number) )==1 )
{
num2 = getDecimal(number);
int num5 = num1-num2;
txtop.setText(Integer.toBinaryString(num5));
}
else
{
JOptionPane.showMessageDialog(con,"not a valid number");
txtop.setText(null);
}
break;
case 2:
number = txtop.getText();
txtop.setText(null);
if( ( res = chkbinary(number) )==1 )
{

for( int i = 0 ; i < number.length() ; i++ )
{
if( number.charAt(i) == '1')

array1[i] = '0';
else

array1[i] = '1';

txtop.append(Character.toString((char)array1[i]));
}

}
else
{
JOptionPane.showMessageDialog(con,"not a valid number");
txtop.setText(null);
}
break;

default:System.out.println ("in default");break;
}
}
}
public int getDecimal(String t)
{
int r, j=0;
int ans = 0;
array1 = t.toCharArray();
for( int i = (t.length()- 1); i >= 0 ; i--)
{

r = Integer.parseInt(""+t.charAt(i));
ans += r*(double)Math.pow((double)2,(double)j);
j++;
}
return ans;
}
public int chkbinary(String t)
{
array1 = t.toCharArray();

int i;
for( i = 0 ;i < t.length();i++)
{
if( array1[i] == '1' || array1[i] == '0')
{

}
else
break;
}

if( i == t.length())
return 1;
else return 0;
}
}

public static void main(String arg[])
{
BinaryCalculator obj = new BinaryCalculator();
obj.setVisible(true);
obj.setTitle("Binary Calculator");
obj.setExtendedState(MAXIMIZED_BOTH);
obj.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
}

}

Age Name Exception program in Java

2010-01-20T09:43:00.000-08:00

class AgeNameException extends Exception
{
private String name ;
private int age ;
public AgeNameException(String str,int num)
{
name = str;
age = num;
}
public String toString()
{
String msg = "";
int i;
char ch;
for(i = 0;i < name.length() ; i++)
{
ch = name.charAt(i);
if( ch >= 'A' && ch <= 'Z' )
{
}
else
if( ch >= 'a' && ch <= 'z' )
{
}
else break;
}
if( i == name.length())
msg = "";
else
{
msg = "Invalid Name";
}
if( age <>22 )
msg = msg+" Age is not within range";
return msg;

}
}

public class Student
{
String sname;
int sage;
public Student(String name, int age)
{
sname = name;
sage = age;
}
public static void main(String args[])
{
try
{
BufferedReader br = new BufferedReader(new InputStreamReader(System.in));
int age;
String name;

System.out.println ("Enter name:");
name = br.readLine();

System.out.println ("Enter age :");
age = Integer.parseInt(br.readLine());

//Student obj = new Student(name,age);
throw new AgeNameException(name,age);
}
catch(AgeNameException ane)
{
System.out.println (""+ane);
}
catch(Exception exc)
{
System.out.println (""+exc);
}

}
protected void finalize()
{
}

}

program to show different types of constructor in c++

2009-12-11T10:59:00.000-08:00


#include"iostream.h"

#include"conio.h"

class disp

{

 int x,y;



 public:

	disp();//default constructor

	disp(int a,int b) //parameterized constructor

	 {

	  x=a;

	  y=b;

	  cout<<"Parameterized const values are->"<	 };

	disp(disp &c, disp &g)//copy constructor

	{

	 x=c.x;

	 y=g.y;

	cout<<"\n"<<"copy const values are->"<<" "<

	};



};

void main()

{

clrscr();

disp d1(void);

disp d2(6,7);

disp(d2,d2);

}

function overloading program in c++

2009-12-11T10:58:00.001-08:00

#include"iostream.h"
#include"conio.h"
int volume(int);
double volume(double,int);
long int volume(long,int,int);

void main()
{
clrscr();
cout<<
cout<<
cout<<
getch();
}

int volume(int a)
{
return(a*a*a);
}

double volume(double r,int h)
{
return(3.14*r*r*h);
}

long int volume(long l,int b,int h)
{
return(l*b*h);
}

banking account program in c++

2009-12-11T10:53:00.000-08:00

#include"iostream.h"
#include"conio.h"
class bank_account
{
char name[30];
char actype[10];
int acc_no;
float balance,amt;
public:
void getdata(void);
float depo_amt(void);
float wdrwamt(void);
void disp(void);
};
void bank_account::getdata(void)
{
cout<<"\n"<<"Enter name:";
cin>>name;
cout<<"\n"<<"Enter account no:";
cin>>acc_no;
cout<<"\n"<<"Enter account type:";
cin>>actype;
cout<<"\n"<<"Enter balance:";
cin>>balance;
}
float bank_account::depo_amt(void)
{

cout<<"\n";
cout<<"Enter amount to be deposited:";
cin>>amt;
balance=balance+amt;
return balance;
}
float bank_account::wdrwamt(void)
{

cout<<"\n";
cout<<"Enter the withdrawal Amount";
cin>>amt;
if(amt<=balance)
{
balance=balance-amt;
return balance;
}
else
{
cout<<"there are insufficient funds in your account your cr. bal is"<
}
}
void bank_account::disp(void)
{

cout<<"\n";
cout<<"\n"<<"Name:"<
cout<<"\n"<<"Account no:"<
cout<<"\n"<<"Account type:"<
cout<<"\n"<<"Balance:"<
}
int main()
{
int amt;
bank_account obj;
clrscr();
obj.getdata();
obj.depo_amt();
obj.wdrwamt();
obj.disp();
}

product of matrix in c++

2009-12-11T10:49:00.000-08:00

#include"iostream.h"

#include"conio.h"



void main()

{

int i,j,k,num1[3][3],num2[3][3],sum[3][3];

clrscr();



cout<<" first matrix elements:"<<<" enter element "<<<" "<<>num1[i][j];

 }



clrscr();

cout<<"second matrix elements:"<<<" enter element "<<<" "<<>num2[i][j];

  sum[i][j]=0;

 }



clrscr();

cout<<" product matrix: "<<<" "<<<"  ";    }

factorial program in c++

2009-12-11T10:46:00.000-08:00


#include"iostream.h"

#include"conio.h"

class factorial

{

public:

int no;

void getdata();

void putdata();

void fact();

};



void factorial::getdata()

{

cout<<"Enter the number";

cin>>no;

}

void factorial::putdata()

{

cout<<"The number is";

}

void factorial::fact()

{

int i=0,f=1;



 for(i=no;i>=1;i--)

  {

  f=f*i;

  }

cout<}



void main()

{

factorial obj;

clrscr();

obj.getdata();

obj.putdata();

obj.fact();

}

basic maths operations program in c++

2009-12-11T10:41:00.000-08:00


#include"iostream.h"
#include"conio.h"
class calculator
{
public:int a,b;
 void accept();
 void addition();
 void subtraction();
 void mult();
 void div();
};
void calculator::accept()
{
 cout<<"Please Enter the number";    cin>>a>>b;
}
void calculator::addition()
{
int add;
add=a+b;
cout<<"Enter your choice"<<<"1.Add  2.Sub  3.Mult  4.Div"<>ch;
switch(ch)
{
case 1:
{
obj.accept();
obj.addition();


break;
}
case 2:
{
obj.accept();
obj.subtraction();


break;
}
case 3:
{
obj.accept();
obj.mult();

break;
}
case 4:
{
obj.accept();
obj.div();

}
default :
{
cout<<"Invalid";
 }
}
}

Trigger Example

2009-04-17T01:35:00.001-07:00

set serveroutput on

create trigger picture

before insert on movie for each row

declare

release_year number(4);

begin

if 2001 >1990 then

insert into picturea

values(:new.movie_no,:new.movie_name,:new.release_year);

end if;

end;

Formatting Text At Run Time in VB 6.0

2009-04-17T01:32:00.000-07:00

Private Sub Chk1_Click()

Text1.FontBold = Chk1.Value

End Sub

-------------------------------------------------------------------------------------------

Private Sub Chk2_Click()

Text1.FontItalic = Chk2.Value

End Sub

-------------------------------------------------------------------------------------------

Private Sub Chk3_Click()

Text1.FontStrikethru = Chk3.Value

End Sub

-------------------------------------------------------------------------------------------

Private Sub Chk4_Click()

Text1.FontUnderline = Chk4.Value

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt1_Click()

Text1.Font = "arial"

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt10_Click()

Text1.FontSize = 16

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt11_Click()

Text1.FontSize = 12

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt12_Click()

Text1.FontSize = 8

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt2_Click()

Text1.Font = "arial black"

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt3_Click()

Text1.Font = "times new roman"

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt4_Click()

Text1.Font = "MS sans serif "

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt5_Click()

Text1.Font = "MS serif"

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt6_Click()

Text1.Font = "niagara engraved"

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt7_Click()

Text1.FontSize = 36

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt8_Click()

Text1.FontSize = 24

End Sub

-------------------------------------------------------------------------------------------

Private Sub Opt9_Click()

Text1.FontSize = 18

End Sub

many – many relationship and trigger example with item and supplier

2009-04-17T01:24:00.000-07:00

Consider the following entities and their relationships

Item (item_no, Item_name, qty)

Supplier (supp_no, supp_name, address, city, phoneno)

Item and Supplier are related with many – many relationship with rate and discount as the attribute of relationships. Create a RDB in 3 NF for the above and solve following queries in Oracle

A) Define a trigger before updation on discount field, if the difference in the old discount and new discount be is entered is greater than 5% raise an exception and display corresponding message.

B) Write a script to list the suppliers who live in same city but supply different set of items.

A) create or replace trigger discount_check

before update on item

for each row

declare

discount item.i_disc%type;

begin

if (:new.I_disc - :old.i_disc) > (:old.i_disc*(5/100)) then

raise_application_error(-20000,'the discount is crossing the max limit');

end if;

end;

B) set serveroutput on

declare

cursor supplier_name is select supp_name from supplier s,item_supplier a,item i where s.supp_no=a.supp_no and a.item_no=i.item_no and s.city=a.city and i.item_no<>a.item_no;

name supplier.supp_name%type;

begin

open supplier_name;

dbms_output.put_line('supplier names ');

loop

fetch supplier_name into name;

exit when supplier_name%notfound;

end loop;

end;

Movie-Actor many-to-many relationship in SQL

2009-04-17T01:22:00.000-07:00

. Consider the following entities and their relationships

Movie (movie_no, movie_name, release_year)

Actor( actor_no, name,rate)

Relationship between movie and actor is many – many with attribute rate in Rs. Create a RDB in 3 NF for the above and solve following queries in Oracle .

A) Write a script for the following – List the actor name and movie name in which actors rate is greater than 2 lakhs.

B) Define a trigger before insert or update of each row of movie, that movies released after 2000 be entered into the movie table.

A) set serveroutput on

declare

cursor act_cursor is select p.name,a.name from picture p,movie_actor1 s,actor1 a where p.movie_no=s.movie_no and s.actor_no=a.actor_no and a.rate>200000;

dname picture.name%type;

begin

dbms_output.put_line(' Name of actors having more than 2 lakh ');

dbms_output.put_line('----------------------------------------');

open act_cursor;

loop

fetch act_cursor into dname;

exit when act_cursor%notfound;

dbms_output.put_line(dname);

end loop;

close act_cursor;

end;

B) set serveroutput on

create trigger picture

before insert or update on movie for each row

declare

release_year number(4);

begin

If movie.release_year>2000 then

insert into picture values(:new.movie_no,:new.movie_name,:new.release_year);

end if;

end;

List box (Add Item,Remove Item,Count) in VB 6.0

2009-04-17T01:21:00.002-07:00

Private Sub cmdadd_Click()

List1.AddItem (txtadd.Text)

txtadd.Text = ""

End Sub

-----------------------------------------------------------------------------------------------------------------

Private Sub cmdclear_Click()

List1.Clear

End Sub

-----------------------------------------------------------------------------------------------------------------

Private Sub cmdcount_Click()

MsgBox (List1.ListCount)

End Sub

------------------------------------------------------------------------------------------------------------------

Private Sub cmdremove_Click()

List1.RemoveItem (List1.ListIndex)

End Sub

------------------------------------------------------------------------------

Private Sub Form_Load()

Form1.WindowState

End Sub

Select Case Of Date in VB 6.0

2009-04-17T01:21:00.001-07:00

Private Sub Command1_Click()

b = Weekday(Date)

Select Case b

Case 1

MsgBox "today is sunday"

Case 2

MsgBox "today is monday"

Case 3

MsgBox "today is tuesday"

Case 4

MsgBox "today is wednesday"

Case 5

MsgBox "today is thursday"

Case 6

MsgBox "today is friday"

Case 7

MsgBox "today is saturday"

End Select

End Sub

Celsius to Fahrenheit in VB 6.0

2009-04-17T01:13:00.000-07:00

Dim fr As Double

Dim c As Double

Private Sub cmdconversion_Click ()

c = txtcelceius.Text

fr = 9 / 5 * c + 32

txtferenhite.Text = fr

End Sub

Addition of even numbers(0-20) in VB

2009-04-17T01:10:00.000-07:00

Dim i, s As Integer

----------------------------------------------------------------------

Private Sub cmdeven_Click ()

s = 0

For i = 1 To 20

If i Mod 2 = 0 Then

s = s + i

lblres.Caption = s

End If

End Sub

Doctor-Hospital example in SQL with many-many relationship

2009-04-16T23:54:00.001-07:00

Consider the following entities and their relationships
Doctor (doc_no, doc_name, address, city, area)
Hospital (hosp_no, hosp_name, hosp_city)
Doctor and Hospital are related with many-many relationship. Create a RDB in 3 NF for the above and solve following queries in Oracle
A) Write a script to list the names of doctors who visit every hospital located in the city where they do not live. [15]
B) Write script cursors to print the list showing the doctor wise list of hospitals.
[25]

A) set serveroutput on
declare
cursor doc_names is select distinct doc_name from doctor d,doc_details s,hospital h where d.doc_no=s.doc_no and s.hosp_no=h.hosp_no and d.city<>hosp_city;
name doctor.doc_no%type;
begin
open doc_names ;
dbms_output.put_line('doctor names');
dbms_output.put_line('----------------------');
loop
fetch doc_names into name;
exit when doc_names%notfound;
dbms_output.put_line(name);
end loop;
end;
/

B) set serveroutput on
declare
cursor doctors_list is select distinct (doc_no) from doctor;
cursor hosp_list is select hospital.hosp_name from hospital inner join doc_details on hospital.hosp_no = doc_details.hosp_no;
DNAME doctor.doc_name%type;
HNAME hospital.hosp_name%type;
begin
open doctors_list;
loop
fetch doctors_list into DNAME;
exit when doctors_list%notfound;
dbms_output.put_line('Doctor Name:');
dbms_output.put_line(DNAME);
dbms_output.put_line('List of Hospitals:')
open hosp_list;
loop
fetch hosp_list into HNAME;
exit when hosp_list%notfound;
dbms_output.put_line(HNAME);
end loop;
close hosp_list;
end loop;
close doctors_list;
end;
/

Dual SQL

2009-04-16T23:50:00.003-07:00

SQL> select abs(-10) from dual;

ABS(-10)
---------
10

SQL> select power(3,2) from dual;

POWER(3,2)
----------
9

SQL> select round(99.9) from dual;

ROUND(99.9)
-----------
100

SQL> select sqrt(64) from dual;

SQRT(64)
---------
8

SQL> select sqrt(60) from dual;

SQRT(60)
---------
7.7459667

SQL> select power(5,2) as powerof from dual;

POWEROF
---------
25

SQL> select extract(day from sysdate) from dual;

EXTRACT(DAYFROMSYSDATE)
-----------------------
22

SQL> select exp(3) from dual;

EXP(3)
---------
20.085537

SQL> select greatest(1,2,3) from dual;

GREATEST(1,2,3)
---------------
3

SQL> select least(2,3,4,5) from dual;

LEAST(2,3,4,5)
--------------
2

SQL> select mod(21,5) from dual;

MOD(21,5)
---------
1

SQL> select trunc(131.123,2) from dual;

TRUNC(131.123,2)
----------------
131.12

SQL> select trunc(131.123,-2) from dual;

TRUNC(131.123,-2)
-----------------
100

SQL> select floor(54.7) from dual;

FLOOR(54.7)
-----------
54

SQL> select ceil(32.3) from dual;

CEIL(32.3)
----------
33

SQL> select lower('PRIANKA') from dual;

LOWER('
-------
prianka

SQL> select initcap('abcd') from dual;

INIT
----
Abcd

SQL> select upper('siamak') from dual;

UPPER(
------
SIAMAK

SQL> select substr('PRIYANKA',4,3) from dual;

SUB
---
YAN

SQL> select substr('PRIYANKA',7,3) from dual;

SU
--
KA

SQL> select substr('PRIYANKA',15,3) from dual;

S
-

SQL> select ascii('a') from dual;

ASCII('A')
----------
97

SQL> select ascii('add') from dual;

ASCII('ADD')
------------
97

SQL> select instr('abca','a',1,2) from dual;

INSTR('ABCA','A',1,2)
---------------------
4

SQL> select instr('mammadmoshar','m',1,4) from dual;

INSTR('MAMMADMOSHAR','M',1,4)
-----------------------------
7

SQL> select translate('abcdef','bcd','lmn') from dual;

TRANSL
------
almnef

SQL> select translate('abcdef','bd','ln') from dual;

TRANSL
------
alcnef

SQL> select translate('abcdef','bd','l') from dual;

TRANS
-----
alcef

SQL> select translate('abcdef','bd','lmn') from dual;

TRANSL
------
alcmef

SQL> select length('siavash') from dual;

LENGTH('SIAVASH')
-----------------
7

many to one relationship

2009-04-16T23:50:00.001-07:00

Consider the following Entities and Relationships
Book (bno,bname,price)
Dealer (dno,dname,add)
Dept (deptno,deptname,hed)

Book add Dealer (many to one)
Book and Dept (many to one)
Constraints: (primary key, foreign key, price>0)

a) Give the name of dept expending maximum amount on books.
b) List the name and dept to whom "Tata Mg Hill" has supplied books.
c) List the name and prices of books bought for "computer dept"
d) Print dept wise expenditure on book.

--------------------------------------------------------

drop table books;
drop table deals;
drop table depts;

create table deals(dno int primary key,dname varchar(20),addr varchar(20));
create table depts(deptno int primary key,deptname varchar(20),head varchar(20));
create table books(bno int primary key,bname varchar(20),price int,dno int references deals(dno),deptno int references depts(deptno));

insert into deals values(10,'tata mg_hill','dehli');
insert into deals values(20,'comphensive','mumbai');

insert into depts values(100,'maths','r.d.sharma');
insert into depts values(200,'comps','h.kanitar');

insert into books values(1,'lost',150,10,100);
insert into books values(2,'find',250,20,200);

a)
select deptname,sum(price)
from books,depts
where books.deptno=depts.deptno
group by deptname
having sum(price)>=all (select sum(price) from books,depts where depts.deptno=books.deptno group by depts.deptno);

b)
select deptname
from depts,books,deals
where books.deptno=depts.deptno and books.dno=deals.dno and dname='tata mg_hill';

c)
select bname,price
from books,depts
where books.deptno=depts.deptno and deptname='comps';

d)
select deptname,sum(price)
from depts,books
where books.deptno=depts.deptno
group by deptname;

many to many relation example

2009-04-16T23:48:00.000-07:00

Consider the following entities and their relationship,
Employee (empno,name,address,city,deptname)
Project (pno,pname,status)
Employee & project (many to many)
a) List the name of employee working on any project more than 25 days.
b) List the name of employee working on project having status "progressive".
c) List the project name and total number of employees worked in a project which is incomplete.
d) List project wise names of employees along with project status.

Project status can be :( "p": progressive, "c": complete, "i": incomplete)

------------------------------------------------------------------

drop table empro;
drop table emp;
drop table pro;

create table emp(empno int primary key,ename varchar(20),addr varchar(20),city varchar(20),dept varchar(20));
create table pro(prno int primary key,pname varchar(20),status varchar(20));
create table empro(empno int references emp(empno),prno int references pro(prno),noday int);

insert into emp values(1,'e1','jm','pune','d1');
insert into emp values(2,'e2','fc','pune','d2');
insert into emp values(3,'e3','jm','pune','d3');
insert into emp values(4,'e4','laxni','pune','d4');
insert into emp values(5,'e5','swargate','pune','d5');

insert into pro values(12,'p1','c');
insert into pro values(13,'p2','c');
insert into pro values(14,'p3','i');
insert into pro values(15,'p4','p');
insert into pro values(16,'p5','p');

insert into empro values(3,14,30);
insert into empro values(5,12,40);
insert into empro values(5,13,30);
insert into empro values(3,14,22);
insert into empro values(1,16,13);
insert into empro values(4,15,13);
insert into empro values(2,14,45);

a)
select distinct emp.ename
from emp,empro
where emp.empno=empro.empno and noday>25;

b)
select distinct emp.ename
from emp,empro,pro
where emp.empno=empro.empno and pro.prno=empro.prno and status='p';

c)
select pro.pname,count(emp.empno)
from emp,empro,pro
where emp.empno=empro.empno and pro.prno=empro.prno and status='i'
group by pro.pname;

d)
select pro.pname,emp.ename,status
from emp,empro,pro
where emp.empno=empro.empno and pro.prno=empro.prno
order by pro.pname asc;

binary to decimal in C

2008-10-02T11:13:00.000-07:00

#include"stdio.h"

void main()
{
int x,m,i,j,arr[34];
long unsigned int decimal,temp;

clrscr();
printf("\n this progran is able to exchange any positive");
printf("\n decimal number to the equivalent binary value");
printf("\n maximum permited decimal entry is: 4294967295\n\n");
printf("\n enter any positive decimal number \n ");
scanf("%lu",&decimal);

for(i=1;i<=34;i++)
arr[i]=0;

temp=decimal;
i=1;
j=34;

while(decimal>0)
{
m=(decimal%2);
decimal=(decimal/2);
arr[i]=m;
i++;
}

j--;

clrscr();
printf("\n (%lu)decimal = (",temp);
for(i=j;i!=0;i--)
{
printf("%d",arr[i]);
// if(i%5==0) printf(" "); // just to leave some spaces between digits
}

printf(")binary");

getch();

}

program to calculate gross salary in C

2008-10-02T11:09:00.000-07:00

#include"stdio.h"

void main()
{
float gs,bs,da,hra;

clrscr();
printf(" \n enter the basic salary: \n ");
scanf("%f",&bs);

da=bs*.4;;
hra=bs*.2;
gs=bs+da+hra;
printf(" \n gross salary: %.2f ",gs);

getch();
}

fahrenheit to celsius in C

2008-10-02T11:08:00.000-07:00

#include"stdio.h"

void main()
{
float fahrenheit,celsius;

clrscr();
printf(" \n enter temperature in fahrenheit: \n ");
scanf("%f",&fahrenheit);

celsius=(fahrenheit-32.0)/1.8;
printf(" \n %.2f fahrenheit = %.2f celsius",fahrenheit,celsius);

getch();
}

call by reference in C

2008-10-02T11:07:00.000-07:00

#include "stdio.h"

void swap(int *,int *);
void main()
{
int num0,num1;

clrscr();
printf("\n swap values using call by refrence \n");

printf("\n enter first number: \n ");
scanf("%d",&num0);
printf("\n enter second number: \n ");
scanf("%d",&num1);

clrscr();
printf(" \n first value:%5d second value:%5d",num0,num1);
printf(" \n\n result after swapping");
swap(&num0,&num1);
printf(" \n first value:%5d second value:%5d",num0,num1);

getch();
}

void swap(int *a,int *b)
{
int temp;
temp=*a;
*a=*b;
*b=temp;
}

program to calculate students marks in C

2008-10-02T11:04:00.000-07:00

#include "stdio.h"

void main()
{
int avg,num,sum=0,i,sub[5];

for(i=0;i<5;i++) avg="sum/5;" average="%d">=60 && avg<=100) printf(" \n first devision"); else if(avg>=50 && avg<=59) printf(" \n second devision"); else if(avg>=40 && avg<=49) printf(" \n Third devision");
else printf(" \n Fail");

getch();
}

menu driven program to find prime, armstrong ,perfect in C

2008-10-02T11:02:00.001-07:00

#include "stdio.h"

void main()
{
int val,num,org,prime,rem,arm,perfect,i,j;
long unsigned int fact;
clrscr();

while(1)
{
printf(" \n press 1 to check whether number is odd/even");
printf(" \n press 2 to check whether number is prime");
printf(" \n press 3 to check whether number is armstrong");
printf(" \n press 4 to check whether number is perfect");
printf(" \n press 5 to calculate factorial value of number");
printf(" \n press 6 to exit \n\n");
printf(" \n enter any number in allowed range \n ");
scanf("%d",&val);

switch(val)
{

case 1:
clrscr();
printf(" \n enter any number to test: \n ");
scanf("%d",&num);
i=(num%2);
if(i==0) printf(" \n number is even");
else printf(" \n number is odd");
getch();
clrscr();
break;

case 2:
clrscr();
printf(" \n enter any number to test: \n ");
scanf("%d",&num);
prime=1;
for(j=2; num-1>=j;j++)
if ((num % j)==0) prime=0;

if (prime==1) printf(" \n number is prime");
else printf(" \n number is not prime");
getch();
clrscr();
break;

case 3:
clrscr();
printf(" \n enter any number to test: \n ");
scanf("%d",&num);
arm=0;
org=num;

while(num>0)
{
rem=(num%10);
rem=(rem*rem*rem);
arm=(arm+rem);
num=(num/10);
}

if (org==arm) printf(" \n number is armstrong");
else printf(" \n number is not armstrong");
getch();
clrscr();
break;

case 4:
clrscr();
printf(" \n enter any number to test: \n ");
scanf("%d",&num);
perfect=0;

for(i=1;i if(num%i==0) perfect+=i;

if(num==perfect) printf(" \n number is perfect");
else printf("\n number is not perfect");
getch();
clrscr();
break;

case 5:
clrscr();
printf( " \n enter any number to test: \n ");
scanf("%d",&num);
fact=1;

if(num>33) printf(" \n overflow..");
else
{
while(num>1)
{
fact=(fact*num);
num--;
}
printf(" \n factorial is: %lu",fact);
}

getch();
clrscr();
break;

case 6:
exit(0);

default:
clrscr();
printf(" \ninvalid entry");
getch();
clrscr();

}}

getch();
}

programs of transposed matrix in C

2008-10-02T11:01:00.000-07:00

#include "stdio.h"

void main()
{
int i,j,mtx1[4][4],mtx2[4][4];

clrscr();
for(i=0;i<4;i++)
for(j=0;j<4;j++)
{
clrscr();
printf(" \n enter element %d_%d \n " ,i+1,j+1);
scanf("%d",&mtx1[i][j]);
}

clrscr();
for(i=0;i<4;i++)
for(j=0;j<4;j++)
mtx2[j][i]=mtx1[i][j];

clrscr();
printf(" \n first matrix:\n (entered matrix) \n\n");
for(i=0;i<4;i++)
{
for(j=0;j<4;j++)
printf(" %5d " ,mtx1[i][j]);
printf("\n");
}

printf(" \n\n\n second matrix:\n (transposed matrix) \n\n");
for(i=0;i<4;i++)
{
for(j=0;j<4;j++)
printf(" %5d " ,mtx2[i][j]);
printf("\n");
}

getch();
}

program of palindrome in C

2008-10-02T10:59:00.000-07:00

#include"stdio.h"

void main()
{
char str1[40],str2[40];
int i,l;

clrscr();

printf(" \n enter any string to test: \n " );
scanf("%s",str1);
l=strlen(str1);

if(l>40)
{
clrscr();
printf(" \n overflow..");
getch();
exit(0);
}

for(i=0;i
str2[l-i-1]=str1[i];
str2[i]='\0';

clrscr();
printf("\n entered string: %s",str1);
printf("\n reversed string: %s ",str2);

if(strcmp(str1,str2))

printf("\n\n strineg is not palindrome");
else printf(" \n\n string is polindrome");

getch();
}

menu driven program of strings in C

2008-10-02T10:54:00.000-07:00

#include "stdio.h"
#include"string.h"

void str_cpy();
void str_length();
void str_merge();
void str_cmpr();

void main()
{
int val;
clrscr();

while(1)
{
printf(" \n press 1 to print length of a string");
printf(" \n press 2 to copy a string in another string ");
printf(" \n press 3 to merge one string with another string");
printf(" \n press 4 to compare two strings");
printf(" \n press 5 to exit \n\n");
printf(" \n enter any number in allowed range \n ");
scanf("%d",&val);

switch(val)
{

case 1:
str_length();
getch();
clrscr();
break;

case 2:
str_cpy();
getch();
clrscr();
break;

case 3:
str_merge();
getch();
clrscr();
break;

case 4:
str_cmpr();
getch();
clrscr();
break;

case 5:
exit(0);

default:
clrscr();
printf(" \ninvalid entry");
getch();
clrscr();

}}

getch();
}

void str_length()
{
char str[20];
int i,l;

clrscr();
printf(" \n enter any string to test: \n " );
scanf("%s",str);

clrscr();
for(i=0;str[i]!='\0';i++);
printf(" \n entered string: %s \n ",str);
printf(" \n length of entered string: %d",i);

}

void str_cpy()
{
char str1[20],str2[20];
int i,l;

clrscr();
printf(" \n enter any string to test: \n " );
scanf("%s",str1);
l=strlen(str1);

for(i=0;i
str2[i]=str1[i];
str2[i]='\0';

clrscr();
printf("\n entered string: %s",str1);
printf("\n reversed string: %s ",str2);

}

void str_merge()
{
char str1[20],str2[20],str3[40];
int i,j;

clrscr();
printf(" \n enter first string: \n " );
scanf("%s",str1);

clrscr();
printf(" \n enter second string: \n " );
scanf("%s",str2);

for(i=0;str1[i]!='\0';i++)
str3[i]=str1[i];

for(j=0;str2[j]!='\0';j++)
str3[j+i]=str2[j];
str3[i+j]='\0';

clrscr();
printf(" \n entered string: %s",str1);
printf(" \n reversed string: %s ",str2);
printf(" \n merged string: %s ",str3);

}

void str_cmpr()
{
char str1[20],str2[20];
int i=0,sign=0;

clrscr();
printf(" \n enter first string: \n " );
scanf("%s",str1);

clrscr();
printf(" \n enter second string: \n " );
scanf("%s",str2);

while(str1[i]!='\0' || str2[i]!='\0')
{
if(str1[i]!=str2[i]) sign=1;
i++;
}

clrscr();
printf("\n first string: %s",str1);
printf("\n second string: %s ",str2);
if(sign==0) printf("\n\n strinegs are the same");
else printf(" \n\n string are not the same");

}

program to calculate power in C

2008-10-02T10:52:00.000-07:00

#include "stdio.h"
long unsigned int pow(int x,int y);

void main()
{
int x,y;

clrscr();
printf("\n enter the value of a , b \n ");
scanf("%d %d",&x,&y);

clrscr();
printf("\n a:%d b:%d\n",x,y);
printf("\n %d^%d: %lu",x,y,pow(x,y));

getch();
}

long unsigned int pow(int x,int y)
{
int i;
long unsigned int out=x;

for(i=2;i<=y;i++)
out*=x;

return(out);
}

program to calculate average of the entered numbers using arrays in pascal

2008-09-01T18:47:00.000-07:00

PROGRAM demo1;
var i,sum:integer;
var avg:real;
a:array[1..15] of integer;
begin
writeln('plz enter any 15 no.s');
for i:=1 to 15 do
read(a[i]);
sum:=0;
for i:=1 to 15 do
begin
sum:=sum+a[i];
end;
avg:=sum/10;
writeln('average of the entered numbers is==', avg);
end.

Program to count the number of words and characters in a sentence in c++

2008-08-30T23:14:00.000-07:00

#include "iostream.h"
#include "conio.h"

void main()
{
clrscr();
int countch=0;
int countwd=1;
cout << "Enter your sentence in lowercase: " << endl;
char ch='a';
while(ch!='\r')
{
ch=getche();
if(ch==' ')
countwd++;
else
countch++;
}
cout << "\n Words = " << countwd << endl;
cout << "Characters = " << countch-1 << endl;
getch();
}

Program to enter an integer and print if it is prime or composite in c++

2008-08-30T23:12:00.000-07:00

#include "iostream.h"
#include "conio.h"
#include "process.h"

void main()
{
clrscr();
int num1,x;
cout << "Enter an integer : " << endl;
cin>>num1;
for(x=2;x{
if(num1%x==0)
{
cout << num1 << " is a composite number." << endl;
getch();
exit(0);
}
else
{
cout << num1 << " is a prime number." << endl;
getch();
exit(0);
}
}
}

Program to enter an integer and print if it is greater or less than 100 in c++

2008-08-30T23:09:00.001-07:00

#include "iostream.h"
#include "conio.h"

void main()
{
clrscr();
int x;
cout << "Enter an integer : " << endl;
cin>>x;
if(x>100)
{
cout << x << " is greater than 100." << endl;
}
else
{
cout << x << " is less than 100." << endl;
}
getch();
}

Program to enter two integers and find their sum and average in c++

2008-08-30T23:07:00.000-07:00

#include "iostream.h"
#include "iostream.h"
#include "conio.h"

void main()
{
clrscr();
int x,y,sum;
float average;
cout << "Enter 2 integers : " << endl;
cin>>x>>y;
sum=x+y;
average=sum/2;
cout << "The sum of " << x << " and " << y << " is " << sum << "." << endl;
cout << "The average of " << x << " and " << y << " is " << average << "." << endl;
getch();
}

Program for linklist in pascal

2008-08-30T23:00:00.001-07:00

(*program linked list*)
program link(input,output);
type
node=record
info:integer;
link:pointer;
end;
pointer=^node;
var
start,prev,temp:pointer;
procedure create(var start:pointer);
var i:integer;
begin
readln(i);
start:=nil;
prev:=nil;
while(i<>0)do
begin
new(temp);
temp^.info:=i;
temp^.link:=nil;
if(prev=nil)then
begin
start:=temp;
end
else
prev^.link:=temp;
prev:=temp;
readln(i);
end;
end;
procedure display(start:pointer);
begin
write('root');
while(start<>nil)do
begin
write(' ',start^.info:2);
start:=start^.link;
end;
write('nil');
end;
begin
writeln('enter the element of list-terminate by 0');
create(start);
writeln('elements of the linked list are');
display(start);
readln;
end.

Program for emplyee record in pascal

2008-08-30T22:58:00.000-07:00

PROGRAM employees_3;
uses crt;
TYPE employee=record
name:string;

ph:integer;
age:integer;
sal:integer;
END;

VAR e:array [1..3] of employee;
i,j,temp,ans:integer;

BEGIN
ans:=1;
WHILE(ans=1)DO

BEGIN
clrscr;

FOR i:=1 TO 3 DO
BEGIN

writeln('Enter Name of Employee ',i);
readln(e[i].name);
writeln('Enter Phone of Employee ',i);
readln(e[i].ph);
writeln('Enter Age of Employee ',i);
readln(e[i].age);
writeln('Enter Salary of Employee ',i);
readln(e[i].sal);
END;

writeln('');
writeln('');

j:=1;
FOR i:=1 TO 3 DO
BEGIN
temp:=5000;
IF tempBEGIN
writeln(e[i].name,' ',e[i].ph,' ',e[i].age,' ',e[i].sal);
j:=2;
END;
END;
IF (j=1) THEN writeln('No one earns more than Rs.5000/-');

writeln('Do You Want to do it again?');
writeln('Press 1 to start again or any other number to exit');
readln(ans);
END;
END.

program to find fibonacci series upto given number

2008-08-29T23:24:00.002-07:00

{program to find fibonacci series upto given number}
program fibonacci;
uses crt;
var i,a,b,num,sum,x:integer;

begin
clrscr;
i:=1;
a:=0;
b:=1;

writeln(' please enter the number');
readln(num);
writeln;

while ( i<=num ) do
begin
sum:=a+b;
b:=a;
a:=sum;
i:=i+1;
write(sum:5);
end;

writeln;
writeln;
writeln(' "please enter any number to exit"');
readln(x); { just to see the result }

end.

program to find fibonacci series upto given number

2008-08-29T23:24:00.001-07:00

program to check if the number is armstrong or not

2008-08-29T23:20:00.000-07:00

(write a program to check whether given number is armstrong or not

example:
153 is an armstrong number,
bcz:
153= ( 1^3 + 5^3 + 3^3 )
153= ( 1*1*1 + 5*5*5 + 3*3*3 )
153= ( 1 + 125 + 27 )
153= 153
}

program armstrongnumber;
uses crt;

var
num,temp,m,sum:integer;

begin

clrscr;
writeln(' please enter any number to test');
readln(num);
temp:=num;
sum:=0;

while ( num > 0 ) do
begin
m:=( num mod 10 );
m:=( m*m*m);
sum:= sum+m;
num:= ( num div 10 );
end;

writeln;
if sum=temp then writeln(' number is armstrong')
else
writeln(' number is not armstrong');

writeln;
writeln;
writeln(' press any key to exit');
readln; { just to see the result }
end.

program to find out maximum of 2 nos

2008-08-29T23:18:00.000-07:00

PROGRAM Max;
VAR a,b:real;
BEGIN
writeln('Enter the two variables');
read(a,b);
IF(a>b)THEN
BEGIN
writeln('the first variable is greater');
END
ELSE
BEGIN
writeln('the second variable is greater');
END
END.

program of Sumdigit in pascal

2008-08-28T10:43:00.001-07:00

program demo;
uses crt;
var x:integer;
m:integer;
function sumdig(num:integer):integer;

begin
if num<=9 then sumdig:=num else begin m:=num mod 10; num:=num div 10; sumdig:=m+sumdig(num); end; end; begin writeln('Enter the number'); read(x); writeln('sumdigit is::>', sumdig(x));
end.

program to print a format in pascal

2008-08-28T10:41:00.001-07:00

{wap to display in following Format
ABCDEDCBA
ABCD DCBA
ABC CBA
AB BA
A A }

program abcd;
uses crt;
var m,n,i,j,s,k:integer;

begin
clrscr;
write(' please enter the number of rows');
read(n);

m:=n-1;
s:=0;
writeln;

for i:=1 to n do
begin
for j:=65 to 65+(m) do
write(char(j));
for k:=1 to s do
write(' ');

if (i=1) then
begin
for k:=65+(m-1) downto 65 do
write(char(k));
writeln;
end;

if (i>1) then
begin
for k:=65+(m) downto 65 do
write(char(k));
writeln;
end;

m:=m-1;
if (i=1) then s:=s+1
else s:=s+2;

end;

writeln;
writeln;
writeln(' press any key to exit');
readln; { just to see the result }

end.

program to display content of file in reverse order in pascal

2008-08-28T10:39:00.000-07:00

{wap to display content of file in reverse order}

{after runing this program you can see the result
of it on "C:\file.txt" and "C:\reversr_file.txt"}
program file_reverce;
uses crt;
var f1,f2:text;
x:string;
l,i:integer;

begin
clrscr;
assign(f1,'C:\file.txt');
assign(f2,'c:\rev_file.txt');

rewrite(f1);
rewrite(f2);

writeln(' please enter any word to test');
readln(x);

writeln(f1,x);
reset(f1);
l:=length(x);

writeln;
writeln;
writeln(' the revarse of your entry word is ');
for i:=l downto 1 do
begin
read(f1,x);
write(x[i]);
write(f2,x[i]);
end;

close(f1);
close(f2);

writeln;
writeln;
writeln(' press any key to exit');
readln; { just to see the result }

end.

program to display "number of character,lines & tabs" in a text file in pascal

2008-08-28T10:36:00.000-07:00

{wap to display "number of character,lines & tabs" in a text file}

{before running this program you have to create a text file and write
the path of that file as the required input,

for example create
"file.txt" in "c:\"
and enter this path as the required input:
c:\file.txt

as you know,
if you write the required path wrongly,
this program doesn't work at all}

program file_length;
uses crt;
var
f:text;
t:string;
ch,space,z,l:integer;
x,a:char;

begin
clrscr;
ch:=0;
z:=0;
l:=0;

writeln(' enter the path of your text file');
writeln(' for example: c:\file.txt ');
readln(t);

assign(f,t);
reset(f);

while not eof(f) do
begin
read(f,x);
if ( ( x='z') or (x='Z') ) then
z:=z+1;

if (x=' ') then
space:=space+1
else ch:=ch+1;
end;

readln(f);
close(f);
reset(f);

while not eoln(f) do
begin
readln(f,x);
l:=l+1;
end;

writeln;
writeln;
writeln(' characters: ',ch);
writeln(' tabs: ',space);
writeln(' number of Zs: ',z);
writeln(' number of lines: ',l);
close(f);

writeln;
writeln;
writeln(' "please enter any number to exit"');
readln(x); { just to see the result }

end.

Ascending sorting in pascal

2008-08-28T10:35:00.000-07:00

{wap to perform the sorting of array in ascending order}
program ascending_sort;
uses crt;
type arr=array[1..10] of integer;
var a:arr;
i,j,temp:integer;

begin
clrscr;
for i:=1 to 10 do
begin
clrscr;
writeln(' please enter array_number[',i,']');
readln(a[i]);
end;

for i:=10 downto 1 do
for j:=2 to i do
If (a[j-1] > a[j]) then
begin
temp := a[j-1];
a[j-1] := a[j];
a[j]:= temp;
end;

clrscr;
writeln(' the result of sorted array is');
writeln;
for i:=1 to 10 do
writeln(' array_number[',i:2,']',a[i]:5);

writeln;
writeln;
writeln(' press any key to exit');
readln; { just to see the result }

end.

Multiplication of two arrays in Pascal

2008-08-28T10:34:00.001-07:00

{Multi of two arrays }
program mammad;
uses crt;
type
a=array [1..5,1..5] of real;
var
avg,sum,x:real;
arr:a;
i,j:integer;

begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
begin
clrscr;
writeln(' Enter the elements of the first array_Number [',i,' & ',j,']');
readln(arr[i,j]);
end;

clrscr;
for i:=1 to 5 do
begin
writeln;
writeln;
for j:=1 to 5 do
begin
if (i=j) or ( (i+j) = 6) then
write(arr[i,j]:4:2,' ')
else
write(' --- ');
end;
end;

writeln;
writeln;
writeln(' "Plz press any number to exit"');
readln(x); { Just to see the result };
end.

palindrome in pascal

2008-08-28T10:32:00.000-07:00

PROGRAM palindrome;
VAR x,c,d,a:INTEGER;
BEGIN
c:=0;
read(x);

WHILE x>0 DO
BEGIN
d:=x MOD 10;
x:=x DIV 10;
c:=(c*10)+d;
END;
IF c=a THEN
writeln('no.is palindrome')
ELSE
writeln('no. is not palindrome');
END.

To print Triangle pattern in pascal

2008-08-28T10:31:00.000-07:00

program pattern ;
uses crt ;
var i : char;
A : char;
begin
clrscr ;
for i := 'A' to 'D' do
write (i:2) ;
for i := 'C' downto 'A' do
write (i:2) ;
writeln ;
for i := 'C'downto 'A' do
begin
for A := 'A' to i do
write (A:2) ;
for A:= i downto 'A' do
write(A:3) ;
writeln ;
end ;
end.

To find factorial of a number in pascal

2008-08-28T10:30:00.000-07:00

PROGRAM FACTORIAL;
USES CRT;
VAR x,y,n:integer;
FUNCTION fact(m:integer):integer;
VAR f,i:integer;
BEGIN
CLRSCR;
f:=1;
FOR i:=1 TO m DO
BEGIN
f:=f*i;
END;
fact:=f;
END;
BEGIN
readln(y);
writeln(fact(y));
END.

About C programing language

2008-08-18T23:32:00.000-07:00

C programing language was developed in the year 1972 at AT & T Bell Lab of United States. Dennis Ritchie was the designer and writer of the C programing Language. C was however, not made as the official programing language by Bell labs, in short no one pushed C. But, because of its unique features it gained popularity and its use increased drastically all over the globe. C became a popular language because it is Simple, Reliable and very easy and user-friendly. The most fascinating thing about this language is that it has survived over 3 decades in the industrial sector which is not a very common thing in case of programming languages.

To find max & min of an array in Pascal

2008-08-18T22:46:00.000-07:00

{max & min of an array }
program max_min_array;
uses crt;
type
a=array [1..10] of integer;
var
max,min:integer;
arr:a;
x,i:integer;

begin
for i:=1 to 10 do
begin
clrscr;
writeln;
writeln(' please enter the value of arreay_num[',i:2,']');
readln(arr[i]);
end;

max:=arr[1];
min:=arr[1];
clrscr;
for i:=2 to 10 do
begin
if arr[i] > max then max:=arr[i];
if arr[i] < min then min:=arr[i];
end;

for i:=1 to 10 do
writeln(' array_number[',i:2,']',arr[i]:4);
writeln;
writeln(' Max is: ',max:5);
writeln(' Min is: ',min:5);

writeln;
writeln(' "please enter any number to exit"');
readln(x); { just to see the result }
end.

binary number to decimal in pascal

2008-08-12T08:23:00.001-07:00

program b2d;
var no,sum,x,rem,n:integer;
begin
writeln('plz enter the binary no');
read(no);
sum:=0;
n:=1;
while no>0 do
begin
rem:=no mod 10;
no:=no div 10;
rem:=rem*n;
sum:=sum+rem;
n:=n*2;
end;
writeln(sum);
read(x);
end.

Sum of two arrays using pascal

2008-08-12T08:18:00.000-07:00

{Sum of two arrays "matrix"}
program sum_of_tow_arrays;
uses crt;
type
a=array [1..10] of real;
var
arr1,arr2,arr3:a;
x,i:integer;

begin
clrscr;

for i:=1 to 10 do
begin
clrscr;
writeln;
writeln(' Arreay-1, Plz enter Num[',i,']');
readln(arr1[i]);
end;

for i:=1 to 10 do
begin
clrscr;
writeln;
writeln(' Arreay-2, Plz enter Num[',i,']');
readln(arr2[i]);
end;

clrscr;
for i:=1 to 10 do
begin
arr3[i]:= arr1[i] + arr2[i];
writeln('Array_1 Num[',i,']',' + Array_2 num[',i,'] is: ',arr3[i]:4:2);
end;

writeln;
writeln(' "Plz press any number to exit"');
readln(x); { Just to see the result }
end.

swapping program in C

2008-07-31T04:11:00.000-07:00

#include"stdio.h"
#include"conio.h"
int main()
{
int a,b,temp;
clrscr();
printf("Entre two no::>>");
scanf("%d%d",&a,&b);
printf("\n before swapping\n");
printf("%d %d",a,b);
temp=a;
a=b;
b=temp;
printf("\n after swapping\n");
printf("%d %d",a,b);
a=a+b;
b=a-b;
a=a-b;
printf("\n after swapping\n");
printf("%d %d",a,b);
getch();
return 0;
}

array addition in C

2008-07-31T04:09:00.001-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int i,j;
int a[3][3],b[3][3],c[3][3];
clrscr();
printf("Enter 9 values for 1st array : \n");
for(i=0;i<3;i++)
for(j=0;j<3;j++)
scanf("%d",&a[i][j]);
printf("Enter another 9 values for 2nd array : \n");
for(i=0;i<3;i++)
for(j=0;j<3;j++)
scanf("%d",&b[i][j]);
for(i=0;i<3;i++)
for(j=0;j<3;j++)
c[i][j]=a[i][j]+b[i][j];
printf("The Original 1st array is : \n");
for(i=0;i<3;i++)
{
for(j=0;j<3;j++)
{
printf("%d ",a[i][j]);
}
printf("\n");
}
printf("The Original 2nd array is : \n");
for(i=0;i<3;i++)
{
for(j=0;j<3;j++)
{
printf("%d ",b[i][j]);
}
printf("\n");
}
printf("\nAddition of two arrays is : \n");
for(i=0;i<3;i++)
{
for(j=0;j<3;j++)
{
printf(" %d ",c[i][j]);
}
printf("\n");
}
getch();
}
OUTPUT:
Enter 9 values for 1st array :
1 2 3 4 5 6 7 8 9 10
Enter another 9 values for 2nd array :
1 2 3 4 5 6 7 8 9 10
The Original 1st array is :
1 2 3
4 5 6
7 8 9
The Original 2nd array is :
10 1 2
3 4 5
6 7 8
Addition of two arrays is :
11 3 5
7 9 11
13 15 17

binary to decimal in C

2008-07-31T04:07:00.000-07:00

#include"stdio.h"
void main()
{
int bin,deci=0,digit,pos=0;
clrscr();
printf("Enter a binary no : ");
scanf("%d",&bin);
while(bin!=0)
{
digit = bin % 10;
deci = deci + digit*pow(2.0,pos);
pos++;
bin = bin / 10;
}
printf("\nThe equivalent decimal no : %d",deci);
getch();
}
OUTPUT:
Enter a binary no : 1100
The equivalent decimal no : 12

factorail using recursion in C programing

2008-07-30T11:34:00.001-07:00

#include"stdio.h"
#include"conio.h"
float fact(int);
void main()
{
int n;
float f;
clrscr();
printf("Enter any no : ");
scanf("%d",&n);
f=fact(n);
printf("\nFactorial of no %d is %f",n,f);
getch();
}
float fact(int n)
{
if(n==1)
return 1;
else
return(n*fact(n-1));
}

OUTPUT:
Enter any no : 3
Factorial of no 3 is 6.000000

Farenheit to celcius using C programing

2008-07-30T11:33:00.000-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
float f,farenheit,celcius;
clrscr();
printf("Enter tempreture in Farenheit : \n");
scanf("%f",&farenheit);
celcius = (farenheit - 32.0)/1.8;
printf("%f farenheit = %f celcius",farenheit,celcius);
getch();
}

OUTPUT:
Enter tempreture in Farenheit :
100
100.000000 farenheit = 37.777779 celcius

program to printf all the possible combinations of 123 using C

2008-07-30T11:32:00.000-07:00

#include"stdio.h"
#include"conio.h"
main()
{
int i=1,j=1,k=1;
clrscr();
for(i=1;i<=3;i++)
{
for(j=1;j<=3;j++)
{
for(k=1;k<=3;k++)
printf("%d%d%d\t",i,j,k);
}
}
getch();
}

OUTPUT:
111 112 113 121 122 123 131 132 133 211
212 213 221 222 223 231 232 233 311 312
313 321 322 323 331 332 333

pattern using C programing

2008-07-30T11:30:00.000-07:00

/*to print the pattern
ABCDEFGFEDCBA
ABCDEF FEDCBA
ABCDE EDCBA
ABCD DCBA
ABC CBA
AB BA
A A*/
#include"stdio.h"
#include"conio.h"
void main()
{
int a,b,i=64,c=0,d=70,e=-2,f=0;
clrscr();
b=65;
a=70;
while(c<8)
{
printf("\n");
while(i<=a)
{
i++;
printf("%c",i);
}
for(f=0;f<=e;f++)
printf(" ");
e+=2;
if(c==0)
i=i-1;
while(i>=b)
{
printf("%c",i);
i--;
}
i=64;
a--;
c++;
}
getch();
}
OUTPUT:
ABCDEFGFEDCBA
ABCDEF FEDCBA
ABCDE EDCBA
ABCD DCBA
ABC CBA
AB BA
A A

pattern using C programing

2008-07-30T11:28:00.000-07:00

/* Write a program to produce
*
* *
* * *
* * * * */
#include"stdio.h"
#include"conio.h"
void main()
{
int a,i,j,n=1,k,m=1;
clrscr();
for(i=1;i<=4;i++) { for(int k=4;k>i;k--)
printf("\t");
for(j=n;j<=m;j++)
{
printf("\t*\t",j);
if(j==m && j!=1)
{
n=m;
m=m+1;
break;
}
else
{
continue;
}
}
printf("\n");
n++;
if(i!=3)
m=m+2;
else
m=m+3;
}
getch();
}

OUTPUT:
*
* *
* * *
* * * *

program to check armstrong number using C

2008-07-30T11:27:00.000-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int i,n,sum=0,rem;
clrscr();
for(i=1;i<=500;i++)
{
sum=0;
n=i;
while(n>0)
{
rem = n % 10;
sum = sum + (rem*rem*rem);
n = n / 10;
}
if(sum==i)
printf("%d\n",i);
}
getch();
}

OUTPUT:
1
153
370
371
407

program of prime number using C

2008-07-30T11:26:00.000-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int a,m,i,j;
clrscr();
printf("enter number=");
scanf("%d",&a);
j=0;
i=2;
while (i<=a)
{
m=a%i;
if(m==0)
{
j++;
}
i++;
}
if (j==1)
printf("\n %d is prime",a);
else
printf ("\n %d is not prime",a);
getch();
}

OUTPUT:
enter number=7
7 is prime

Program to determine reverse in C programing

2008-07-30T11:24:00.001-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int a,sum=0,x,n;
clrscr();
printf("Enter a number : \n");
scanf("%d",&n);
x=n;
while(n>0)
{
a=n%10;
sum=(sum*10)+a;
n=n/10;
}
printf("\nThe reverse of the number is %d",sum);
if(sum==x)
printf("\nThe Original no & Reverse no are equal...");
else
printf("\nThe Original no & Reverse no are not equal...");
getch();
}

program to cal leap year in C

2008-07-30T11:23:00.001-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int year;
clrscr();
printf("\nEnter the year : ");
scanf("%d",&year);
if(year%4==0 && (year%100!=0) (year%400==0))
printf("\nThe %d is a leap year.",year);
else
printf("\nThe %d is not a leap year.",year);
getch();
}

praogam to cal fibonacci series in C language

2008-07-30T11:21:00.000-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int i,a,b,c,d;
clrscr();
printf("\nEnter the limit for fibonacci terms :");
scanf("%d",&d);
a=0;
b=1;
printf("%d\t%d",a,b);
for(i=3;i<=d;i++)
{
c=a+b;
a=b;
b=c;
printf("\t%d",c);
}
getch();
}
OUTPUT:
Enter the limit for fibonacci terms :10
0 1 1 2 3 5 8 13 21 34

switch case in C language

2008-07-30T11:16:00.002-07:00

#include"stdio.h"
#include"conio.h"
#include"stdlin.h"
void main()
{
int i;
char op;
float area,x,y;
clrscr();
printf("\na. Area of Circle");
printf("\nb. Area of Rectangle");
printf("\nc. Area of Square");
printf("\nd. Exit");
printf("\nEnter the choice :");
scanf("%c",&op);
switch (op)
{
case 'a': printf("\nEnter the radius : ");
scanf("%f",&x);
area=3.14*x*x;
printf("\nArea of Circle is : %f",area);
break;
case 'b' :printf("\nEnter the length : ");
scanf("%f",&x);
printf("\nEnter the bredth : ");
scanf("%f",&y);
area=x*y;
printf("\nArea of Rectangle is : %f",area);
break;
case 'c':printf("\nEnter the side : ");
scanf("%f",&x);
area=x*x;
printf("\nArea of Square is : %f",area);
break;
case 'd': exit(0);
default: printf("\nYou entered wrong choice");
}
getch();
}

OUTPUT:
a. Area of Circle
b. Area of Rectangle
c. Area of Square
d. Exit
Enter the choice :a
Enter the radius : 4
Area of Circle is : 50.240002

Program to calculate simple interest in C language

2008-07-30T11:16:00.001-07:00

#include"stdio.h"
#include"conio.h"
void main()
{
int p,n;
float si,r;
clrscr();
printf("\nEnter principle amount and period : ");
scanf("%d%d",&p,&n);
printf("\n Enter rate of interest :");
scanf("%f",&r);
si=(p*n*r)/100;
printf("\n%f\t",si);
getch();
}

OUTPUT:
Enter principle amount and period : 1200 3
Enter rate of interest :10
360.000000

triangle pattern in c

2008-07-30T11:08:00.000-07:00

#include
#include
int main()
{
int val;
clrscr();
printf("Enter the value:");
scanf("%d",&val);
while(val>0)
{
printf("\n %d",val);
val=val / 10;
}
getch();
}

Output:

Enter the value:4

5678
567
56
5

bubble sort by C programing

2008-07-30T11:01:00.000-07:00

#include
void main()
{
int A[20],N,Temp,i,j;
clrscr(); printf("\n\n\t ENTER THE NUMBER OF TERMS...: ");
scanf("%d",&N);
printf("\n\t ENTER THE ELEMENTS OF THE ARRAY...:");
for(i=1; i<=N; i++) { goto xy(25,11+i); scanf("\n\t\t%d",&A[i]); } for(i=1; i<=N-1; i++) for(j=1; j<=N-i;j++) if(A[j]>A[j+1])
{
Temp = A[j];
A[j] = A[j+1];
A[j+1] = Temp;
}
printf("\n\tTHE ASCENDING ORDER LIST IS...:\n");
for(i=1; i<=N; i++)
printf("\n\t\t\t%d",A[i]);
printf("\n\n------------------------------------");
getch();
}