Pascal feladat

tomb, rendezed

Hova kell ez a bonyolult feladat? Általános iskola?

3 számra, nehéz az élet...;) Valami építő jellegű tippet is kapj, 2 számra tudsz-e ilyen functiont írni? (min, max kiválasztás)

Ha van egy megoldásod 2 számra pl. min(a,b), azzal hogyan oldanád meg a 3 számos esetet?

Bocs a cikizésért! Egy kis segítség:

Két számot hasonlíts össze, pl

if A > B then {utasítások jönnek ide, ha a feltétel igaz}
else {utasítások, ha a feltételed hamis};

Próbálgasd, ha megérted lépj tovább.

hogy kéne kiválasztani legkisebb és legnagyobb számot a generáltakból?

legkisebb:=elsogeneraltszam;
legnagyobb:=elsogeneraltszam;

Ciklussal végigmész a többi számon, s megvizsgálod őket:
-ha a legkisebb>epp_vizsgalt, akkor legkisebb=epp_vizsgalt
-ha a epp_vizsgalt>legnagyobb, akkor legnagyobb=epp_vizsgalt

nagyon reg volt mar pascal de emlekeim szerint van a math unitban min() meg max() azokkal mar nem nagy ugy kivalasztani :)

És ha nem tanultátok az if-et vagy nem érted:

min(a,b,c)=(a-sqrt((a - b)^2)+b-sqrt((a-sqrt((a - b)^2)+b-2*c)^2)+2*c)/4

persze négyzetre emelés és gyök helyett használhatsz abs-t is, de az csalás, mert abba túl egyértelműen bele van drótozva az "if". ;)

Nem hiszem, hogy ezt quicksort nélkül meg lehetne csináni... három szám közül a legnagyobb... húzós...


if a>b then begin
  max:= a;
  min:= b;
end else begin
  max:= b;
  min:= a;
end;
if c>max then max:=c;
else if c


var tarolo: integer;
szam :array[1..3] of integer;

begin
randomize;

{veletlanszem generalas}
szam[1] := random (100);
szam[2] := random (100);
szam[3] := random (100);

writeln ('A generalt szamok: ',szam[1],',',szam[2],',',szam[3]);

{min max kereses sorbarendezessel}

if szam[1] > szam[2] then begin tarolo:=szam[1]; szam[1]:=szam[2]; szam[2]:=tarolo; end;
if szam[1] > szam[3] then begin tarolo:=szam[1]; szam[1]:=szam[3]; szam[3]:=tarolo; end;
if szam[2] > szam[3] then begin tarolo:=szam[2]; szam[2]:=szam[3]; szam[3]:=tarolo; end;

writeln ('Legnagyobb szam: ',szam[3]);
writeln ('Legkisebb szam: ',szam[1]);

{harommal oszthato}

write('Harommal oszthato:');
for tarolo:=1 to 3 do
if (szam[tarolo] mod 3)=0 then write(szam[tarolo],',');

readln;
end.

Két okból írtam be egy lehetséges megoldás (a kód inkább egyszerű mint szép megoldás a könnyebb érthetőség végett):

1. Már vagy 6-7 éve nem láttam Pascalt egy kis nosztalgia :)
2. Én sokkal jobban szeretek egy megoldáson keresztül megérteni dolgokat pl ha megvan a megoldás átnézem majd egyedül is próbálom megirni magamtól és ha megy akkor értem. :D A ti módszeretek szerintem csak akkor célravezető ha ott ülsz mellette és próbálod rávezetni a megoldásra de nem így fórumon keresztül hogy 5 -en 8 félét magyaráztok :) de ha tévredek én kérek elnézést.

Ahamm. Ezt én is benéztem.

Az én házimat sosem oldották ennyien, nagyon irigy vagyok :D

(Na ezt a postot összevissza szerkesztgettem, de most már jó;)

szerk: Nem mégsem jó, de most már itt hagyom hátha valaki ki tudja dolgozni a forradalmi ötletet helyesen... :)

Nagyon unatkozom, úgyhogy előállok még egy megoldással, ami kicsit más :) :

Két véletlen számot generálunk csak, azonban olyan eloszlásban, ami megfelel a feladat követelményeinek. Tfh. az eredeti megoldásban 1-től n-ig generált 3db. véletlen egész számból választjuk ki min-t és max-ot. Ekkor ehelyett:

1. generáljunk véletlen egész számot 1 és (n+1)*n között
2. a fent generált számhoz keressük meg a legközelebbi négyzetszámot amit jelöljünk k-val
3. d := sqrt(k)-1
4. a := véletlenszám 1 és n-d között ([1;n-d] zárt.int.)
5. b := a+d

Ekkor "a"(minimum) és "b"(maximum) eloszlása tökéletesen olyan mintha azt 3 számból válogattuk volna! :)

Szerintem először is kell egy Pascalban írt PostgreSQL library. Kapcsolódni kell egy adatbázishoz, egy táblába bele kell tenni a 3 számot, aztán egy SELECT-tel megvan a min és max. Ennél egyszerűbben nem is jó.

--
joco voltam szevasz

Ez kb. olyan nehez, mint a HUP-regisztracio.

Azt melyik forumon oldottak meg...?