Lécci, Lécci tanícsatok meg programozni
-
DirtyPio #122 hello, volna egy kerdesem, irtam egy progit, alabb leirom a feladat szoveget is, es mindig azt a hibauzenetet kaom, hog ysyntax error, ; expected, but until found. Nem ertem hogy hova kell neki ';'.
na itt a progi:
program F30_42;
uses crt;
type matrix=array [1..50,1..50] of integer;
var i,j,n,r,fel,al,bal,job,vir:integer;
c:char;
f:text;
x:matrix;
begin
assign(f,'matrix.txt');
reset(f);
i:=0;
j:=0;
while not eof(f) do
begin
inc(i);
j:=0;
while not eoln(f) do
begin
inc(j);
read(f,x[i,j]);
end;
end;
n:=i;
repeat
for i:=1 to n do
for j:=1 to n do
begin
case x[i,j] of
0:begin
vir:=0;
fel:=0;
if i=1 then fel:=1;
if x[i-1+fel,j]<>0 then inc(vir);
al:=0;
if i=n then al:=1;
if x[i+1-al,j]<>0 then inc(vir);
bal:=0;
if j=1 then bal:=1;
if x[i,j-1+bal]<>0 then inc(vir);
job:=0;
if j=n then job:=1;
if x[i,j+1-job]<>0 then inc(vir);
if (vir>=2) and (vir<=3) then x[i,j]:=1;
end;
1:inc(x[i,j]);
2:inc(x[i,j]);
3:inc(x[i,j]);
4:x[i,j]:=0;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(x[i,j]:2);
end;
c:=readkey;
until c<>#27;
close(f);
end.
A feladat szovege a kovetkezo: