Meg tudnátok oldani nekem egy feladatot és leírni? (Turbo Pascalt használunk a suliban) A feladat lent.

Ezt leírhattad volna a kérdésbe is, minek csináljuk meg azt amivel te már készen vagy.

Eddig teljesen jó, az a:=a+1 -et az if(x>y) blokkba tedd, ez sztem nem túl bonyolult.

if x>y then

begin

write(.....);

a:=a+1;

end

else stb.

program kocka;

var egyik, masik, egyik_dob, masik_dob : byte;

begin

Randomize;

repeat

egyik_dob := Random(6) + 1;

masik_dob := Random(6) + 1;

WriteLn('egyik: ', egyik_dob, ' masik: ', masik_dob);

if Abs(egyik_dob - masik_dob) <> 0 then

begin

if egyik_dob > masik_dob then

begin

WriteLn('egyik nyert');

Inc(egyik);

end

else

begin

WriteLn('masik nyert');

Inc(masik);

end;

end

else WriteLn('dontetlen');

WriteLn('Allas: egyik:', egyik:2, ' masik', masik:2, #10#13);

until (egyik > 2) or (masik > 2);

if egyik < masik then WriteLn('masik nyert') else WriteLn('egyik nyert');

ReadLn;

end.

Na jó, de azért Kérdező is bemutathatta volna a maga megoldását...

Az enyém:

program kocka;

var

egyik, masik, egyikpont, masikpont, menet: word;

begin

randomize;

egyikpont:=0; masikpont:=0; menet:=1;

repeat

writeln(menet, '. MENET');

egyik:= random(6)+1; masik:= random(6)+1;

write('Egyik: ',egyik); writeln(' Másik: ',masik);

if egyik=masik then

writeln('Döntetlen.')

else

if egyik>masik then begin

inc(egyikpont);

writeln('Egyik győzött!');

end

else begin

inc(masikpont);

writeln('Másik győzött!');

end;

inc(menet); if menet>1000 then menet:=1;

writeln;

until (egyikpont>2) or (masikpont>2);

writeln('Vége a partinak. Pontszámok:');

writeln('Egyik: ', egyikpont, ' Másik: ', masikpont);

write('Az összesítésben győzött: ');

if egyikpont>masikpont then

writeln('EGYIK!')

else

writeln('MÁSIK!');

readln;

end.