Matkönyv megjelenítő főoldalProgramraktár főoldalModulok listájaDeklarációindexKategóriák gcd

Programraktár példa: gcd_example a következő modulhoz: gcd

Két szám legnagyobb közös osztóját előállítja azok egészegyütthatós kombinációjaként, és kiírja a legnagyobb közös osztót is.

Letöltés

FPgcd_example.pas
TPgcd_example.pas

Ismertető

Bekér két egész számot, a-t és b-t, amik Turbo Pascal esetén a longint, Free Pascal esetén az int64 típus mérettartományába esnek. Előállítja azt az egész c-t és d-t, amelyekre c*a+d*b=(a;b), és kiírja a talált kombinációt, és a legnagyobb közös osztót.

Telepítési utasítások

Turbo Pascal, DOS:
tpc gcd_e.pas
gcd_e.exe

vagy
turbo gcd_e.pas
, majd Run/Run a futtatáshoz, Window/User Screen az eredmény megtekintéséhez.

Free Pascal:
fpc gcd_example.pas
Futtatás Unix-szerű rendszeren:
./gcd_example
Futtatás Windowson:
gcd_example.exe