Valaki segítene megcsinálni Pascalban? :S

Minek teszel szmájlit utána, akkor többen segítene?

Ez egy komplett érettségi feladat bemásolva, csak az évszámot írták talán át benne, mert régebbi. Te nem segítséget vársz, hanem hogy oldják meg helyetted. A segítségkérés az lenne, ha leírnád, mit csináltál, meddig jutottál el, hol akadtál el, mi a problémád.

Legalább annyi igényesség lenne benned, hogy rákeressél, mivel ez egy érettségi feladat, ezért megvan a megoldása is. De sokkal hasznosabb lenne számodra nekiülni megoldani, és amikor elakadtál, akkor rákeresni, és csak kicsit belelesni a megoldásba.

Ebből mi az ami nem megy? Lássuk mit kell tudnod hozzá:

-adatok bekérése ellenőrzéssel, hátultesztelő ciklussal (repeat..until), mindezt 5x (for)

-adatok rendezése (célszerű tömbben tárolni a bekért számokat), pl: buborékrendezés

-fájl megnyitása (és lezárása) hozzáfűzésre, egy sor hozzáfűzése a fájlhoz

-fájl megnyitása írásra, megfelelő sorának beolvasása

-string feldarabolása adott karakternél, string->szám konverzió

-az utolsóhoz: egy 90 elemű tömböt feltöltesz 0-val. Beolvasod a sorokat, felbontod a sorokat a számokra, és minden egyes szám sorszámú tömbelemet növelsz egyel (szamok[i]=szamok[i]+1) vagy csak simán 1 értéket adsz neki (a növelés egy esetleges későbbi feladathoz jöhet jól, ha meg is kell számolni melyik hánszor volt). Ha végigolvastad a fájlt (vagyis nem végig, mert beleírod az elején az 52. heti számokat!), csinálsz egy ciklust, amivel megvizsgálod, hogy a tömbben maradt-e 0. Ha maradt, akkor Van!, ha nem maradt, akkor Nincs! olyan szám, amit egyszer sem húztak ki.

Megírni nem fogom helyetted.

"string feldarabolása adott karakternél, string->szám konverzió"

Ez szerencsére nem kell, Pascalban közvetlenül lehet beolvasni a számokat readdel, a szóköz határolja őket. Nagyon nem mindegy, amikor kb. 90 perced van egy érettségire.

Nem teszteltem, próbáld ki:

program project1;

var

LottoFile : text;

vane : array[1..90] of boolean;

het52 : array[1..5] of byte;

i,j : byte;

tmp : byte;

sor : string;

begin

for i:=1 to 90 do

vane[i]:=false;

writeln('Kerem az 52. het 5 nyeroszamat:');

for i:=1 to 5 do

repeat

write(i,'. nyeroszam: ');

readln(het52[i]);

until het52[i] in [1..90];

for i:=1 to 4 do

for j:=i+1 to 5 do

if het52[i]>het52[j] then

begin

tmp:=het52[j];

het52[j]:=het52[i];

het52[i]:=tmp;

end;

Assign(LottoFile,'lottoszamok.txt');

{$i-}

Append(LottoFile);

{$i+}

If IOResult<>0 then

begin

writeln('A fájlt nem lehet megnyitni!');

halt(1);

end;

for i:=1 to 5 do

begin

write(LottoFile,het52[i]);

if i<>5 then write(LottoFile,' ');

end;

Close(LottoFile);

Reset(LottoFile);

for i:=1 to 52 do

begin

read(LottoFile,het52[i],het52[2],het52[3],het52[4],het52[5]);

for j:=1 to 5 do

vane[het52[j]]:=True;

end;

write('Hanyadik het nyeroszamaira kivancsi ? (1-51): ');

readln(j);

for i:=1 to j do

readln(LottoFile,sor);

writeln(sor);

Close(LottoFile);

tmp:=0;

for i:=1 to 90 do

if not vane[i] then tmp:=1;

if tmp=1 then writeln('Van')

else writeln('Nincs');

end.

Rühellem, amikor azt várják egyesek, hogy mások csinálják meg helyettük a programot ... majd ezek is utána programozóként árulják magukat a munkaerőpiacon.

Aki túl hülye hozzá, az ne ilyen iskolába menjen, illetve szépen menjen át ELTE meg hasonló gondolkodást nem, csak s.gget igénylő helyekre !!!

Sajnos igen sok Eltén végzett (tipikusan ELTE bölcsész) akivel dolgom akadt IT területen.

A legkevésbé sértő amit mondani tudnék rájuk úgy cuzámmen: használhatatlanok.

A szakmához nem értenek, problémamegoldó képesség és kreativitás nuku.

És sajnos nem 1, meg nem 10 alapján átlagoltam.