[EI/ETIS/ETIX] 1º - Pro (Programación)

[ras]

Yo creo que en años anteriores si que era necesario entregar la ficha, y tambien os recomiendo que os paseis por clases de practicas porque creo recordar que el año pasado pasaba lista, y aunque no lo digan eso alfinla puede ayudarte para aprobar o suspender.

En cuanto al examen pos no se poruq e nunca habian hecho ninguno, pero bueno si tan bien vas en pro, no te vendria nada mal un repaso en forma de examen (lo digo por experiencia en otras asignaturas x_D)

[agilismoftw]

El examen de pro fué en plan dos programillas para hacer (bueno, en verdad procedimientos y funciones).

Casi todos sacamos 0, aunque joder, mi programa funciona, solo que no era la mejor forma de hacerlo :\ espero que no cuente xdd

Salu2

[rudyairlines]

yo el 1º lo hice y creo que me va bien y bien hecho ademas. el otro del numero entero y pasar cada digito a un array no me dio tiempo a hacerlo , pero creo q habia que usar la funcion "div" e ir dividiendo en potencias de 10. creo q se puede hacer asi pro no estoy seguro. espero q no cuente nada xD

[Neimad]

pero creo q habia que usar la funcion "div" e ir dividiendo en potencias de 10

Cierto, tras salir de esa mierdicha, comentandolo con un colega ya detecte varios fallos, entre ellos el uso del div (en la prueba me habia quedado pensando si seria div o la barra ).

[alvarito]

holas. keria saber de donde podria sacar la funcion random para pascal ya ke n las practikas para provar los programas kon arrays grandes no es plan de meterle 500 enteros uno por uno. estube buscando por ahi y de el pascal ke utilizamos kasi no hay informacion, ni foros ni na, debe ser por lo util ke es. asias por adlantao.

[ReMuS]

Me parece que en el Excel hay una funcion random, copypaste y listo; prueba a ver

[Fer]

Yo recuerdo usar la función Random y la función Randomize en Pascal. A la noche os digo xD

[Sasi]

hay un random y randomize como dice fer, pero se sale del estandar extendido

[ReMuS]

Sip, lo hay pero es del Turbo Pascal y del Free Pascal; si lo que quieres es generar una serie de numeros puedes hacer esto.

Para generar números aleatorios Turbo Pascal cuenta con la función Random y el procedimiento Randomize.
La función Random genera un número aleatorio de tipo real comprendido entre 0 y 1, en cambio la función Random (x) genera un entero aleatorio entre 0 y x.

Código: Seleccionar todo


PROGRAM Nums_Aleatorios;
VAR
x : Integer;
BEGIN
Randomize
WriteLn('Lista de números aleatorios');
For x := 1 to 20 do
WriteLn(Random);
END.
 


[Santa]

para provar los programas kon arrays grandes no es plan de meterle 500 enteros uno por uno

Si sólo es para probar tampoco importa que los hagas con fpc o turbo pascal, ¿no?

[inilatos]

si simplemente es para llenar un array... os será mejor rellenarlo con un bucle for y asi os lo llenais en una sola linea de código

[Fer]

si simplemente es para llenar un array... os será mejor rellenarlo con un bucle for y asi os lo llenais en una sola linea de código

Aparte XDD Aunque depende para qué lo quieras usar... Te vale de esa manera.

[dvd182]

holas,soy nuevo en el foro,pero este es mi segundo año en la carrera,era para que me reolvierais una duda con la practikca de pro
yo hice un conjunto de caracteres en plan:

Código: Seleccionar todo

TYPE
.
.{otras declaraciones de tipos}
.
                    minusculas='a'..'z';
                   conj_minusculas=SET OF minusculas;
                    mayusculas='A'..'Z';
                    conj_minusculas=SET OF mayusculas;
                    numeros='0'..'9';
                    conj_minusculas=SET OF numeros;
VAR
conj1:conj_minusculas;
conj2:conj_mayusculas;
conj3:conj_numeros;
caracter:char;
...


dentro de la funcion de ""Estadistica"" que es la funcion de calcular las operaciones tengo puesto:...


Function Estadistica (VAR entrada:tfila):informacion;
VAR
   nlinea,ncar,npalabras:INTEGER;palabra:string(20);caracter:char;pertenece:boolean;
BEGIN
   palabra:=''; caracter:='';
   nlinea:=0;ncar:=0;npalabras:=0;
   WHILE NOT EOF(entrada) DO BEGIN
      Readln(entrada,linea);
      nlinea:=nlinea+1;
      trim(linea);              
   WHILE NOT EOLN (entrada) DO BEGIN
      caracter:=Substr(linea,ncar,ncar+1);
      If pertenece:=caracter IN conj1;
        If pertenece:=caracter IN conj2;
          If pertenece:=caracter IN conj3 then BEGIN;
         if palabra='' then npalabras:=npalabras+1;
         palabra:=palabra+caracter;
      End
      else begin
         {chr(13) es el caracter de fin de linea para las palabras acabadas en '-'}
         If npalabras=1 then Estadistica.primera_palabra:=palabra;
         palabra:='';
      end;
      ncar:=ncar+1;         


END;

la funcion aun no esta lista pero era para ir probando pero no m va,me podiais exar un cable y darme alguna idea alternativa si eso va mal...please!!!

[EipPorko]

y que se supone que tendria que hacer? o que error te da?

[inilatos]

para empezar esto no lo puedes hacer:

Código: Seleccionar todo

If pertenece:=caracter IN conj1;
If pertenece:=caracter IN conj2;

estás haciendo un if de pertenece, que no tiene ningún valor fiable (o sea, que es siempre true o siempre false, porque es una variable local y nunca le cambias el valor antes de empezar la estructura condicional. Aún encima no estás comparando, estás asignando. creo que lo correcto sería con "=" y no con ":=", aunque de todos modos no entiendo bien si lo que pretendes es hacer una asignación o una comparación o ambas cosas...

Despues, como dice Eipporko, vendría bien que dijeses que fallos te da.