Turing

[Josh12345]

var x, y : int
var stream, data : int
var grid : array 1 .. 10, 1 .. 10 of int
var coord : array 1 .. 10, 1 .. 10 of int

open : stream, "Name of file.dat", get
for i : 1 .. 10
for ii : 1 .. 10
get : stream, data
coord (i, ii) := data
end for
end for
close : stream


for i : 1 .. 10
for ii : 1 .. 10

grid (i, ii) := 0
put grid (i, ii), " " ..
end for
put ""
end for
put ""

loop
put "Coordinates of a ship:"
put "x: " ..
get y
put "y: " ..
get x

if (coord (x, y) > 0) then
grid (x, y) := 2
cls
put "Hit!"
else
grid (x, y) := 3
cls
put "Miss."
end if
for i : 1 .. 10
for ii : 1 .. 10
put grid (i, ii), " " ..
end for
put ""
end for
put ""
end loop

 

[lynx6200]

why did you post this code?

 

[SFR]

It looks like battleship to me...