Debe estar conectado para participar
Buscar en los foros:


 






Uso de Comodín:
*    coincide cualquier número de caracteres
%    coincide exactamente un caracter

problema de compilacion en pascal

No hay Etiquetas
Entrada
Midle End Level

Nagash

entradas: 171

14:08 28/08/2007

1

bueno… este es un programita que escribe en una matriz los numeros del 1 al 100 y marca de otro color los primos… supuestamente hace eso, pero no lo puedo probar porque me tira un error de compilacion y no se como solucionarlo… les dejo el programita, desde ya gracias

program mat;
uses crt;

type
matriz=array[1..20,1..20]of integer;
var
m:matriz;
i,j,k,l,n,resto:integer;

function primo(mat:matriz):boolean;
var
d,i,j:integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
d:= 2;
primo:= true;
while primo and (d<m[i,j]) do
begin
if (m[i,j] mod d = 0) then
begin
primo:= false;
d:= d + 1;
end;
end;
end;
end;

begin
clrscr;
n:=0;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
m[i,j]:=n+j;
if primo(m) then
begin
textcolor(123);
write(m[i,j],' ');
end
else
begin
textcolor(12);
write(m[i,j],' ');
end;
end;
n:=n+10;
writeln;
end;
end.

Hardcore Extreme Level

jose_073

entradas: 4258

20:07 28/08/2007

2

Tenés un problema en los bloques begin/end. Fijate bien si no te sobra o falta alguno.

Saludos

Miss you: AMD Athlon 4200@2800 1.2v – Biostar TForce 7050 – OCZ Gold 800 CL3 – XFX 9600GT
Midle End Level

Nagash

entradas: 171

23:02 28/08/2007

3

en los begin y end me fije mil veces… pero , para mi, estan bien… me voy a fijar de nuevo… de ultima le pregunto a mi profesor, recien el jueves tengo clases….
gracias

Extreme Level

Xypper

entradas: 2787

23:20 28/08/2007

4

Te falta el end de la función "primo".