Udv!
Sajnos nem jutok elore, iletve letolotttem a pascal 5.5-ot,
de nem megy a programozas. :-((
Tudnatok egy mintat kuldeni?
Legyen mondjuk ez a program vazlata:
valtozok:
a: lista elemeinek szama
b: osszeg
elso ciklus: lista elemeinek a bekerese
(csak pozitiv egesz szam lehet)
masodik ciklus: lista elemeinek sorba rendezese - csokkeno
sorrendben tarolva
harmadik ciklus: ellenorzes
feltetel: osszeg nagyobb-e a legnagyobb elemnel
ha nem: kovetkezo lista elem (ciklikus)
ha igen: aktualis szam beolvasas
lista eleje az aktualis szam -1
aktualis szam+1
ciklus indul
kovetkezo listelem hozzadas, eredmeny eltarolas
eredmeny listaba, valamint eredmeny-osszeg tarolasa is
ciklus vege
ellenorzes: ha eredmeny kisebb osszeg, akkor a kovetkezo
listaelemet is hozzaadja (nem csak ket szam osszege lehet)
aktualis szam leptetes (lista vegeig)
lista vege
negyedik ciklus
eredmenylista rendezese eredmeny-osszeg szerinti
sorrendbe
vege
Ez hogy nez ki - helyes szintaktikaval :-)) - pascalban?
Üdvözlettel:
Trautman Viktor
travik freemail hu
|
Udv!
Lehet, hogy az elobb osszekutyultam valamit, azt
akartam, hogy nemcsak ket elemet adhat ossze a
program, hanem mindazon osszeget, ami kisebb
a keresett osszegnel.
Inkabb irok egy konkret peldat:
egy 6 elemu lista csokkeno sorrendben:
150, 100, 80, 40, 20, 10
a keresett osszeg: 100
Ekkor a kovetkezo eredmenylista adodik:
(kulonbseg szerinti sorrendben)
osszeg kulonbseg
100 0
80+20 0
80+10 10
80 20
40+20+10 30
40+20 40
40+10 50
20+10 70
20 80
10 90
Üdvözlettel:
Trautman Viktor
travik freemail hu
|