Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Ayuda con Turbo Pascal

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
Posibles soluciones:
Ayuda con turbo pascalAyuda con turbo pascal
Ayuda con turbo pascalAyuda con turbo pascal
Ayuda programación turbo pascalAyuda programación turbo pascal
Turbo pascalTurbo pascal
Turbo pascalTurbo pascal
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

Página:1

Respuestas relacionadas:

Turbo pascalTurbo pascalForo
Turbo pascalTurbo pascalForo
Problema en turbo pascalProblema en turbo pascalForo
Turbo pascal- programasTurbo pascal- programasForo
Problemas con turbo pascalProblemas con turbo pascalForo
Matrices en turbo pascalMatrices en turbo pascalForo
Matrices en turbo pascal!Matrices en turbo pascal!Foro
Matrices en turbo pascalMatrices en turbo pascalForo
Problema turbo pascalProblema turbo pascalForo
Ejercicios de turbo pascalEjercicios de turbo pascalForo
InicioNoticias
^ SubirAviso legal
Política Privacidad
Configurarequipos17 Agosto 2018