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

• #999 nori csendes tag

  Új Válasz 2006-03-09 16:01:45 #999

  Ú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

  

  nori

  csendes tag

  ez az alap ezt kéne tovább vnni ezért köszi
  
  program torpedos;
  const maxn=10;
  type tomb=array[1..maxn] of integer;
  matrix=array[1..maxn] of tomb;
  sztomb=array[1..10] of string;
  szmatrix=array[1..10] of sztomb;
  var tabla:matrix;
  sztabla:szmatrix;
  
  procedure beolvas(var tabla:matrix);
  var i,j:integer;
  begin
  for i:=1 to 10 do
  for j:=1 to 10 do tabla[j]:=0;
  tabla[4][2]:=1;
  tabla[6][2]:=2;
  tabla[6][3]:=2;
  tabla[3][5]:=3;
  tabla[4][5]:=3;
  tabla[5][5]:=3;
  end;
  
  procedure tablakirajzolas(sztabla:szmatrix);
  var i,j:integer;
  begin
  write(' ');
  for i:=1 to 10 do write(' ', i,' ');
  writeln;
  for i:=1 to 10 do
  begin
  writeln;
  writeln(i);
  for j:=1 to 10 do write (' ',sztabla[j]);
  end;
  
  end;
  
  procedure torpedo(var tabla:matrix; var sztabla:szmatrix);
  var i,o,s:integer; nyerteme:integer;
  begin
  i:=1; nyerteme:=0;
  while (nyerteme<3) and (i<=100) do
  begin
  tablakirajzolas(sztabla);
  writeln;
  writeln('Kérem az oszlopindexet');
  readln (o);
  writeln('Kérem a sorrendet');
  readln (s);
  if tabla[o][s]>0 then
  begin
  writeln('TALÁLT') ;
  nyerteme:=nyerteme+1;
  sztabla[o][s]:='T';
  
  end
  else begin
  writeln ('NEM TALÁLT');
  sztabla[o][s]:='~';
  end;
  if nyerteme=3 then write('GRATULÁLOK',i,' lépésből nyert');
  i:=i+1;
  end;
  end;
  
  begin
  beolvas(tabla);
  torpedo(tabla,sztabla);
  readln;
  end.
  

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