Kezdőoldal » Számítástechnika » Programozás » Delphiben Eukledeszi algoritmu...

Delphiben Eukledeszi algoritmussal legnagyobb közös osztó. Hogyan?

Figyelt kérdés

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:)


2010. febr. 17. 22:27
 1/3 anonim ***** válasza:
Hát ha ezt nem tudod magadtól megcsinálni, akkor ne foglalkozz a programozással. Ez egy egyszerű feladat és csak logika kérdése, hogy a matek megoldó képletet átalakítsd. Kicsit segítek itt ha mutatsz valamit, hogy megpróbálod magadtól, vagy ha valahol elakadsz.
2010. febr. 18. 00:18
Hasznos számodra ez a válasz?
 2/3 anonim ***** válasza:
Na ennyi tellett? :D
2010. febr. 18. 12:40
Hasznos számodra ez a válasz?
 3/3 A kérdező kommentje:

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.

2010. febr. 18. 22:30

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

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!