Megírná valaki a lenti programot?

5000 forint.

Privátban küldöm a számlaszámot.

Egy rövid pszeudokód algoritmussal szolgálok, ezt nyugodtan finomítsd (hibaellenőrzés stb.) és fordítsd le Lazarusra. Ennyiből meg kell tudd csinálni, ha szándékodban áll átmenni, mert felteszem, iskolába kell. Ha nem, és csak nagyon érdekel két szám legnagyobb közös osztója, akkor Google illetve WolframAlpha. Sajnos bekezdések nem nagyon jönnek ki jól a fórumon, de tettem helyette pontokat.

Bekér(első szám)

Bekér(második szám)

lnk = 1

kitörni = hamis

ismételd

...ha (első szám % lnk == 0) ÉS (második szám % lnk == 0)

......lnk = lnk + 1

...másképp

......kitörni = igaz

...ha vége

amíg kitörni == hamis

amíg vége

kiír(lnk - 1)

program vége

"Semmilyen szakra nem járok, egyszerűen szükségem van rá..."

Nekem meg egy új pár cipőre lenne szükségem.

5000 Ft, számlaszámot privátban küldök.

Alapalgoritmus:

[link]

Ügyelj vele, most veszem észre benne a szarvashibát (így jár az, aki egy napi bútorhordás után áll neki algoritmusokat írogatni).

A ciklus így kéne kinézzem, persze előtte egy elágazással meghatározod a nagyobb számot:

ciklus i=1-től kisebb szám-ig

...ha első szám % i == 0 ÉS második szám % i == 0

......lnk = i

...ha vége

ciklus vége

kiír(lnk)

Nem mondok inkább semmit :(

function lnko (a, b : integer) : integer;

var tmp : integer;

begin

while b > 0 do

begin

tmp := b;

b := a mod b;

a := tmp;

end;

lnko := a;

end;