Új hozzászólás Aktív témák

• #4194 d2zoli csendes tag

  Új Válasz 2009-12-09 22:10:14 #4194

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  d2zoli

  csendes tag

  sziasztok!

  Segítségre volna szükségem turbo pascalból:
  egy amőba programot írok, ami úgy néz ki, hogy egy 15x15 karakter típusú mátrixot csillagokkal töltöttem fel, és koordinátát kell megadni hogy M[x1,x2] csillagról Xre váltson stb, ez működik is, de ami nem megy, hogy a gép magától kiírja hogy 'NYERT' már nagyon sokat próbálkoztam

  if M[i,j]='X' then xc:=1;
  if M[i+1,j]='X' then xc:=xc+1; else xc:=0;
  if M[i,j+1]='X' then xc:=xc+1; else xc:=0;

  if M[i,j]='O' then oc:=1;
  if M[i+1,j]='O' then oc:=oc+1; else oc:=0;
  if M[i,j+1]='O' then oc:=oc+1; else oc:=0;

  ez volt az én alapötletem, aki tud kérem segítsen
  előre is köszönet

Új hozzászólás Aktív témák