Pascal SOS

Fórumok

Pascal SOS

Hozzászólások

Egy sos kérdésem lenne nekem is:

Egy N résztvevőjű kutya -szépségversenyen M különbözö szempont szerint pontoznak minden kutyát. Az eredményeket a KUTYA(N,M) mátrix tartalmazza. Minden szempont alapján maximum MAX(I) pontot adhatnak (a pontszámok nem negativ egész számok lehetnek, 1<=I<=M). A versenyből automatikusan kiesik az a kutya amelyik valamely kategoriában nem éri el az also ponthatárt ( ALSO(I), 1<=I<=M ). Adjuk meg azokat a kategoriákat, melyekben legalább 2 kutya éri el a maxumális pontot…

ezen a programon görcsölünk már 4 órája, ha valki segítene benne nagyon megköszönném

Egy feladat (program) elkeszitese soran, ha egy egesz feladatot nem ertessz, probalj meg mindig azokra a reszekre koncentralni, ami mar vilagos. Vagyis indulj el azokbol mozaikdarabkakbol, amelyeket mar el tudnal helyezni. Fogalmazd meg eloszor ures fuggvenyekben eljarasokban az egyes reszleteket, majd egyenkent dolgozd ki oket. Ahogy haladsz es minnel tobb reszletet lekodolsz, annal vilagosabba valik a kovetkezo teendo. Vagyis menet kozben meg fogod erteni a feladatot. :-)

Nagy vonalakban:
1. letrehozol egy matrix tombot pl.: kutya(n ,m) es felveszel ket konstanst n es m neven, melyeket definialsz elore a konstans definicios blokkban. Egyik lesz a kutyak maximalis szama, a masik a kategoriak szama.
2. keszitsd el az inicializacios reszeket (celszeru kulon eljarasban, pl: procedure init;)
3. letrehozol egy ures fugvenyt (egyenlore csak begin-end) pl.: function max(I): byte; neven
4. felveszel egy masodik tombot is (egydimenzios) es feltoltod 1-tol m-ig azokkal az ertekekkel, amelyeket az egyes kaegoriakhoz akarsz hozzarendelni, maximalis pontszamnak. (Pl: kategoriak_max(I), elso eleme az elso kategoria maximalis ponterteke, a masodik a masodike, stb. egeszen m-ig)
5. inicializalod a tombot a megfelelo kategoriankenti ponthatarokkal
6. a function max(I); fuggvenyedbe a begin end koze pedig beteszel egy result := kategoriak_max(I); es visszater az I-ben megadott kategoria max ertekevel.
7. letrehozod a az also(I): byte; fuggvenyt, csinalsz benne egy for ciklust, ami vegigszkenneli a kutyusok matrix tombjet es osszeveti a kategoriak_max(I)-szal, majd kigyujtod egy negyedik tombbe azokat a kategoriakat amelyeknel legalabb ket kutyesz elerte a a max(i)-t.
8. kiirogatod a kepernyore az eredmenyeket
9. ennyi

sok sikert hozza :-)

---------------------
Ригидус а бетегадьбол

Van egy vektorom, amelyben Viktor nem érte el a maximális pontszámot, mit lehet tenni...?

Tudom, hogy snassz ilyenért új témát indítani, de ilyen lámer topic,
ami ehhez kéne nem volt. :oops:

Két alap Pascal feladat megoldásában kérném a segítségeteket:

1. A személyi nyilvántartásban kódolják, ki hány éve dolgozik a vállalatnál.
Ha a kód "1", akkor nem régebben, mint 3 éve, ha a kód "2", akkor nem régebben, mint 6 éve, és így tovább.
A vállalatnál 15 dolgozó dolgozik. Számoljuk meg, hány dolgozó van legalább 6 éve a vállalatnál!

2. Adott az A(N) vektor és a P érték. Állapítsuk meg a P -nél kisebb elemeinek számát!

Előre is köszönöm a segítséget!

[quote:5fc0a2be20="smica"]Tudom, hogy snassz ilyenért új témát indítani, de ilyen lámer topic,
ami ehhez kéne nem volt. :oops:

Két alap Pascal feladat megoldásában kérném a segítségeteket:

1. A személyi nyilvántartásban kódolják, ki hány éve dolgozik a vállalatnál.
Ha a kód "1", akkor nem régebben, mint 3 éve, ha a kód "2", akkor nem régebben, mint 6 éve, és így tovább.
A vállalatnál 15 dolgozó dolgozik. Számoljuk meg, hány dolgozó van legalább 6 éve a vállalatnál!

2. Adott az A(N) vektor és a P érték. Állapítsuk meg a P -nél kisebb elemeinek számát!

Előre is köszönöm a segítséget!

Bameg! Most mi oldjuk meg a sz/ar hazidat??? Van egyeb sokkal erdekesebb kodolasi otletem...

Zsiraf
:lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol: :lol:

Ez nem a házim. :)
Más kért tőlem segítséget, én meg hozzátok fordultam.

[quote:55a03bc41f="smica"]Ez nem a házim. :)
Más kért tőlem segítséget, én meg hozzátok fordultam.

Khiraly!! Igazi 3th party hazimegoldas....

Zsiraf

Hi!

Ezek eleg gagyi feladatok, de azert segitek. A kod nem biztos, hogy jo; fejbol irom:

1.:

Ha jol ertelmeztem, akkor azokat kell megszamolni, ahol a kod legalabb 2.

[code:1:b6564d504d]
kod array[15] of integer;
i,j integer;

begin
j:=0;
for i:=1 to 15 do
begin
if (kod[i]>=2) then {inc(j);}
end;
writeln(j);
end.
[/code:1:b6564d504d]

2.:
[code:1:b6564d504d]
a array[20] of integer;
i,j integer;
n:=20;
p:=10;

begin
j:=0;
for i:=1 to n do
begin
if (p>a[i]) then {inc(j)};
end;
writeln(i);
end.
[/code:1:b6564d504d]

A szintaxis lehet, hogy hibas, nagyon renen nem pascaloztam mar.

By(t)e
TBS::Antiemes

Szerintem mindkét feladat egy iteráció, ami a vektoron végig lépked. Az iteráció előtt egy, vagy ahány feltétel szerint csoportosítasz, annyi darab segédváltozót deklarálsz és inicialzálsz nullával. (Definiálsz) Ez(ek) a segédváltozó(k) számolhatja(ák) meg, hogy hány darab vektorelem felel meg az adott feltétel(ek)nek. Az eredmény is e(zek)ben képződik. Ezek után kell az algoritmus is? Kódot nemtok adni, csak ha utána nézek a pascal szintaktikának.

[quote:3f4a5b09bb="antiemes"]
2.:
[code:1:3f4a5b09bb]
a array[20] of integer;
i,j integer;
n:=20;
p:=10;

begin
j:=0;
for i:=1 to n do
begin
if (p>a[i]) then {inc(j)};
end;
writeln(i);
end.
[/code:1:3f4a5b09bb]

A szintaxis lehet, hogy hibas, nagyon renen nem pascaloztam mar.

writeln(i); helyett: writeln(j);
és az inc(j) sem itt, sem az 1.nél nem kell {} közé
egyébként jó!

Ezt nem értem:

1: Minek válalsz el egy programozás házit, ha nem tudsz programozni?
2: Minek válalsz el egy házit? A házik nem azért vannak, hogy mások csinálják meg, hanem az elmélet, illetve a gyakorlat megértése miatt. Ha szegény gyerek egy ennyit nem tud megcsinálni, nem érdemes bajlódni vele. Mi lesz akkor, ha programozni kell?
3: Mennyit fizetsz a megoldásokért?

Morzel