Numero Par, Primos E sorteados.

[Jhony ZaM 1]

Ae galera beleza to com pouco tempo mais fiquei uma hora sem nada pra fase resolvi criar esse utilitariosinho pra iniciantes espero que gostem.

 

Ah vo copia o codigo todo aki pois nao to com muita paciencia abraco a todos.

 

unit TestePrimos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, dxGDIPlusClasses,Math;

type
  TForm1 = class(TForm)
    edtTeste: TEdit;
    btnPrimos: TButton;
    btnPar: TBitBtn;
    btnSortei: TBitBtn;
    edtTeste2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    procedure btnPrimosClick(Sender: TObject);
    procedure btnParClick(Sender: TObject);
    procedure btnSorteiClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  lista: TStringList;
implementation

{$R *.dfm}

//SORTEIO DE NUMEROS
procedure TForm1.btnSorteiClick(Sender: TObject);
var
  R: Integer;
begin
   Randomize;
   R:= RandomRange((StrToInt(edtTeste.Text)),(StrToInt(edtTeste2.Text)));
   ShowMessage(IntToStr(R));
end;

//HELP
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ShowMessage('As Funções de numero par e numero primo utilizam apenas o primeiro campo,'+
              'ja a funçcão de sorteio utiliza os dois campos para faser uma variação de resultado ');
end;
//PAR OU IMPAR
procedure TForm1.btnParClick(Sender: TObject);
var
  Testa: integer;
begin
   Testa:= StrToInt(edtTeste.Text);

  if Testa mod 2 = 0 then //Se ele for divisor de 2 é par se nao é impar
    ShowMessage('É par')
  else
    ShowMessage('É Impar');

end;
//NUMEROS PRIMOS
procedure TForm1.btnPrimosClick(Sender: TObject);
var
  Primo, Numero: integer;
  Resultado    : real;
  Testar       : boolean;
begin
  Lista  := TStringList.Create;
  Lista.Clear;
  Primo  := StrToInt(edtTeste.Text);
  numero := 1;
  Testar := False;
  lista.Add(IntToStr(numero)); // add numero 1 no StringList

  if Primo = 1 then
     Testar:= False
  else
  while Numero < (primo - 1) do begin
   numero := numero + 1;
   resultado:= primo / numero;
   if Frac(resultado) = 0.00 then begin
    lista.Add(IntToStr(numero));
    testar:= true;
   end;
  end;

  if primo > 1 then
     lista.Add(IntToStr(numero + 1));// add ultimo numero no StringList

   if Testar = False then begin
    ShowMessage('Número é primo');
    ShowMessage(lista.Text);
   end;

   if Testar = True then Begin
    ShowMessage('Número não é primo');
    ShowMessage(lista.Text);
   End;
end;


end.

[Matheus Brito 12]

Muito legal jhony da sua parte.

Abs