free pascall error

Na sveiki visi kas nusimanot apie programavima.

Dariaus viena 2010 pavizdine IT praktine egzamino uzduoti. Mazdaug viska pasidariau ir pabandziau pratestuoti ir meta nesamoninga errora syntax error,; expected but found else. As nelabai suprantu kurioi vietoi klaida padariau.

Taigi tikiuos padesit numetu koda ir laukiu atsakymu.

program Noname4;
var
duota:text;
n,m,j,i,k,x,temp:integer;
linaz:array[1..500] of integer;
jurgisz:array[1..500] of integer;
linak:array[1..500] of integer;
jurgisk:array[1..500] of integer;
list:array[1..500] of integer;
flist:array[1..500] of integer;

begin
////////////////////////////nuskaitymas/////////////////////////////////////////
assign(duota,'u1.txt');
reset(duota);
read(duota,n);
read(duota,m);
j:=1;
	for i:=1 to n do
		begin
			read(duota,linaz[j]);
			j:=j+1;
		end;
j:=1;
	for i:=1 to m do
		begin
			read(duota,jurgisz[j]);
			j:=j+1;
		end;
close(duota);
////////////////////////////patikrinimas////////////////////////////////////////
if (n>=1) and (n<=500) and (m>=1) and (m<=500) then
//////////////////////////////masyvo rikiavimas/////////////////////////////////
j:=2;
k:=1;
	for i:=1 to n do
		for i:=1 to n do
			begin
				if linaz[i]>linaz[j] then
					begin
						temp:=linaz[k];
						linaz[k]:=linaz[j];
						linaz[j]:=temp;
						j:=j+1;
						k:=k+1;
					end;
////////////////////////////////
j:=2;
k:=1;
	for i:=1 to n do
		for i:=1 to n do
			begin
				if jurgisz[i]>jurgisz[j] then
					begin
						temp:=jurgisz[k];
						jurgisz[k]:=jurgisz[j];
						jurgisz[j]:=temp;
						j:=j+1;
						k:=k+1;
					end;
////////////////////////////////randama kuom keisis/////////////////////////////
k:=1;
j:=1;
x:=1;
for i:=1 to n do
	j:=j+1;
	for i:=1 to m do
		begin
			k:=k+1;
			if linaz[j]=jurgisz[k] then
				begin
					linak[x]:=linaz[j];
					x:=x+1;
				end;


		end;
////////////////////////////////randama kuom keisis/////////////////////////////
k:=1;
j:=1;
x:=1;
for i:=1 to n do
	j:=j+1;
	for i:=1 to m do
		begin
			k:=k+1;
			if jurgisz[j]=linaz[k] then
				begin
					jurgisk[x]:=jurgisz[j];
					x:=x+1;
				end;


		end;
////////////////////////////////sudaromas kolekcijos sarasas////////////////////
j:=1;
	for i:=1 to n do
		begin
			list[j]:=linaz[j];
			j:=j+1;
		end;
///////////////////////
j:=n+1;
	for i:=1 to m do
		begin
			list[j]:=jurgisz[j];
			j:=j+1;
		end;
//////////////////////////////surykiuojamas saraso masyvas//////////////////////
j:=2;
k:=1;
	for i:=1 to n do
		for i:=1 to n do
			begin
				if list[i]>list[j] then
					begin
						temp:=list[k];
						list[k]:=list[j];
						list[j]:=temp;
						j:=j+1;
						k:=k+1;
					end;
/////////////////////////////ismetami pasikartojantys skaiciai//////////////////
j:=1;
k:=1;
x:=0;
x:=n+m;
	for i:=1 to x do
		begin
			if list[j]<list[k] then
				begin
					flist[j]:=list[j];
				end;
		end;
////////////////////////////////////////////////////////////////////////////////
else writeln('neteisingai duoti duomenys');
 Readln;
end.

Perziurek paskutines eilutes, atrodo ten klaida yra paskutiniam salyginiam sakinyje.

Beje kiek laiko rasei programa ?

15min gal nz

Pačioj pabaigoj, prieš else, po end, ";" nutrink

tapati meta

tapati meta

flist[j]:=list[j]

else writeln('neteisingai duoti duomenys');

end;

end;

////////////////////////////////////////////////////////////////////////////////

Readln;

end.

o taip?

tapati meta

pabandyk parašyt visą kodą normaliai, t.y. tarp tag'ų [ code] ir [ /code] bus lengviau atrast

bash time tavo varijantas man neveike.

artee padariau kaip sakei

kurioje eiluteje rodo klaida?

Beje galetum imesti archyva su kodu ir testiniais duomenimis

u1.rar

o klaida 135 eiluteje.

u1.rar

o klaida 135 eiluteje.

Po if (n>=1) and (n<=500) and (m>=1) and (m<=500) then lyg ir reikėjo begin parašyti. Ir šiaip, vietom yra begin, bet end; nėra.

++ Rezultatą spausdina TIK jeigu sąlygos neatitinka

P.S.

program Noname4;
var
duota:text;
n,m,j,i,k,x,temp:integer;
linaz:array[1..500] of integer;
jurgisz:array[1..500] of integer;
linak:array[1..500] of integer;
jurgisk:array[1..500] of integer;
list:array[1..500] of integer;
flist:array[1..500] of integer;

begin
////////////////////////////nuskaitymas/////////////////////////////////////////
assign(duota,'u1.txt');
reset(duota);
read(duota,n);
read(duota,m);
j:=1;
	for i:=1 to n do
		begin
			read(duota,linaz[j]);
			j:=j+1;
		end;
j:=1;
	for i:=1 to m do
		begin
			read(duota,jurgisz[j]);
			j:=j+1;
		end;
close(duota);
////////////////////////////patikrinimas////////////////////////////////////////
if (n>=1) and (n<=500) and (m>=1) and (m<=500) then
  begin
//////////////////////////////masyvo rikiavimas/////////////////////////////////
j:=2;
k:=1;
	for i:=1 to n do
		for i:=1 to n do
			begin
				if linaz[i]>linaz[j] then
					begin
						temp:=linaz[k];
						linaz[k]:=linaz[j];
						linaz[j]:=temp;
						j:=j+1;
						k:=k+1;
					end;
			end;
////////////////////////////////
j:=2;
k:=1;
	for i:=1 to n do
		for i:=1 to n do
			begin
				if jurgisz[i]>jurgisz[j] then
					begin
						temp:=jurgisz[k];
						jurgisz[k]:=jurgisz[j];
						jurgisz[j]:=temp;
						j:=j+1;
						k:=k+1;
					end;
			end;
////////////////////////////////randama kuom keisis/////////////////////////////
k:=1;
j:=1;
x:=1;
for i:=1 to n do
	j:=j+1;
	for i:=1 to m do
		begin
			k:=k+1;
			if linaz[j]=jurgisz[k] then
				begin
					linak[x]:=linaz[j];
					x:=x+1;
				end;
		end;
////////////////////////////////randama kuom keisis/////////////////////////////
k:=1;
j:=1;
x:=1;
for i:=1 to n do
	j:=j+1;
	for i:=1 to m do
		begin
			k:=k+1;
			if jurgisz[j]=linaz[k] then
				begin
					jurgisk[x]:=jurgisz[j];
					x:=x+1;
				end;
		end;
////////////////////////////////sudaromas kolekcijos sarasas////////////////////
j:=1;
	for i:=1 to n do
		begin
			list[j]:=linaz[j];
			j:=j+1;
		end;
///////////////////////
j:=n+1;
	for i:=1 to m do
		begin
			list[j]:=jurgisz[j];
			j:=j+1;
		end;
//////////////////////////////surykiuojamas saraso masyvas//////////////////////
j:=2;
k:=1;
	for i:=1 to n do
		for i:=1 to n do
			begin
				if list[i]>list[j] then
					begin
						temp:=list[k];
						list[k]:=list[j];
						list[j]:=temp;
						j:=j+1;
						k:=k+1;
					end;
			end;
/////////////////////////////ismetami pasikartojantys skaiciai//////////////////
j:=1;
k:=1;
x:=0;
x:=n+m;
	for i:=1 to x do
		begin
			if list[j]<list[k] then
				begin
					flist[j]:=list[j];
				end;
		end;
  end
////////////////////////////////////////////////////////////////////////////////
else writeln('neteisingai duoti duomenys');
 Readln;
end.

Kai parašau taip, tada lyg ir susikompiliuoja, bet kadangi duomenų failas tuščias tai meta blogą skaičiaus formatą.

Labai dekuj :)