• Domingo 20 de Octubre de 2019, 13:59

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - Mapi

Páginas: [1]
1
Pascal / Error 160
« en: Miércoles 6 de Abril de 2005, 19:18 »
Estaba haciendo una parte de un programa que me habian tomado en mi laboratorio de ayer. Cuando la compile todo normal, pero luego cuando la ejecute me salio error 160 : Device write fault. Alguien sabe que significa, aqui pongo parte de mi codigo por seaca:

Program Lab1;
var
    archDat:text; archaux:text;
    numcamp,i,long,dato,NumDat:byte; tip:char;

begin
   assign(archdat,'datos.txt');
   assign(archaux,'aux.txt');
   rewrite(archdat); rewrite(archaux);
   write('Ingrese el numero de campos :');
   readln(NumCamp);
   If numcamp>0 then
   begin
     writeln(archdat,numcamp);
     for i:=1 to NumCamp do
     begin
       writeln('Ingrese el tipo de dato ,i,: ');
       readln(tip);
       If Upcase(tip)=upcase('C') then
       begin
         write('Ingrese el tamano de la cadena: ');
         readln(long);
         writeln(archdat,ord(upcase('C')));
         writeln(archdat,long);
       end;
       If upcase(tip)=upcase('I') then
       begin
         write('Ingrese el numero de bits :');
         readln(long);
         writeln(archdat,ord(upcase('I')));
         writeln(archdat,long);
       end;
     end;
   end
   else
     writeln('El numero de campos tiene que ser menor que cero');
   writeln('Ingrese el numero de datos');
   readln(NumDat);
   writeln('Empiece a ingresar los datos');
   for i:=1 to numDat do
   begin
     readln(Dato);
     writeln(archaux,Dato); { CUANDO SE EJECUTA ESTA INSTRUCCION SALE EL ERROR}
   end;
   close(archdat); close(archaux);
end.

2
Pascal / Ayuda
« en: Viernes 25 de Marzo de 2005, 18:40 »
Tengo un problema con la funcion shl,

var n:byte;
begin
   n:=150 shl 1;  {solo me acepta hasta 127}
end;

cuando corro el programa me sale error, no entiendo por que se supone que cuando el numero corre un bit a la izquierda este se pierde y no hay problema. cuando a n lo pongo como integer me sale que el resultado es 300(100101100), pero el resultado que yo espero es 44(00101100) y por eso lo declaro como byte.

Páginas: [1]