do...while en java

//PROGRAMA QUE DETERMINA SI UN NUMERO ES PRIMO
import javax.swing.JOptionPane;


public class Ejercicio10

{

public static void main(String[]args)

{

//variables

String num;

int n,d,r;

//leer

num=JOptionPane.showInputDialog("Ingrese Numero");

n=Integer.parseInt(num);

d=2;

//Proceso

do

{

r=n%d;

d=d+1;

}

while(d*d<=n && r!=0);

//Escribir

if(r==0)
JOptionPane.showMessageDialog(null,"El Número no es Primo");
else
JOptionPane.showMessageDialog(null,"El Número es Primo");

}

 }

Comentarios

Publicar un comentario

Entradas populares

Ejercicios Consola Visual Basic.NET

Module Module1 Sub Bienvenida() 'Programa que muestra un MENSAJE, almacenado en una VARIABLE Dim MEN As String 'VARIABLE MEN = "Bienvenidos al Microsoft Visual Studio.net 2008" Console.Write(MEN) Console.Read() End Sub Sub Mensaje() 'Programa que muestra MENSAJE, almacenado en una VARIABLE Dim Mens As String 'VARIABLE Mens = "Desarrollando aplicaciones en consola.net" Console.WriteLine(Mens) Console.Read() End Sub Sub Mensaje_vertical() 'Programa que muestra MENSAJE en forma VERTICAL, almacenado en una VARIABLE Dim MV As String 'VARIABLE MV = "Desarrollando aplicaciones en MS Visual Basic.net" Console.WriteLine(MV) Console.WriteLine(MV) Console.WriteLine(MV) Console.Read() End Sub Sub Sumar() 'Programa que SUMA 2 numeros enteros, solo con variables Dim n1, n2, S As Integer 'VARIABLES REM LEER n1 = Console.ReadLine n2 = Console.ReadLine REM PROCESO S = n1 + n2 REM ESCRIBIR Console.WriteLine...
Leer más

Numero Capicua Visual Basic

Obtener Numero Capicua de 3 Cifras en VISUAL BASIC 2010         Dim num, uni, aux, dec, cen As Integer         Dim rpta As String         Console.Write("Ingrese Numero de 3 Cifras:")         num = Console.ReadLine         If num >= 100 And num <= 999 Then             cen = num \ 100             aux = num Mod 100             dec = aux \ 10             uni = aux Mod 10             If cen = uni Then                 rpta = "Numero es Capicua"             Else                 rpta = "Numero no es Capicua"             End If         Else         ...
Leer más

Procedimientos Almacenados ORACLE

EJEMPLOS DE INSERTAR CON PROCEDIMIENTOS ALMACENADOS ORACLE 11G /*creacion de la tabla*/ create table clientes( idcliente varchar2(5)primary key, nombres varchar2(55), apellidos varchar2(55), dni varchar2(8) ); /*creacion del procedimiento almacenado*/ CREATE OR REPLACE PROCEDURE pa_grabar(id IN varchar2, nom IN varchar2, ape IN varchar2, dni IN varchar2) AS BEGIN INSERT INTO clientes VALUES(id,nom,ape,dni); END; /*ejecutar el procedimiento almacenado*/ EXECUTE pa_grabar('C0010','Juan','Perez Rios', '12345678');
Leer más