Problema con programa en pascal(1 min)
No soy capaz de hacer funcionar éste programa, si alguien pudiera echarle un vistazo haber si ve algo me sería de gran ayuda.
Gracias por adelantado.
program crea_lineas;
(*-- Funciones y procedimientos -- *)
procedure linea(carácter:char ,num_caracteres:integer);
while (num_caracteres > 0) do
begin
write(carácter);
num_caracteres := num_caracteres-1;
end;
(*-- Variables Globales -- *)
var
num_caracteres:integer;
carácter:char;
(*-- Programa Principal -- *)
begin
(* Solicitud de los datos *)
write('Introduzca longitud de la linea: ');
readln(num_caracteres);
write('Introduzca letra: ');
readln(carácter);
linea(carácter,num_caracteres);
(* Trampa para que pare sin cerrarse *)
readln();
end.
1 respuesta
program crea_lineas;
(*-- Funciones y procedimientos -- *)
procedure linea(carácter:char ;num_caracteres:integer);
begin
while (num_caracteres > 0) do
begin
write(carácter);
num_caracteres := num_caracteres-1;
end;
end;
(*-- Variables Globales -- *)
var
num_caracteres:integer;
carácter:char;
(*-- Programa Principal -- *)
begin
(* Solicitud de los datos *)
write('Introduzca longitud de la linea: ');
readln(num_caracteres);
write('Introduzca letra: ');
readln(carácter);
linea(carácter,num_caracteres);
(* Trampa para que pare sin cerrarse *)
readln;
end.
Hice algunas modificaciones y no da errores. Si tienes alguna duda vuelve a escribir. Si no es así, por favor, finaliza la pregunta dándole la calificación que creas conveniente.
me podrías decir que IDE usas si lo usas?
usas linux?
Gracias por todo, el programa funciona correctamente, cuándo me contestes te puntúo con la máxima.
Saludos
Utilizo Turbo Pascal 7.0 bajo Windows XP.
