Mensajes

http://foro.elhacker.net/index.php/topic,78765.0.html

http://foro.elhacker.net/index.php/topic,67016.0.html

http://foro.elhacker.net/index.php/topic,58288.0.html

http://foro.elhacker.net/index.php/topic,52512.0.html

http://foro.elhacker.net/index.php/topic,29441.0.html


Utiliza el botón "BUSCAR" y encontrarás más ayuda.

Saludos.

Puedes usar la función GOTOXY(coordX,coordY) para ubicar el primer caracter de cada linea.
Inicializas un X y un Y adecuado [Ejemplo: x:=20;  y:=5;]
Y en cada pasada aumentas "Y" (para que vaya a la siguiente línea) y disminuyes "X" (para que retroceda una columna).

Para "dibujar" la pirámide es necesario un doble FOR...DO; uno para que cuente las líneas y otro para que dibuje los caracteres.

Código [Seleccionar] Expandir


x:=25;
y:=5;
FOR I:= 1 to longitud DO
begin
   x:=x-1;
   y:=y+1;
   gotoxy(x,y);
   FOR J:=1 to I DO
    write(caracter,' ')
end;


Con este código obtienes:

       #
      # #
     # # #
    # # # #
   # # # # #
  # # # # # #
# # # # # # #



Si deseas todo "relleno", no creo que sea dificil modificar el código, para que el resultado sea:

       #
      ###
     #####
    #######
   #########
  ###########
#############


SUERTE.


P.D.  Debes incluir en la cabecera la unidad CRT:
        uses crt;

- Búscalo en los archivos temporales de internet.  Si dices que a la segunda vez te carga más rápido es porque ya está guardada en tu PC.

- Otra opción: Click derecho => Guardar destino como...  Allí eliges donde guradarlo.

Saludos.

Ya te acostumbrarás Apoka

[READKEY]

La función "READKEY" asigna el valor de la tecla presionada sin necesidad de darle <enter>, aunque a veces, como en este caso, es mejor lo de "read(variable)", ya que si te equivocas de tecla puedes borrarlo e ingresar la correcta.
Esta función se emplea cuando programas pequeños juegos, tipo la culebrita (esa de los celulares), es decir si presionas las flechas la serpiente se mueve a la derecha, izquierda, etc.

La función "UPCASE" convierte las letras a sus respectivas mayúsculas, por ejemplo si tipo="n" entonces upcase(tipo) devolverá "N", si la variable ya está en mayúsculas no hace nada

Así puedes resumir tu código:

Código [Seleccionar] Expandir



write('Introduzca el tipo de llamada. N:Nacional, P:Provincial, L:Local: ');
readln(tipo);
tipo:=upcase(tipo)
writeln('');

case (tipo) of
  'N': begin
         duracionN:=duracionN+duracion;
         N:=N+1
       end;

  'P': begin
         duracionP:=duracionP+duracion;
         P:=P+1
       end;

  'L': begin
         duracionL:=duracionL+duracion;
         L:=L+1
       end
.
.
.



Saludos.

Dentro del "case" puedes colocar varias sentencias para cada opción.

Algunas modificaciones:

• Puedes declarar la variable "tipo" como "char"

Código [Seleccionar] Expandir

var
   tipo: char;


[li]Y que lo lea no con "read" sino con "upcase(readkey)"[/li]

Código [Seleccionar] Expandir

write('Introduzca el tipo de llamada. [N]acional, [P]rovincial, [L]ocal: ');
tipo:=upcase(readkey);

[li]Dentro del "case...of"[/li]

Código [Seleccionar] Expandir

CASE tipo OF
"N": begin
       duracionN:=duracionN+duracion;
       N:=N+1
     end;
"P": begin
       duracionP:=duracionP+duracion;
       P:=P+1
     end;
"L": begin
       duracionL:=duracionL+duracion;
       L:=L+1
     end
else
      write('Opcion no permitida.');

END;



[li]Antes de pasar a las líneas siguientes, debes considerar una cosa: Si se ingresa una opción no permitida, la durac_total no debe modificarse.  Entonces ¿Qué hacemos con el tiempo ya ingresado? ¿Lo obviamos y que se vuelva a ingresar otro tiempo y tipo de llamada? o ¿Aceptamos el tiempo y pedimos solamente que especifique nuevamente el tipo de llamada? [/li]
[li]Como ves son dos opciones... ¿Qué decides?, de acuerdo a lo que respondas (o propongas) podemos seguir modificando el programa[/li]
[li]Por otro lado, la duracion total (durac_total) y la cantidad total de llamadas (numero) sería mejor colocarlos fuera del while.[/li]

Código [Seleccionar] Expandir

durac_total := duracionN + duracionP + duracionL;
numero := N + P + L;

[/list]

Saludos.

[DVD Audio Extractor]

DVD Audio Extractor

http://www.castudio.org/dvdaudioextractor/

Saludos.

Código [Seleccionar] Expandir

while (duracion>0) do

        begin
          numero:=numero+1;
          duracion:=duracion+duracion;
        end;


El problema es que dentro del WHILE ... DO  no tienes una sentencia para leer la "duración"

Debes tener otra variable Durac_Total que acumule todas las duraciones.

Código [Seleccionar] Expandir

.
.
.
durac_total:=0;
while (duracion>0) do
        begin
          durac_total:=durac_total + duración;
          numero:=numero+1;
          readln(duracion)
        end;
.
.
.

Y tu media... esta al revés; debe ser  min/llamada  o  seg/llamada; entonces:

Código [Seleccionar] Expandir

media:=durac_total/numero;

Saludos.

No es necesario tener tu propio espacio web.
Si quieres compartir archivos tienes páginas donde subirlas, te dan la dirección y luego las linkeas aquí o donde desees.

www.rapidshare.de
www.yousendit.com
www.4shared.com
www.filefront.com
www.megaupload.com
www.slil.ru
www.ultrashare.net
www.webfile.ru
www.mytempdir.com
www.sexuploader.com
www.yourfilehost.com
www.uploadhut.com
www.flurl.com
http://www.zshare.net
http://zupload.com
www.getfile.biz


Saludos.

Pues yo pensaria en Smyles con algo cybernetico, o relacionado con Informática... pero es cosa del brujo y ahi no hay nada que hacer...

el-brujo es el administrador, bueno o malo... ustedes lo calificarán.  Pero de diseño no sabe nada 
Si ustedes ase animan y le proponen un buen pack de emoticones... quizá los veamos en el foro.

Saludos.