Pascal/Turbo Pascal - problema en units

 
Vista:

problema en units

Publicado por arturo cotas (1 intervención) el 10/09/2009 21:40:32
pues fijate que tengo un problema en mi creacion de libreia pues la verdad medice
error37 : end expected;
no se a que se refiere dandole la compilacion respectiva este esmi codigo me puedes ayudar
unit latino;
interface
uses crt;
procedure limpiar;
procedure escribir (texto: string);
{procedure escribir_numero;}
procedure leernumero (num:integer);
procedure leertexto (texto:string);
procedure colocar (x,y:integer);

function suma (a,b: integer): integer;
implementation
limpiar;
begin
clrscr;
end;
procedure colocar;
begin
gotoxy(x,y);
end;
procedure escribir;
begin
writeln (texto);
end;
function suma: integer;
var temn; integer;
begin
temp:=a+b;
suma:=temp;
end.

gracias por tus respues ok.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema en units

Publicado por Diego Romero (996 intervenciones) el 11/09/2009 02:44:28
Efectivamente te falta un end. Y no solo eso, te faltan implementar dos procedures.

unit latino;
interface
uses crt;
procedure limpiar;
procedure escribir (texto: string);
procedure leernumero (num:integer);
procedure leertexto (texto:string);
procedure colocar (x,y:integer);
function suma (a,b: integer): integer;

implementation

procedure limpiar; { faltaba la palabra "procedure" }
begin
clrscr;
end; { fin de limpiar }

procedure colocar;
begin
gotoxy(x,y);
end; { fin de colocar }

procedure escribir;
begin
writeln (texto);
end; { fin de escribir }

function suma: integer;
var temn; integer;
begin
temp:=a+b;
suma:=temp;
end; { fin de suma }

end. { fin de implementation }

Faltan las implementaciones de leernumero y leertexto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar