Forums before death by AOL, social media and spammers... "We can't have nice things"
|    comp.lang.pascal.borland    |    Borland Pascal was actually pretty neat    |    2,978 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 1,499 of 2,978    |
|    Jochen to All    |
|    Re: AYUDA PASCAL URGE PARA PRACTICA    |
|    04 Apr 05 23:46:24    |
   
   From: jotel99@hotmail.com   
      
   hi jb!   
      
   jb typed:   
      
   sorry i don't speak italian!   
      
   > Me sale error 202 Stack Overflow y nose porque.   
   > Alguna idea?   
   > Gracias   
   >   
   > Adjunto el fuente .pas   
   >   
   >>   
   >   
   > program academia;   
   > uses crt;   
   > type   
   > alumn= record   
   > Codigo:byte;{Lo uso para el turno 1,2 ¢ 3}   
   > apellidos:String[50];   
   > edad:byte;   
   > end;   
   > curso = array[1..10,1..30] of alumn;{10 cursos,a 30 alumnos maximo por   
   > curso}   
      
   size of this structure is about 16KB   
      
   > const   
   > coste= 10.000;   
   > var   
   > tabalumnos:curso;   
      
   > Function MiraHueco(tabla:curso;curso:byte;turno:byte):byte;{Devuelve 0   
   > si no hay hueco en el turno}   
      
   right here you put 16KB on the stack - u are not changing the data   
   afaics.   
   you could use var paramater then.   
   " function mh(var: tabla: curso .... "   
   Or adjust the memory settings. see {$m x,y,z} compiler switch ...   
      
   > {Alumnos por turno}   
   > const   
   > alporturno=10;   
   > var i,j:byte;{Para bucle for}   
   > begin   
   > i:=1;   
   > j:=alporturno;   
   > For i:= 1 to 30 do   
   > begin   
   > if tabla[curso,i].codigo=turno then dec(j);   
   > end;   
   > mirahueco:=j;   
   > end;   
   [...]   
      
   rest unread ... i think the problem might occur more than once :)   
      
   fun, success & greets   
   jo   
      
      
   --   
   http://radio789.net.ms - Radio 789 - We play it ALL   
   Radiostream: http://stream789.net.ms   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca