Pascal - master mind in pascal

edit by netarrow: sistemato il titolo

ciao a tutti....conoscete master mind?(spero si scriva così beh devo creare un cosa simile in pascal potreste aiutarmi??

le istruzioni sono: A) inserire 4 numeri interi < 9. e fino a qui B) inserire altri 4 numeri interi <9 confrontando 1 ad 1 la 2^ serie di numeri in modo che il pascal mi dica I) numeri giusti in posizione giusta e II) numeri giusti in posizione sbagliata.

spero abbiate capito....spero qualcuno ce la faccia entro mercoledì.....

e cosa non hai capito??

non ho capito bene come impostare il program......cioè non ho capito dove devo metter i cicli for, if.....cioè un' idea l'avrei ma, se mi potresti dire dove vanno messi i programmi entro stasera, poi lo elaboro io......

tipo na roba del genere andrebbe bene????


program Mastermind;

uses Crt;

var k,h,i,ps,pg,contatore: integer;

var a,b:array[1..4] of integer;

begin

repeat

writeln('inserisci quattro numeri <=9');

for i:=1 to 4 do

readln(a[i]);

until (a[1]>0)
and (a[2]>0)
and (a[3]>0)
and (a[4]>0)
and (a[1]<10)
and (a[2]<10)
and (a[3]<10)
and (a[4]<10);

repeat

repeat

writeln('inserisci 4 numeri in sequenza');

if contatore>=6 then

writeln('sbagliato')

else;

for i:=1 to 4 do

readln(b[i]);

until (b[1]>0)
and (b[2]>0)
and (b[3]>0)
and (b[4]>0)
and (b[1]<10)
and (b[2]<10)
and (b[3]<10)
and (b[4]<10);

ps:=0;
pg:=0;

for x:=1 to 4 do

begin

for y:=1 to 4 do

if a[x]=b[y] then

ps:=ps+1

else;

if a[x]=b[x] then

begin

ps:=ps-1;
pg:=pg+1;

end

else;

end;

contatore:=contatore + 1;

writeln('Numeri giusti al posto sbagliato:',ps);
writeln('Numeri giusti al posto giusto:', pg);

until (conta=10);
until (pg=4);

if conta=10 then

write('troppi tentativi,a[1],a[2],a[3],a[4])

else

write('Hai vinto, hai provato ',contatore);

writeln('possibilità');

end;

readln;

end.