Delphiben Eukledeszi algoritmussal legnagyobb közös osztó. Hogyan?
Egy olyan programot szeretnék, hogy 2 számot kell megadnom, rányomok a buttonra, és kiirja a legnagyobb közös osztót.
Tulajdonképp a segítség, ha valaki bemásolja az egészet...lehet nagy kérés :s de hátha:)
Oké, hát én próbálkoztam, először létrehoztam a formon a dolgokat, utána pedig onklikkre elkeztem írni a dolgot...:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Edit3: TEdit;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,l:integer;
begin
while i <> 0
do begin
j := k MOD i;
l := i MOD j;
k := j MOD l;
//egyszer végetér a ciklus,amikor már 0 lesz a maradék. akkor ezt kikéne irni edit3.text be.
end;
edit3.text:= //ide az eredmény, ami végül kijött
end;
end.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!