Factorial,Greatest Number,Palindrome String  using AWK Programming

Write a Menu driven program using AWK Programming for

a) Find factorial of a number.

b) Find greatest of three numbers

c) Find a prime numbers.

d) Find whether a number is palindrome

e) Find whether a string is palindrome

 f) Exit.

Factorial,Greatest Number,Palindrome AWK Programming Code

 

BEGIN{  
   print"main menu" ;  
   print"1.factorial of number" ;  
   print"2.greatest of numbers" ;  
   print"3.prime number" ;  
   print"4.palindrome of number" ;  
   print"5.palindrome of string" ;  
   print"enter ur choice" ;  
   getline ch<"-" ;  
   print ch ;  
   if(ch==1)  
   {  
    print "enter the number" ;  
    getline tmp<"-" ;  
    c=1 ;  
    while(tmp != 0)  
    {  
     c=c*tmp ;  
     tmp-- ;  
     }  
    print c ;  
    }  
   if(ch==2)  
   {  
    print "enter first number" ;  
    getline a1<"-" ;  
    print "enter second number" ;  
    getline a2<"-" ;  
    print "enter third number" ;  
    getline a3<"-" ;  
    if(a1>a2 && a1>a3)  
    print "first number is greater " ;  
    if(a2>a1 && a2>a3)  
    print "second number is greater " ;  
    if(a3>a1 && a3>a2)  
    print "third number is greater " ;  
    }  
    if(ch==3)  
    {  
     print "enter the number" ;  
     getline tmp<"-" ;  
     if(tmp==1)  
     print "not prime number" ;  
     i=tmp-1 ;  
     while(i > 1)  
     {  
      a=tmp%i ;  
      i--;  
      if(a == 0)  
      {  
       print "not prime number" ;  
       break ;      
      }  
     }  
      if(i==1)  
      print "prime number " ;  
     }  
     if(ch==4)  
     {  
      print "enter the number" ;  
      getline tmp<"-" ;  
      sd=0 ;  
      rev=" " ;  
      on=tmp ;  
      n=length(tmp)-1 ;  
      while(tmp != 0)  
      {  
        sd=tmp % 10 ;  
        tmp=tmp / 10;  
        rev=rev+(sd*(10^n)) ;  
        n-- ;  
       }  
      print rev ;  
      if(on == rev)  
       print "palindrome" ;  
      else  
      print "not palindrome" ;  
     }  
     if(ch==5)  
     {  
      print "enter the number" ;  
      getline tmp<"-" ;  
      p = ""  
      for(i=length(tmp); i > 0; i--) { p = p substr(tmp, i, 1) }  
      print p  
      if(p == tmp )  
      print "palindrome " ;  
      else  
      print "not palindrome" ;      
     }  
 }

Student Database using AWK Programming 

Student Database using AWK

 clear  
 echo "1. create database "  
 echo "2. view database "  
 echo "3. insert a record "  
 echo "4. delete record "  
 echo "5. modify a record "  
 echo "6. result of particular student "  
 echo "7. exit"  
 echo " enter ur choice "  
 read d  
 case $d in  
 1)  
    echo " enter rollnumber of student "  
   read rn  
   echo " enter name of student "  
   read nm  
   echo " enter marks sanskrit "  
   read sk  
   echo " enter marks english "  
   read eg  
   echo " enter marks hindi "  
   read hn  
   record="$rn :$nm: $sk: $eg: $hn "  
   awk 'BEGIN{ print "'"$record"'">"stud" }'   
   ;;  
 2) awk 'BEGIN{print "rollno name smarks emarks hmarks"}{print $0}' stud;;  
 3)   
   echo " enter rollnumber of student "  
   read rn  
   echo " enter name of student "  
   read nm  
   echo " enter marks sanskrit "  
   read sk  
   echo " enter marks english "  
   read eg  
   echo " enter marks hindi "  
   read hn  
   record="$rn: $nm: $sk: $eg: $hn "  
   awk 'BEGIN { print "'"$record"'">>"stud" }'  
    ;;  
 4) echo " enter roll number "  
   read rn  
   awk 'BEGIN{FS=":"}$1=='$rn' {print }' stud  
   echo "RECORD FOUND "  
   awk 'BEGIN{FS=":"}$1!='$rn'{print >"temp"}' stud  
   cp temp stud  
   ;;  
 5) echo " enter roll number "  
   read rn1  
   awk 'BEGIN{FS=":"}$1=='$rn1' {print }' stud  
   echo " enter roll number "  
   read rn  
   echo " enter name of student "  
   read nm  
   echo " enter marks sanskrit "  
   read sk  
   echo " enter marks english "  
   read eg  
   echo " enter marks hindi "  
   read hn  
   record="$rn: $nm: $sk: $eg: $hn "  
   var=`awk 'BEGIN{FS=":"}$1=='$rn1' {print NR}' stud `  
   echo $var  
   awk 'BEGIN{FS=":"}NR<'$var'{print >"temp"}' stud  
   echo $record>>temp  
   var3=`awk 'END{print NR}' stud `  
   var2=`expr $var3 - $var `  
   awk 'BEGIN{FS=":"}NR>'$var2' && NR<'var3' {print >>"temp"}' stud  
   cp temp stud  
 ;;  
 6) echo " enter roll number "  
   read rn  
   echo "printing result "  
   awk 'BEGIN{FS=":"}$1=='$rn' {print }' stud  
   echo "RECORD FOUND "  
 ;;  
 7) ;;  
 * ) echo "enter right choice"  
 esac

Factorial,Greatest Number,String Palindrome using Shell Programming

palins()  
 {  
   echo “ Enter a String to check for Palindrome “  
   read str  
   i=1  
   y=`echo $str | wc -c`   
   y=`expr $y - 1`  
   z=$y  
   echo “The Length of String $y”  
   while [ $y -ne 0 ]  
   do  
   z=`echo $str | cut -c $i`  
   w=`echo $str | cut -c $y`  
   if [ "$z" != "$w" ]  
   then  
   echo “ The Given String $str is not Palindrome ”  
   y=0  
   else  
   i=`expr $i + 1`  
   y=`expr $y - 1`  
   fi  
   done  
   if [ "$z" = "$w" ]  
   then  
    echo “The Given String $str is a Palindrome”  
   fi  
 }  
 palinn()  
 {  
  echo -n "Enter number : "  
  read n  
  sd=0  
  rev=""  
  on=$n  
  while [ $n -gt 0 ]  
  do  
   sd=$(( $n % 10 )) # get Remainder  
   n=$(( $n / 10 )) # get next digit  
   rev=$( echo ${rev}${sd} )  
  done  
  if [ $on -eq $rev ];  
  then  
   echo "Number is palindrome"  
  else  
   echo "Number is NOT palindrome"  
  fi  
 }  
 great()  
 { echo "enter first number"  
  read a1  
  echo "enter first number"  
  read a2  
  echo "enter first number"  
  read a3  
  if [ $a1 -gt $a2 ] && [ $a1 -gt $a3 ]; then  
  echo "first number $a1 is greatest"  
  elif [ $a2 -gt $a1 ] && [ $a2 -gt $a3 ]; then  
  echo "second number $a2 is greatest"  
  elif [ $a3 -gt $a1 ] && [ $a3 -gt $a2 ]; then  
  echo "third number $a3 is greatest"  
  fi  
 }  
 fact()  
 {  
  echo "enter the number to find the factorial"  
  read b  
  c=1  
  while [ "$b" -gt 0 ]; do  
  c=$(($c * $b))  
  b=$(($b-1))  
  done  
  echo "factorial is $c "  
 }  
 clear  
 echo "1. factorial "  
 echo "2. greatest number "  
 echo "3. palindrome "  
 echo "4. palindrome string "  
 echo "5. exit"  
 echo "6. enter ur choice "  
 read d  
 case "$d" in  
 1) echo " factorial "  
   fact;;  
 2) echo "greatest"  
   great;;  
 3) echo "palindrome"  
    palinn ;;  
 4) palins ;;  
 5) ;;  
 * ) echo "enter right choice"  
 esac

Student Database using Shell Programming

Write a program to handle student data base with options given below :

a) Create data base.

b) View Data Base.

c) Insert a record.

d) Delete a record.

e) Modify a record.

f) Result of a particular student.

g) Exit.

Student Database using Shell Programming Code

 clear  
 echo "1. create database "  
 echo "2. view database "  
 echo "3. insert a record "  
 echo "4. delete record "  
 echo "5. modify a record "  
 echo "6. result of particular student "  
 echo "7. exit"  
 echo " enter ur choice "  
 read d  
 case $d in  
 1)  
    echo " enter rollnumber of student "  
   read rn  
   echo " enter name of student "  
   read nm  
   echo " enter marks sanskrit "  
   read sk  
   echo " enter marks english "  
   read eg  
   echo " enter marks hindi "  
   read hn  
   record="$rn $nm $sk $eg $hn "  
   echo $record>stud   
   ;;  
 2) echo " showing database of student"  
   cat stud ;;  
 3)   
   echo " enter rollnumber of student "  
   read rn  
   echo " enter name of student "  
   read nm  
   echo " enter marks sanskrit "  
   read sk  
   echo " enter marks english "  
   read eg  
   echo " enter marks hindi "  
   read hn  
   record="$rn $nm $sk $eg $hn "  
   echo $record>>stud  
    ;;  
 4) echo " enter roll number "  
   read rn  
   grep ^$rn stud  
   if [ $? -ne 0 ]; then  
   echo "record for roll number does not exist "  
   else  
   grep -v $rn stud>>tmp  
   cp tmp stud  
   echo "deletion complete "  
   fi  
   ;;  
 5) echo " enter roll number "  
   read rn1  
   grep ^$rn stud  
   if [ $? -ne 0 ]; then  
   echo "record for roll number does not exist "  
   else  
   echo " enter roll number "  
   read rn  
   echo " enter name of student "  
   read nm  
   echo " enter marks sanskrit "  
   read sk  
   echo " enter marks english "  
   read eg  
   echo " enter marks hindi "  
   read hn  
   record="$rn $nm $sk $eg $hn "  
   var=`grep -n ^$rn1 stud | cut -c 1`  
   echo $var  
   var1=`expr $var - 1`  
   head -$var1 stud>temp  
   echo $record>>temp  
   var3=`wc -l < stud`  
   var2=`expr $var3 - $var `  
   tail -$var2 stud>>temp  
   cp temp stud  
    fi  
 ;;  
 6) echo " enter roll number "  
   read rn  
   echo "printing result "  
   grep ^$rn stud  
 ;;  
 7) ;;  
 * ) echo "enter right choice"  
 esac