[ anon676 @ 11.04.2002. 15:38 ] @
pomoc... Code: {Samo da napomenem da sam paskal naucio pre 2 dana...a pre toga sam znao c :) i jos uvek ga znam, tako da evo uvoda: Program treba da bude resenje sledeceg zadatka: Napisati program kojim se ispisuju sve mogucnosti da pri jednom bacanju tri kockice zbir brojeva bude dati broj S. NPR.: za S=5 sva resenja (bez ponavljanja) su 1,1,3 i 1,2,2 EH sada umoran sam previse da bih opisivao dizajn programa ali ko se imalo razume shvatice...poentu dARKmIND [[email protected]] } program kockica; uses Crt; type ia=array[1..6] of integer; ib=array[1..6] of integer; ic=array[1..6] of integer; var aa:ia; bb:ib; cc:ic; var kraj,na:shortint; var s,ss,r:0..15+3; a,b,c:integer; label pocetak; procedure nemanule(var a,b,c:integer); begin repeat if (a<=0) or (b<=0) or (c<=0) then Randomize; a:=random(6); b:=random(6); c:=random(6); until (a>0) and (b>0) and (c>0) and (a<=6) and (b<=6) and (c<=6); end; begin ClrScr; writeln('Uneti s='); readln(s); repeat if (s<3) or (s>18) or (s=0) then readln(s); until (s>=3) and (s<=18); repeat Randomize; a:=random(6); b:=random(6); c:=random(6); nemanule(a,b,c); r:=a+b+c; if (r=s) then a:=aa[na]; if (r=s) then b:=bb[na]; if (r=s) then c:=cc[na]; if (r=s) then writeln('Rezultat:',aa[na],' ',bb[na],' ',cc[na],' ',a,' ',b,' ',c); if (aa[na-1]=aa[na]) and (bb[na-1]=bb[na]) and (cc[na-1]=cc[na]) then na:=na-1 else na:=na+1; until kraj = 1; end. |