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.
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


0