Interested to Buy Any Domain ? << Click Here >> for more details...
write a script to generate n prime no.s?
- 2 Answers
- 13557 Views
- Persistent, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / venkat
#!c:\perl\bin\perl
$Count = 0;
$pt = 2;
while ( $Count < @ARGV[0] )
{
if (isPrimary($pt))
{
print "$pt\n";
$Count++;
}
$pt++;
}
sub isPrimary
{
$flag = 1;
for ($i=2; $i<=$_[0]/2; $i++)
{
if ($_[0] % $i == 0)
{
$flag = 0;
}
}
return $flag;
}
| Is This Answer Correct ? | 16 Yes | 4 No |
Answer / dushant
import java.io.*;
import java.util.*;
class Prime
{
static BufferedReader br = new BufferedReader(new
InputStreamReader(System.in));
int cnt = 0,j;
Prime()
{
try
{
System.out.print("Enter A Number :");
int n = Integer.parseInt(br.readLine());
for(int i =1 ;i <= n ;i++)
{
for( j = 1 ; j <= i ;j++)
{
if(j==1) //as 1 is Common Factor For
All
{
cnt ++;
}
if(i % j == 0 && j !=i) //Condition j!=i because at
1st loop
//i=1 j=1 so i%j==0 and 1 is not prime no
{
cnt ++;
}
if(cnt == 3)
{
break;
}
if(cnt==2 && i == j )
{
System.out.println(i);
}
}
cnt=0;
}
}
catch(Exception e)
{
System.out.println(e);
}
}
public static void main(String args[])
{
new Prime();
}
}
| Is This Answer Correct ? | 7 Yes | 3 No |
Why should I use the -w argument with my Perl programs?
What are the logical operators used for small scale operations? Explain them briefly.
What are stdin, stdout and stderr?
In Perl, there are some arguments that are used frequently. What are that arguments and what do they mean?
Why do you use Perl?
How interpreter is used in perl?
What purpose does each of the following serve: -w, strict, - T ?
Show the use of sockets for the server and client side of a conversation?
Explain perl. What are the advantages of programming in perl?
How do I sort a hash by the hash key?
Write a script to reverse a string without using perl's built in functions?
What is the purpose of redo statement?
ASP 
