elibam | |
| 2006-08-03 22:51 - Respuestas: 3 - Tema nº: 2418211
Al final de todo en (end.) me aparece el siguiente error: error 85: " ; " expected y luego en el procedure "puntuacio" creo que me hace falta poner otro end pero no me deja ponerlo, quizas es por esto, espero q alguien pueda ayudarme porque estoy desesperada!! Gracias de antemano!
program sequencies_adn;
uses crt;
const
Esc=#27;
h=8;
s=9;
type
vector=array[1..h]of char;
matriu=array[1..s,1..s]of char;
matriu2=array[1..h,1..h]of integer;
var
comb_possibles,long_seq1,long_seq2,i,j:integer;
f:char;
Q,R:vector;
TC0:matriu;
DT1:matriu2;
function combinacions(x,y:integer):integer;
var
c,d,e:integer;
begin
if (x=0) and (y0) then
begin
combinacions:=1;
end else
if (y=0) and (x0) then
begin
combinacions:=1;
end else
if (x=0) and (y=0) then
begin
combinacions:=0;
end else
begin
c:=combinacions(x-1,y);
d:=combinacions(x-1,y-1);
e:=combinacions(x,y-1);
combinacions:=c+d+e;
end;
end;
procedure omplir_taula_vector(var L:vector);
begin
for i:=1 to 8 do
begin
L[i]:=' ';
end;
end;
procedure longitud_sequencies(var long:integer;var P:vector);
var
z:string;
begin
readln(z);
long:=length(z);
if long7) or (long_seq2>7) then
begin
if (long_seq1>7) and (long_seq27) and (long_seq17) and (long_seq2>7) then
begin
writeln;
writeln('- Les dues sequencies tenen una longitud major a 7');
end;
end;
procedure omplir_taula_espais(var TCC:matriu);
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
TCC[i,j]:=' ';
end;
end;
end;
procedure omplir_taula_zero(var T:matriu2);
begin
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
T[i,j]:=0;
end;
end;
end;
procedure omplir_matriu(var TC:matriu);
begin
omplir_taula_espais(TC);
i:=1;
for j:=2 to (long_seq1+1) do
begin
TC[i,j]:=Q[j-1];
end;
j:=1;
for i:=2 to (long_seq2+1) do
begin
TC[i,j]:=R[i-1];
end;
end;
procedure puntuacio(var TD1:matriu2);
begin
omplir_taula_zero(TD1);
j:=3;
while j | |
|
|
almalasi | |
|
Re: Ayuda con Turbo Pascal - 2006-08-04 11:15 - Respuesta 2
Revisa los end del procedure Puntuacion_Global. Creo q te falta uno. | |
|
|
almalasi | |
|
Re: Ayuda con Turbo Pascal - 2006-08-04 11:17 - Respuesta 3
Un consejo. Para mayor claridad en los programas te aconsejo que los anides. Tal como lo has pasado es bastante dificil de revisar y localizar un error de ese tipo.
Saludos. | |
|
|
Hurricane | |
|
Re: Ayuda con Turbo Pascal - 2006-08-05 20:31 - Respuesta 4
Para ahorrarte código y darle más claridad a tus programas, utiliza identación y cuando después de un IF (u otra orden que requiera el uso de BEGIN/END) haya sólo una instrucción, no uses el BEGIN/END. Ej:
Code: Program Tablas;
Var
Indice :Byte;
Numero :Byte;
Begin
Repeat
WriteLn;
Write('Intrese un número (0=FIN): ');
ReadLn(Numero);
If (Numeronulo;nulo;0) then
For Indice := 1 to 10 do
WriteLn(Numero:1, ' x ', Indice:2, ' = ', Numero*Indice);
Until (Numero=0);
End.
Saludos
HURRICANE
| |
|
|
|