Experiencias

FOTOS JOSE MARIA PAIAN 2009

2009-01-26T12:42:00.001-08:00

FOTOS JOSE MARIA PAIAN 2009

2009-01-26T12:25:00.000-08:00

FOTOS JOSE MARIA PAIAN 2009

2009-01-26T12:08:00.000-08:00

FOTOS JOSE MARIA PAIAN 2009

2009-01-26T12:00:00.000-08:00

FIESTA DE JOSEMARIA 4 AÑOS - 2008

2008-02-12T10:05:00.000-08:00

CURSO DE ENSAMBLAJE VERANO 2008

2008-02-12T09:47:00.001-08:00

FOTOS 2008 DE JOSEMARIA LUYO CAMPOS

2008-02-01T08:34:00.000-08:00

2007-12-12T14:13:00.000-08:00

MIS FOTOGRAFIAS EN LA CASITA DEL SABER - PAIAN

MIS MEJORES RECUERDOS

MIS FOTOGRAFIAS

2007-12-11T16:29:00.000-08:00

FELIZ NAVIDAD Y PROSPERO AÑO 2008

LES DESEA:

José María Luyo Campos

LA NAVIDAD

2007-12-11T15:57:00.000-08:00

FELIZ NAVIDAD Y UN PROSPERO AÑO 2008

Les desea:

José María Luyo Campos

Clase 3ero. de Secundaria - Claretiano-Trujillo

2007-10-17T06:15:00.000-07:00

Modularidad

Introducción:

Habíamos visto la programación estructurada que permite la escritura de programas fáciles de leer y modificar. En esta programación, el flujo lógico se gobierna por las estructuras de control básicas vista hasta hoy: secuenciuales, repetitivas y de seleccción.

La programación modular permite la descomposición de un problema en un conjunto de subproblemas independientes entre sí, más sencillos de resolver y que pueden ser tratados separadamente unos de otros. Gracias a la modularidad se pueden probar los subprogramas o módulos de manersa independiente, depurándose sus errores antes de su inclusión en el programa principal y almacenarse para su posterior utilización cuantas veces se precise.

Módulo:

ACTIVIDADES PARA LOS ALUMNOS DE LA INSTITUCION EDUCATIVA CLARETIANO DEL TERCERO DE SECUNDARIA - SEMANA DEL 16 AL 18/04

2007-04-15T16:28:00.000-07:00

Manual de FreePascal Para Linux

1. Introducción a los lenguajes de programación

1.1 Etapas de la programación

El proceso de programación consta, teóricamente, de tres partes. La primera, que recibe el nombre de especificación, consiste en detallar que tiene que hacer el programa o, dicho de otra forma, concretar que problemas tiene que resolver nuestro programa. Una vez determinado qué hará nuestro programa empieza la fase de diseño. En la fase de diseño se escribe el algoritmo que es el conjunto de pasos que hay que realizar para resolver el problema planteado en la fase de especificación. De algoritmos pueden haber varios que hagan lo mismo, algunos serán más rápidos, otros más lentos, más simples o más complejos. Finalmente hay que implementar el algoritmo en un lenguaje de programación.

En la mayoría de los casos la implementación se realizará en un lenguaje de programación de alto nivel.

Los lenguajes de programación son un conjunto de reglas y símbolos que permiten la implementación de los algoritmos. En el caso de los lenguajes de alto nivel, estos son más cercanos a la sintaxis humana y al programador mientras que los de bajo nivel son más cercanos a las órdenes que entiende la máquina y en general más alejados del lenguaje natural. A consecuencia de esto los lenguajes de alto nivel se pueden emplear en más de un sistema mientras que los de bajo nivel tienen un ámbito más restringido.

Los programas escritos en lenguajes de alto nivel tienen que ser convertidos a lenguajes de bajo nivel para poder ser ejecutados en un sistema. Con esta finalidad existen los compiladores y los intérpretes. El compilador transforma el lenguaje de alto nivel en un lenguaje de bajo nivel que suele ser código máquina (o sea, directamente ejecutable por el procesador). Mientras que el intérprete codifica una o más instrucciones de forma secuencial, a medida que las va leyendo. Son lenguajes interpretados el BASIC y el LISP, mientras que el PASCAL, el C/C++ y muchos otros son compilados. Finalmente existe una opción híbrida introducida por JAVA que dispone de compilador e intérprete de los bytecodes que el compilador genera.

ACTIVIDAD Nº 1

Instrucción: Después de haber leido atentamente la lectura y escuchado la explicación del profesor, resuelva en forma clara y precisa a cada una de las preguntas propuestas.

¿Explique cada una de las partes que teoricamente el proceso de programación.
¿A que se denomina lenguajes de programación?
Explique cuál es la diferencias que existen entre los lenguajes de alto nivel y los de bajo nivel.
¿De qué requieren todos los programas escritos en lenguajes de alto nivel para poder ser ejecutados en un sistema?
Extablezca la diferencia que existe entre los compiladores y los interpretes.
Menciona 2 lenguajes de programación que pueden ser interpretados y 2 lenguajes de programación que pueden ser compilados.
¿Con qué nombre se le conoce a la opción introducida por JAVA que dispone de compilador e interprete?
¿Cuál es la función del interprete en JAVA?

1.2 El lenguaje Pascal y el compilador FreePascal

El lenguaje de programación de alto nivel Pascal fue diseñado el año 1968 por Niklaus Wirth con una finalidad eminentemente pedagógica. El 1983, el Pascal fue estandarizado llamandose ISO Pascal, justo en el mismo año en qué Borland lanzaría el Turbo Pascal 1.0, que sería el origen de una saga de éxitos que constó de 7 versiones para el entorno Ms-Dos. En estas sucesivas versiones, Borland aprovechó para corregir algunas deficiencias del Pascal original, que Niklaus Wirth había corregido ya en su otro lenguaje MODULA-2, volviendose un lenguaje de propósito general, fácil de aprender, potente (si bien a un nivel inferior que C/C++) y que se ha adaptado a los nuevos paradigmas de programación como son la programación orientada a objetos y clases.

El compilador FreePascal nació el julio de 1993 impulsado por su autor Florian Klaempfl.

El año 1996 fue lanzado a Internet y en julio del 2000, casi 7 años después de su inicio, salió la versión 1.00 del compilador, suficientemente estable como para poder desarrollar aplicaciones. Se distribuye bajo licencia GNU GPL que permite, básicamente, su distribución gratuita y del código fuente sin ningún coste aunque los autores retienen el copyright.

El compilador FreePascal existe para plataformas Ms-Dos, Windows de 32-bits, Linux, OS/2 y AmigaOs y recientemente se ha añadido FreeBSD. Está limitado a las arquitecturas Intel y Motorola.

Como característica interesante hay que decir que soporta muchas de las características del Pascal de Borland y de ObjectPascal de Delphi y además incluye nuevas posibilidades inexistentes en estos compiladores, como es la sobrecarga de operadores, por poner un ejemplo. También aporta una librería estándar que funciona en todas las plataformas que da soporte el compilador.

En este manual se explicará como programar en Pascal y como aprovechar al máximo todas las posibilidades que el compilador FreePascal brinda al usuario, sin olvidar las que tratan del entorno Win32.

ACTIVIDAD Nº 2

Instrucción: Después de haber leido atentamente la lectura y escuchado la explicación del profesor, resuelva en forma clara y precisa a cada una de las preguntas propuestas.

¿En qué año, por quién y con que finalidad fue creado el lenguaje de programación Pascal?
En el año 1983, con qué nombre se estandarizó al Lenguaje Pascal?
¿Niklaus Wirth de que lenguaje de programación corrigió diferencias?
¿En qué año Borland lanzó Turbo Pascal 1.0 y de cuántas versiones contó para el entorno MS-DOS?
¿Cuáles son los nuevos paradigmas de la programación?
Elabore un resumen sobre la historia del compilador Free Pascal.
Mencione cuáles son las características más interesantes del compilador Free Pascal.
Investigar en Internet sobre la biografía de Florian Klaempfl y Niklaus Wirth.

TRABAJO REALIZADO POR ALUMNO CLARETIANO - TRUJILLO

2006-12-05T06:17:00.000-08:00

program eje;
uses crt;
(*Creado por: Renzo Cáceres Seminario
Fecha: 25/11/2006
Colegio: Claretiano – Trujillo
Grado y Nivel: 4to. De Secundaria*)
type fecha=record
d,m:integer;
end;
libros=record
cod:string[5];
tit,aut,edi:string[20];
est:string[1];
ano:integer;
fec:fecha;
end;
var libro:array[1..10] of libros;
a,b,f,i,j,sw,lon,pos:integer;
op,r:char;
aux,xtra:string;
procedure menu;
begin
gotoxy(15,3);writeln('MENU');
gotoxy(5,5);writeln('------------------------');
gotoxy(8,8);writeln('[1] Ingresos');
gotoxy(8,10);writeln('[2] Movimientos');
gotoxy(8,12);writeln('[3] Disponibilidad');
gotoxy(8,14);writeln('[4] Listado');
gotoxy(8,16);writeln('[5] Fin');
gotoxy(5,19);writeln('------------------------');
repeat
gotoxy(15,21);write('Ingrese opcion: ');
op:=readkey;
until op in ['1'..'5'];
write(op);
delay(300);
end;
begin
i:=0;
repeat
clrscr;
menu;
case op of
'1': begin
repeat
clrscr;
gotoxy(15,3);write('INGRESOS');
gotoxy(7,5);write('-------------------------');
gotoxy(8,8);write(' Numero de Registro : ',i+1);
repeat
gotoxy(8,10);write(' Codigo del Libro : ');readln(xtra);
sw:=0;
if i=0 then
sw:=0;
for b:=1 to i do
if libro[b].cod=xtra then
sw:=1;
lon:=length(xtra);
until ((lon=5) or (lon=0)) and (sw=0);
if xtra<>'' then
begin
i:=i+1;
libro[i].cod:=xtra;
with libro[i] do
begin
repeat
gotoxy(8,12);write(' Nombre del Libro : ');readln(tit);
until length(tit)<=20;
repeat
gotoxy(8,14);write(' Autor del Libro : ');readln(aut);
until length(aut)<=20;
repeat
gotoxy(8,16);write(' Editorial : ');readln(edi);
until length(edi)<=20;
repeat
gotoxy(8,18);write(' A¤o de Edicion : ');readln(ano);
until ano>1990;
est:='L';
end;
end;
a:=i;
until xtra='';
end;
'2': begin
repeat
for i:=1 to a do begin
begin
with libro[i] do
begin
clrscr;
gotoxy(15,3);write('MOVIMIENTOS');
gotoxy(5,5);write('-----------------------------');
gotoxy(8,8);write('Codigo del Libro : ');readln(aux);
if cod=aux then
begin
gotoxy(8,10);write('Titulo del Libro : ',tit);
gotoxy(8,12);write('Autor del Libro : ',aut);
gotoxy(8,14);write('Estado [S,D,L] : L');
gotoxy(8,16);write('Fecha de Devolucion');
repeat
gotoxy(11,18);write('Dia : ');readln(fec.d);
until (fec.d>0) and (fec.d<32);
repeat
gotoxy(11,20);write('Mes : ');readln(fec.m);
until (fec.m>0) and (fec.m<13);
end
else
begin
gotoxy(8,16);write('CODIGO NO ENCONTRADO');
end;
repeat
gotoxy(5,23);writeln('-----------------------------');
gotoxy(11,25);write('Otro Movimiento [S/N] : ');r:=readkey;
r:=upcase(r);
until (r='N') or (r='S');
write(r);
delay(300);
end;
end;
end;
until r='N';
end;
'3': begin
repeat
clrscr;
gotoxy(15,3);write('DISPONIBILIDAD');
gotoxy(5,5);write('-----------------------------');
gotoxy(8,8);write('Codigo del Libro : ');readln(xtra);
sw:=0;
for j:=1 to a do
begin
if libro[j].cod=xtra then
begin
sw:=1;
pos:=a;
end;
end;
if sw=0 then
begin
gotoxy(8,13);write('CODIGO NO ENCONTRADO');
end
else
begin
with libro[pos] do
begin
gotoxy(8,10);write('Titulo del Libro : ',tit);
gotoxy(8,12);write('Autor del Libro : ',aut);
gotoxy(8,14);write('Estado : ',est);
gotoxy(8,16);write('Fecha de Devolucion : ',fec.d,'/',fec.m);
end;
end;
repeat
gotoxy(5,18);writeln('-----------------------------');
gotoxy(11,20);write('Otro Consulta [S/N]: ');r:=readkey;
r:=upcase(r);
until (r='N') or (r='S');
write(r);
delay(300);
until r='N';
end;
'4': begin
clrscr;
gotoxy(23,3);write('LISTADO');
gotoxy(2,5);write('-----------------------------------------------');
gotoxy(5,7);write('#');
gotoxy(9,7);write('Codigo del Libro');
gotoxy(30,7);write('Titulo del Libro');
f:=10;
for i:=1 to a do
begin
with libro[i] do
begin
gotoxy(5,f);write(i);
gotoxy(9,f);write(cod);
gotoxy(30,f);write(tit);
end;
inc(f,2);
end;
readkey;
end;
'5': exit;
end;
until op='5';
end.

CLASE DESARROLLADA EL 29/11 CON 5TO. "C" COLEGIO CLARETIANO-TRUJILLO

2006-11-27T08:17:00.000-08:00

C) ARCHIVOS SIN TIPO O NO TIPIFICADOS:
Los archivos sin tipo o no tipificados no tienen ningún formato especial y por tanto podemos leer de ellos los datos que queramos. Hay que tener en cuenta, que en ninguno de los tres tipos de archivos se hace ningún tipo de comprobación de los datos que se escriben o se leen.
De forma que si abrimos un archivo de un tipo determinado, por ejemplo de tipo LongInt, con un alias de tipo Byte los datos que leamos corresponderán a los bytes del LongInt.
Los archivos sin tipo o no tipificados no hacen suposiciones sobre la estructura de datos. Se pueden leer datos desde un archivo no tipificado con cualquier tipo de dato.
Ya que Free Pascal no hace suposiciones sobre la forma de los datos, la transferencia desde el disco a la estructura de datos es inmediata. Estos es porque los archivos no tipificados se utilizan para aplicaciones que requieren entradas y salidas a alta velocidad.
Las funciones Write y Read no se pueden emplear con archivos sin tipo. Es por este motivo que tenemos que emplear las funciones BlockWrite y BlockRead. Estas funciones leen o escriben un número n, o menos en caso de lectura, de bloques de tamaño b, en bytes, que conviene especificar en las funciones Rewrite y Reset. Si no especificamos el valor del bloque a Rewrite o Reset por defecto vale 128 bytes.-

Ejemplo 1:
Programa en el cual escribiremos datos de tipo String y Entero.

Program EscrituradatosArchivosintipo;
Uses Crt, SysUtils;
Const
Nomarch=’/root/datos.dat’;
Var
Datos: File;
Nombres:String[35];
Telef:String[10];
Email:String[25];
Edad:Integer;
Begin
Clrscr;
(*Asignaremos o relacionamos la variable de tipo archivo con el archivo de disco*)
Assign(Datos,Nomarch);
(*Abrimos y creamos el archivo, especificando 1 byte como tamaño del bloque por comodidad*)
Rewrite(Datos,1);
Write(‘Nombres y Apellidos: ´);Readln(Nombres);
Write(‘Nro. Telefonico: ´); Readln(Telef);
Write(‘Correo Electronico: ´);Readln(Email);
Write(‘Edad : ´);Readln(Edad);
(*Ahora escribiremos o guardaremos los datos en el disco*)
BlockWrite(Datos,Nombres,SizeOf(Nombres));
BlockWrite(Datos,Telef,SizeOf(Telef));
BlockWrite(Datos,Email,SizeOf(Email));
BlockWrite(Datos,Edad,SizeOf(Edad));
(*Ahora cerraremos el archivo*)
Close(Datos);
Readkey;
End.

Observese:

- Que especificamos el tamaño del registro en 1 ya que después necesitaremos especificar el tamaño de los datos que vamos a escribir. Para esto empleamos la función SizeOf que toma como parámetro cualquier tipo de variable y devuelve su tamaño en bytes. Si no hubieramos especificado el tamaño del bloque, se tomaría por defecto 128 bytes.
- La función BlockWrite admite cualquier tipo de variable como segundo parámetro.
- Para leer, la función BlockRead funciona de forma parecida a BlockWrite. En este caso el segundo parámetro también puede ser de cualquier tipo, pero no una constante.

Ejemplo 2:
Programa en el cual leeremos datos de tipo String y Entero escritos en el programa del ejemplo 1.

Program LeerdatosArchivosintipo;
Uses Crt, SysUtils;
Const
Nomarch=’/root/datos.dat’;
Var
Datos: File;
Nombres:String[35];
Telef:String[10];
Email:String[25];
Edad:Integer;
Begin
Clrscr;
(*Asignaremos o relacionamos la variable de tipo archivo con el archivo de disco*)
Assign(Datos,Nomarch);
(*Abrimos el archivo, especificando 1 byte como tamaño del bloque por comodidad*)
Reset(Datos,1);
(*Ahora leeremos todos los datos del Archivo*)
While Not Eof(Datos) do
Begin
BlockRead(Datos,Nombres,SizeOf(Nombres));
BlockRead(Datos,Telef,SizeOf(Telef));
BlockRead(Datos,Email,SizeOf(Email));
BlockRead(Datos,Edad,SizeOf(Edad));
Writeln(‘Registro # : ‘,filepos(datos));
Writeln(‘Nombres y Apellidos: ´,Nombres);
Writeln(‘Nro. Telefonico: ´,Telef);
Writeln(‘Correo Electronico: ´,Email);
Writeln(‘Edad : ´,Edad);
Writeln;
End;
(*Ahora cerraremos el archivo*)
Close(Datos);
Readkey;
End.

Nota: Otras funciones que podemos emplear para los archivos sin tipo incluyen: FileSize, FilePos y Seek. Todas estas tres funciones trabajan con el valor del bloque, el tamaño del cual hemos especificado en Reset o Rewrite. También podemos emplear EOF para detectar el fin de archivo.

GESTIÓN DE ARCHIVOS

A diferencia de cerrar archivos, escribir o leer datos también podemos realizar otras operaciones como pueden ser eliminar un archivo o cambiar el nombre.

A) Eliminar un Archivo: Función Erase
Eliminar es tan simple como emplear la función Erase y el alias del archivo.
Hay que tener en cuenta de que el archivo tiene que estar cerrado para evitar un error en tiempo de ejecución. Además, cerrar un archivo ya cerrado da error de ejecución. Para asegurarse de que un archivo está cerrado podemos abrirlo con Reset y cerrarlo con Close. Nuevas llamadas a Reset con un archivo ya abierto no dan error, simplemente sitúan el cursor del archivo al inicio. Una vez que el archivo está cerrado ya podemos llamar a Erase.

Sintaxis:
Erase(VarArchivo);
Ejemplo:
…..
Var Datos:File;
Begin
Assign(Datos,’Data.dat’);
Erase(Datos);
…..

B) Renombrar un Archivo: Función Rename
La función Rename permite renombarr un archivo. Hay que tener en cuenta de que el archivo también tiene que estar cerrado.

Sintaxis:
Rename(VarArchivo,’NuevoNombredelArchivo’);

Ejemplo:
…..
Var Datos:File;
Begin
Assign(Datos,’Data.dat’);
Rename(Datos,’Datanueva.Dat’);
…..

Ejemplo:
El siguiente programa proporciona un método simple para renombrar y borrar archivos. Cuando comience el programa se le presentarán tres opciones: renombrar un archivo, borrar un archivo o dejarlo.

Program RenombrarBorrar;
Uses Crt, SysUtils;
Var
F: File;
Nombre1,Nombre2:String;
Opcion:Char;
Begin
Repeat
Clrscr;
Write(‘[R]enombrar, [B]orrar, [S]alir : ‘);
Readln(opcion);
Case Upcase(opcion) Of
‘R’:Begin
Write(‘Nombre del archivo a renombrar: ‘);
Readln(Nombre1);
Write(‘Nuevo nombre para el archivo : ‘);
Readln(Nombre2);
Assign(F,Nombre1);
Rename(F,Nombre2);
End;
‘B’:Begin
Write(‘Nombre del archivo a borrar: ‘);
Readln(Nombre1);
Assign(F,Nombre1);
Erase(F);
End;
End;
Readkey;
End.

CAPTURAR ERRORES DE ARCHIVOS CON IOResult

Hasta ahora hemos operado con archivos suponiendo que el archivo existía o bien no había ningún error durante las operaciones de lectura o de escritura. Existe una forma muy sencilla de capturar los errores de las operaciones con archivos mediante la variable IOResult y la directiva de compilador {$I}. Una directiva de compilador es un comentario que justo después de la llave hay el símbolo de dólar $ y una o más letras. Las directivas modifican el comportamiento del compilador en tiempo de compilación. Después de una directiva el compilador puede modificar su comportamiento de muchas formas. Muchas veces van asociadas a la llamada compilación condicional, que veremos más adelante, en otras se refiere a como se estructuran los datos, etc.
En el caso de $I es una directiva de activación/desactivación. Por defecto $I está activada con lo cual los errores de entrada/salida de archivos provocan un error de ejecución (runtime error). Los errores runtime son irrecuperables, o sea, provocan la finalización inmediata y anormal del programa
Muy a menudo, el error puede ser debido al usuario con lo cual hay que procurar de no generar un error runtime ya que inmediatamente terminaría el programa. Podemos evitar estos errores con la desactivación de la directiva $I. Para activar una directiva en medio del código:
{$I+}
Para desactivarla:
{$I-}

Es importante reactivar la directiva $I cuando ya no sea necesaría. Cuando está desactivada podemos acceder a la variable IOResult. Esta variable tiene el valor de cero (0) si la operación con archivos se ha llevado a cabo con éxito. En caso contrario, almacenará un valor distinto de cero. Vamos aplicar esta técnica al programa de cambio de nombre:
…..
Var
Archivo:File;
Begin
Assign(archivo,’Dato.dat’);
{$I-} (*Desactivamos la directive*)
Rename(archive,’nuevadata.dat’);
If IOResult<>0 Then
Write(‘Archivo no existe, no podemos renombrarlo….’);
{$I+} (*Reactivamos la directiva *)
End.

LES DESEO UNA FELIZ NAVIDAD Y UN PROSPERO AÑO 2007 Y ROGANDO AL "TODO PODEROSO" PARA QUE ILUMINE SUS CAMINOS EN ESTA NUEVA ETAPA DE SUS VIDAS Y SE HAGAN REALIDAD TODAS SUS METAS TRAZADAS.

2006-11-21T08:19:00.000-08:00

Tecnologia Voip

CLASE DESARROLLADA EL DIA: LUNES 13 DE NOVIEMBRE PARA 5TO. "C" SECUNDARIA-COLEGIO CLARETIANO-TRUJILLO

2006-11-08T16:52:00.000-08:00

B. ARCHIVOS CON TIPO:
Los archivos con tipo o tipificados son archivos que contienen datos de un tipo particular, tales como enteros, reales registros, etc. Estos archivos valiosos pueden hacer más fácil y más eficiente su programación. De hecho, los archivos con tipo, proporcionan entradas y salidas mucho más rápidas de las que hacen los archivos de texto.
A diferencia de los archivos de texto que no son estructurados, los archivos tipificados tienen una estructura rígida que depende, y se define, según el tipo de datos que ellos mantienen.

b.1 ESTRUCTURA DEL ARCHIVO:
La diferencia entre un archivo tipo texto y uno con tipo, radica en que el primero está compuesto de líneas de caracteres y el segundo se acomoda en registros con estructuras fijas. La longitud de los registros esta determinada por la cantidad de byte que se necesitan para almacenar el tipo de datos que contendrá el registro.

b.2 DECLARACIÓN DE UN ARCHIVO CON TIPO:
Para declarar un archivo con tipo se realiza con las palabras reservadas FILE OF, su sintaxis es la siguiente:

Var VariableArchivo:FILE OF TipoElementos;

Por Ejemplo:

Var F: FILE OF Integer,

En esta declaración le indica a Free Pascal que su archivo utilizará para almacenar solamente números enteros.

Var March: FILE OF Real;

En esta declaración le indica a Free Pascal que su archivo utilizará para almacenar solamente números reales.

Normalmente no se desea crear archivos que puedan almacenar un solo tipo de datos ya que se requerirían varios archivos, por ejemplo para alguna base de datos: uno para los nombres, otro para los apellidos, otro para la edad, etc. Para evitar este inconveniente es posible usar registros del tipo RECORD, que permiten grabar en un solo registro un grupo de datos que pueden ser de diferentes tipos, uno de tipo INTEGER, uno de tipo STRING, etc.

Los registros del tipo record deben ser declarados antes de las variables en una sección llamada TYPE.
La sección TYPE se escribe antes de la declaración de las variables.
Para crear la tabla de Personal, quedaría así:

Type
Personal=Record
Nombre:String[30];
Direccion:String[30];
Telefono:String[10];
Edad:Integer;
Area:String[12];
Sueldo:Real;
End;

El siguiente paso sería declarar un archive del tipo de Personal, así como una variable del mismo tipo de los que se utilizarán en el archivo.

VAR
Archivo: FILE OF Personal;
DatosPersonal: Personal;

b.3 ASIGNACIÓN DE UN ARCHIVO:

Sintaxis:
Assign (Archivo, ‘Nombre.ext’);

Nombre.ext puede ser una constante, una variable o estar escrita directamente en el programa. Naturalmente debe cumplir con todas las reglas para nombrar un archivo.

b.4 ABRIR ARCHIVOS:

En este caso de querer abrir un archivo, se pueden utilizar las funciones:
Reset: Permite abrir un archivo ya existente en el disco. En este tipo de archivos, esta función permite la lectura y la escritura.
Rewrite: Se comporta igual que con los archivos de texto. Si el archivo asignado ya existe se eliminará del disco toda la información y se creará uno nuevo.
Nota:
En estos tipos de archivos no se utiliza Append.

b.5 REGISTRO ACTUAL Y TAMAÑO DE UN ARCHIVO:
La función FILESIZE regresa el tamaño de un archivo, o mejor dicho devuelve el número de registros contenidos en éste. Al momento de abrir un archivo nuevo la función FILESIZE regresa el valor de 0, lo que significa que el archivo no tiene datos guardados en él.

Sintaxis:

FileSize(VariableArchivo);

b.6 POSICIONAMIENTO EN UN REGISTRO DETERMINADO:
Cada uno de los registros de un archivo esta referenciado por un número específico comenzando desde el registro 0 y aumentando de 1 en 1.
La función FILEPOS devuelve el número del registro actual.

Sintaxis:
FILEPOS(VariableArchivo);

Entre otras funciones útiles tenemos:

Función Seek:
Se utiliza para moverse a un registro determinado con la siguiente sintaxis:

Seek(VariableArchivo,FileSize(VariableArchivo));

Cuando se avanza en un archivo registro por registro se utiliza la función EOF( ) para determinar si ya se llegó al final del archivo.

b.7 LECTURA Y ESCRITURA DE ARCHIVOS:

Para lectura y escritura en un archivo con tipo se utilizan los procedimientos Read y Write. Después de cada operación de lectura o escritura el puntero se posiciona en el siguiente registro. Para estar seguros de que se leerá el registro que se desea se debe emplear el procedimiento Seek antes de cualquier procedimiento de lectura o escritura.

b.8 CERRAR UN ARCHIVO:

Para cerrar los archivos abiertos se procede igual que en uni de tipo texto, utilizando el procedimiento CLOSE.

Sintaxis:

CLOSE(VariableArchivo);

Ejemplo 1: Escribe los datos de un registro en un archivo.

Program EscribirunArchivoConTipo;
Uses Crt, SysUtils;
Const
NomArchivo=’/root/agenda.dat’;
Type
TAgenda=Record
Nombre:String[30];
Direc:String[30];
Telef:String[12];
Email:String[30];
Edad:Integer;
End;
Var
ArchAgenda: File Of TAgenda;
DatAgenda:Tagenda;
Num,i:Integer;
Begin
Assign(ArchAgenda,NomArchivo);
If not FileExists(NomArchivo) Then
Rewrite(ArchAgenda)
Else
Reset(ArchAgenda);
Write(‘Cuantos registros desea ingresar a la agenda: ‘);
Readln(Num);
For I:=1 to Num Do
Begin
Write(‘Introduzca el Nombre: ‘);Readln(DatAgenda.Nombre);
Write(‘Introduzca la Dirección: ‘);Readln(DatAgenda.Direc);
Write(‘Introduzca el Telefono: ‘);Readln(DatAgenda.Telef);
Write(‘Introduzca su dirección electronica: ‘);Readln(DatAgenda.Email);
Write(‘Introduzca su Edad: ‘);Readln(DatAgenda.Edad);
Write(ArchAgenda,DatAgenda);
Writeln;
End;
Close(ArchAgenda);
Readkey
End.

Ejemplo 2: Lectura de los datos del archive del ejemplo 1

Program LeerunArchivoConTipo;
Uses Crt, SysUtils;
Const
NomArchivo=’/root/agenda.dat’;
Type
TAgenda=Record
Nombre:String[30];
Direc:String[30];
Telef:String[12];
Email:String[30];
Edad:Integer;
End;
Var
ArchAgenda:File Of TAgenda;
DatAgenda:Tagenda;
i:Integer;
Begin
Assign(ArchAgenda,NomArchivo);
If not FileExists(NomArchivo) Then
Writeln(‘El Archivo ‘,NomArchivo,’ No existe’)
Else
Begin
Reset(ArchAgenda);
For I:=1 to FileSize(ArchAgenda) Do
Begin
Read(ArchAgenda,DatAgenda);
Writeln(‘Nombre: ‘,DatAgenda.Nombre);
Writeln(‘ Dirección: ‘,DatAgenda.Direc);
Writeln(‘Telefono: ‘,DatAgenda.Telef);
Writeln(‘Email: ‘,DatAgenda.Email);
Writeln(‘Edad: ‘, DatAgenda.Edad);
Writeln;
End;
Close(ArchAgenda);
End;
Readkey
End.

Ejemplo: 3: Para leer el archive en sentido inverso al habitual, puesto que Read adelanta el cursor de lectura automáticamente que vamos leyendo, necesitamos la función SEEK.

Program LeerunArchivoConTipoAlreves;
Uses Crt, SysUtils;
Const
NomArchivo=’/root/agenda.dat’;
Type
TAgenda=Record
Nombre:String[30];
Direc:String[30];
Telef:String[12];
Email:String[30];
Edad:Integer;
End;
Var
ArchAgenda:File Of TAgenda;
DatAgenda:Tagenda;
i:Integer;
Begin
Assign(ArchAgenda,NomArchivo);
If not FileExists(NomArchivo) Then
Writeln(‘El Archivo ‘,NomArchivo,’ No existe’)
Else
Begin
Reset(ArchAgenda);
For I:=1 to FileSize(ArchAgenda)-1 downto 0 Do
Begin
Seek(Agenda,i);
Read(ArchAgenda,DatAgenda);
Writeln(‘Nombre: ‘,DatAgenda.Nombre);
Writeln(‘ Dirección: ‘,DatAgenda.Direc);
Writeln(‘Telefono: ‘,DatAgenda.Telef);
Writeln(‘Email: ‘,DatAgenda.Email);
Writeln(‘Edad: ‘, DatAgenda.Edad);
Writeln;
End;
Close(ArchAgenda);
End;
Readkey
End.

INTRODUCCION A LOS BLOGUERS

2006-11-06T11:18:00.000-08:00

¿Qué son las bitácoras y por qué deberían importarnos?

La blogósfera constituye uno de los espacios más dinámicos de la Red. Las bitácoras han dejado de ser exclusivamente diarios personales, se han convertido en nuevos medios de comunicación y pueden ser la nueva "next big thing" de la comunicación corporativa.
Las bitácoras, weblogs o blogs, son sitios web estructurados originalmente como diarios personales, basados en enlaces, noticias y opiniones que se actualizan de modo regular, escritos con un estilo informal y subjetivo.
Los bloguers, que constituyen una comunidad fuertemente autoreferencial, tienden a pensar que sólo se leen entre ellos, aunque lo cierto es que las bitácoras se han convertido en un sistema de alerta temprana, no sólo para los medios tradicionales, sino también para otros sectores empresariales, comenzando por la industria informática, lógicamente.
El más popular de los servidores de bitácoras, Blogger (www.blogger.com), lanzado en 1999 por la californiana Pyra, acaba de anunciar la existencia de un millón de usuarios registrados, a los que se suman los más de 50.000 de Radio UserLand (radio.userland.com) que crecen a un ritmo del 10% mensual, y los incontables usuarios de los sistemas independientes Greymatter (www.noahgrey.com/greysoft/) y Movable Type. (www.movabletype.org).
Los directorios y agrupaciones de bitácoras (webrings), revelan una creciente tendencia temática: hay 88 categorías de blogs en Eatonweb Portal (portal.eatonweb.com), así como una incipiente especialización por formatos (audioblogs, photoblogs y videoblogs). Los principales directorios hispanos muestran la vitalidad de este sistema de publicación en el entorno cultural iberoamericano: Bitácoras.net (bitácoras.net), Blogdir (blogdir.com) y Weblogs.com.ar (weblogs.com.ar), entre los principales.
La actualización regular, el carácter informativo, el dominio de los ámbitos temáticos y la mencionada autoreferencialidad (que se manifiesta en el blogroll, listado de bitácoras leídas a diario, el blogtracking, seguimiento de actualizaciones y enlaces cruzados, y la atención a las estadísticas de visitas) ha convertido a las bitácoras en un objetivo privilegiado de los buscadores, muy especialmente de Google (adorado por la comunidad blogui que le dedica bitácoras temáticas, como la imprescindible: google.dirson.com).
La blogósfera tiene, no obstante su propio buscador: Daypop (www.daypop.com), su conferencia académica. BlogTalk (blogtalk.net), su genealogía: BlogTree (www.blogtree.com), y los bloguers cuentan con su test de personalidad: BLOGinality (bloginality.love-productions.com), con su código: The Blogger Code (www.leatheregg.com/bloggercode/) y hasta con su juego del Amigo Invisible (www.awacate.com/amigo/), auténtico boom de visitas estas navidades.
Los bloguers españoles se han mostrado muy activos con motivo de la catástrofe del Prestige, tanto en la organización de la queja, mediante la puesta en marcha del mayor google bombing de la historia de Europa (www.librodenotas.com/mt/prestige.html), como en la gestión de la ayuda, que ha conducido al surgimiento de la ONG MundoActivo(www.mundoactivo.org). La industria informática, la comunidad educativa, los servicios de consultoría, las empresas de marketing, el sector editorial, hollywood, los medios de comunicación y los columnistas más prestigiosos, han comenzado a experimentar en la blogósfera las posibilidades de establecer nuevos vínculos con sus públicos y mercados.
Así es como nace la Blogonomía, entendida no solamente como el modo de convertir a las bitácoras en una fuente de ingresos, sino y sobre todo, como el estudio del impacto de este emergente medio de comunicación horizontal y universal, sobre la actividad económica y sobre la producción y difusión del conocimiento. Hoy, la clave de nuestra cultura y de nuestra economía.

2006-11-03T11:50:00.000-08:00

La Oreja De Van Gogh - La Playa

música que me recurda el primer día que conocí a mi amada esposa

2006-11-03T09:27:00.000-08:00

Especial de Humor - Cluadio, Autori y el Chorri

Riete con los cómicos nacionales

2006-11-03T09:11:00.000-08:00

Claudio Pizarro Comp.

Disfruta los éxitos de nuestro compatriota

2006-11-03T09:03:00.000-08:00

Maradona - Ronaldihno- Zidane

LO Máximo del Fútbol Mundial

2006-11-03T08:52:00.000-08:00

maradona the original

Lo mejor de Diego

2006-11-02T13:35:00.000-08:00

Ricardo Montaner - Castillo azul

Otro exito de Ricardo

2006-11-02T13:33:00.000-08:00

Ricardo Montaner - Sera

Lo mejor de Ricardo

2006-10-31T13:24:00.000-08:00

Shakira - La Tortura (VMAs 2005)

Disfruta este video

2006-10-31T13:21:00.000-08:00

Roberto Carlos

Disfruta de este video

2006-10-31T13:18:00.000-08:00

Pedro Suarez Vertiz - Cuentame (Concierto)

Recuerda este tema

2006-10-31T13:11:00.000-08:00

Yésika Rústika y Chonchi en Castilblanco's Party.

http://www.hluyoch.blogspot.com

CLASE DESARROLLADA EN 5TO. "C" COLEGIO CLARETIANO- LUNES:30/10/06

2006-10-26T10:24:00.000-07:00

ARCHIVOS

1. Definición:
Desde un punto de vista técnico, un archivo es un conjunto de información de un mismo tipo, almacenada en un medio físico, lógicamente estructurada para facilitar su acceso, modificación y eliminación.

2. Tipos de Archivos:
Free Pascal permite trabajar con 3 tipos de archivos:
· Archivos tipo texto.
· Archivos con tipo.
· Archivos sin tipo.
a) Archivos de Tipo Texto:
Los archivos de tipo texto son llamados también archivos de acceso secuencial, están formados por cadenas de caracteres separadas unas de otras por los códigos retorno de carro/salto de línea (RC/SL), la combinación RC/SL (Códigos ASCII 10 y 13) se conoce como delimitador. Un delimitador marca el final de algún elemento como un campo, un registro o una línea. El final del archivo se indica mediante el carácter ASCII 26, que también se expresa como ^Z o EOF.
Los pasos para leer o escribir en un archivo de este tipo son:
· Declarar una variable de tipo texto. Y asociarla al nombre de un archivo. A esto también se le llama declarar el archivo.
· Abrir el archivo ya sea para lectura o escritura.
· Leer o escribir datos en el archivo.
· Cerrar el archivo.
a.1 Declaración de un Archivo:
Para declarar un archivo primero se declara una variable de tipo Text de la siguiente forma:
Sintaxis:
VAR
NOMBRE_ARCHIVO: TEXT;
Por ejemplo:
Var
Archtexto:Text;

Una vez declarada la variable se asigna al nombre de algún archivo para ello se utiliza la función ASSIGN:
Sintaxis:
ASSIGN(VAR_ARCHIVO,’NOMBRE_ARCHIVO’);

Donde:
Nombre_Archivo: Es una cadena de caracteres que contiene el nombre del archive, la unidad de disco donde se encuentra y el directorio.

Por ejemplo, para trabajar bajo el sistema operativo Linux y suponiendo que el archivo en donde se guardará la información se llamará datos.txt y se encuentra en el directorio /root, la asignación sería la siguiente:

Assign(Archtexto,’/root/datos.txt’);

Por ejemplo, para trabajar bajo el sistema operativo Windows y suponiendo que el archivo en donde se guardará la información se llamará datos.txt y se encuentra en la unidad C y dentro del directorio PRACTICAS, la asignación sería la siguiente:

Assign(Archtexto,’C:\practicas\datos.txt’);

a.2 Abrir Archivos:
Pascal, además permite abrir archivos con diferentes finalidades y con diferentes funciones. Existen tres funciones que toman como único parámetro el alias del archivo.

· Rewrite: Abre un archivo para escritura destruyendo el contenido del archivo si este ya existe. Es decir, permite rescribir de nuevo el archivo, sin posibilidad de leer.
Sintaxis:
Rewrite(ArchivoTexto);

Por ejemplo:

Rewrite(Archtexto);

· Reset: Procedimiento que abre un archivo para lectura posicionando el puntero de lectura en el primer elemento del archivo. No permite realizar escritura.
Sintaxis:
Reset(ArchivoTexto);

Por ejemplo:

Reset(ArchTexto);

· Append: Permite añadir datos al final del archivo, es exclusiva de los archivos de texto.
Sintaxis:
Append(ArchivoTexto);

Por ejemplo:

Append(ArchTexto);

a.3. Escribir o leer datos en un archivo:
Para escribir datos a un archivo se utilizan las instrucciones Write y Writeln, como si se quisiera escribir a la pantalla, con la diferencia de que se especificará la variable de archivo ya declarada.

Por ejemplo:

Writeln(ArchTexto,’Este es un ejemplo de escribir o guardar datos’);

Writeln(‘Ingrese su nombre y apellido: ´); Readln(Nombre);
Writeln(Archtexto,N);

Writeln(‘Ingrese su código : ‘); Readln(cod);
Writeln(ArchTexto,’Codigo : ‘,cod);

Para leer datos de un archivo de acceso secuencial se utilizan las instrucciones Read y Readln. La instrucción Read lee uno o varios datos del archivo abierto y deja el puntero en el mismo renglón en el cual leyó los datos, en cambio Readln lee los datos y mueve el puntero al siguiente renglón.

Por Ejemplo:

Readln(ArchTexto, S);

Readln(ArchText, S1,S2,S3);

a.4 Fin del Archivo
Normalmente los archivos de este tipo se leen renglón por renglón hasta llegar al final del mismo. Cuando se conoce de antemano el tamaño del archivo es posible utilizar un ciclo For, pero es más seguro utilizar la función EOF (END OF FILE , FINAL DE ARCHIVO), la cual es verdadera después de que el programa lee la última línea de un archivo de acceso secuencial.
Sintaxis:

EOF (VariableArchivo);

Es común realizar la verificación de la función con un ciclo WHILE como en el ejemplo siguiente:

WHILE NOT EOF(ARCHTEXTO) DO
BEGIN
READLN(ARCHTEXTO,DATOS);
WRITELN(DATOS);
END;

Otro ejemplo utilizando el ciclo For en el cual se conoce con exactitud la cantidad de líneas que tiene el archivo de texto.

…..
For i:=1 to 30 Do
Begin
Readln(Archtexto,datos);
Writeln(datos);
End;
…..
Nota: en este caso se leerán las primeras 30 líneas del archivo de texto.

a.5. Cerrar archivos:
Para asegurar que toda la información se grabe en el disco correctamente es necesario cerrar el archivo antes de que se termine la ejecución del programa, de lo contrario se corre el riesgo de que la última información que se haya accesado no se grabe en su totalidad.

Sintaxis:

Close(ArchivoTexto);

Ejemplo:

Close(ArchTexto);

a.6. Función Eoln:
La función Eoln sirve para verificar si el puntero ha llegado al final de la línea. Regresa el valor verdadero si se encuentra al final. Comúnmente se utiliza en las lecturas carácter por carácter.

a.7. Agregar datos a un archivo de tipo texto:
Para añadir datos a un archivo de texto son necesarios los siguientes pasos:
· Asignar un archivo a una variable con ASSIGN
· Agregar los datos con el procedimiento APPEND
· Escribir datos
· Cerrar el archivo.

Ejemplos:
1. Programa que guarda la palabra “Archivos en Pascal” dentro del archivo datos.txt que se encuentra en la unidad C: y dentro del directorio o carpeta Respaldo.

Program ejemplo1;
Uses Crt, Sysutils;
Var
Atexto:Text;
Begin
Clrscr;
Assign(Atexto,’C:\Respaldo\datos.txt’);
Append(Atexto);
Writeln(Atexto,’Archivos en Pascal ‘);
Close(Atexto);
Readkey;
End.
En el siguiente ejemplo también guarda la información pero elimina la información que existe en el archivo.

Program ejemplo1;
Uses Crt, Sysutils;
Var
Atexto:Text;
Begin
Clrscr;
Assign(Atexto,’C:\Respaldo\datos.txt’);
Rewrite(Atexto);
Writeln(Atexto,’Archivos en Pascal ‘);
Close(Atexto);
Readkey;
End.

2. Programa que lee los datos del archivo datos.txt, el cual se encuentra en la unidad C: y dentro del directorio Respaldo.

Program ejemplo2;
Uses Crt, Sysutils;
Var
Atexto:Text;
S:String;
Begin
Clrscr;
Assign(Atexto,’C:\Respaldo\datos.txt’);
Reset(Atexto);
Readln(Atexto,S);
Writeln(S);
Close(Atexto);
Readkey;
End.

Nota: En el programa del ejemplo 2, solamente va a leer e imprimir la primera línea del archivo de texto.

3. Programa que graba o escribe los datos de un alumno (código, nombre y teléfono) en el archivo denominado alumno.dat. El programa deberá terminar cuando en el ingreso del código se presione .

Program Ejemplo3;
Uses Crt,SysUtils;
Var
Archtext:Text;
Cod:String[4];
Nom:String[30];
Telef:String[11];
Begin
Clrscr;
Assign(Archtext,’/root/alumno.dat’);
Append(Archtext);
Repeat
Clrscr;
Write(‘Ingrese Codigo: ‘); Readln(Cod);
If Cod<>’’ Then
Begin
Write(‘Ingrese su Nombre: ‘);Readln(nom);
Write(‘Ingrese su Telefono: ‘);Readln(Telef);
Writeln(Archtext,Cod);
Writeln(Archtext,Nom);
Writeln(Archtext,Telef);
End;
Until cod=’’;
Close(Archtext);
Readkey;
End.

4. Programa que realiza la lectura de todos los datos guardados en el programa anterior en el archivo alumno.dat.

Program Ejemplo4;
Uses Crt,SysUtils;
Var
Archtext:Text;
S:String;
Begin
Clrscr;
Assign(Archtext,’/root/alumno.dat’);
Reset(Archtext);
While Not Eof(Archtext) Do
Begin
Readln(Archtext,S);
Writeln(S);
End;
Close(Archtext);
Readkey;
End.

PRACTICA REALIZADA CON 5TO. "C" - REFERENTE A LOS EQUIPOS DE FUTBOL

2006-09-15T08:28:00.000-07:00

program foooootballll;
uses crt;
(*AUTOR : DIEGO CUEVA CHAMORRO*)
(*COLEGIO CLARETIANO - TRUJILLO*)
(*QUINTO GRADO DE SECUNDARIA*)
(*FECHA: 13/09/06*)
type
arr=array[1..6,1..3] of integer;
nom=array[1..6] of string;
var
a:arr;
n:nom;
i,j,x,y,gf,gc,d,may,c,pos:integer;

begin
clrscr;
randomize;
n[1]:='Barcelona';
n[2]:='Real Madrid';
n[3]:='Milan';
n[4]:='Chelsea';
n[5]:='Arsenal';
n[6]:='Hamburgo';
for i:=1 to 6 do
begin
writeln;
writeln('======================');
writeln('equipo : ',n[i]);
writeln('resultados de partidos');
writeln('======================');

for j:=1 to 6 do
begin
if j<>i then
begin
writeln;
writeln('contra ',n[j]);
gf:=random(13);
gc:=random(13);
writeln('goles a favor : ',gf);
writeln('goles en contra : ',gc);
a[i,1]:=a[i,1]+gf;
a[i,2]:=a[i,2]+gc;
d:=gf-gc;
a[i,3]:=a[i,3]+d;
end;
readkey;
end;

end;
clrscr;
writeln('resultados');
y:=4;
gotoxy(3,y); write('equipo');
gotoxy(21,y); write('GF');
gotoxy(27,y); write('GC');
gotoxy(33,y); write('DG');
writeln;
writeln('===================================');
y:=y+4;
for i:= 1 to 6 do
begin
gotoxy(3,y); write(n[i]);
gotoxy(20,y); write(a[i,1]:3);
gotoxy(26,y); write(a[i,2]:3);
gotoxy(32,y); write(a[i,3]:3);
y:=y+1;
end;

readkey;

may:=-100;
c:=0;
for i:=1 to 6 do
begin
if a[i,3]>may then
begin
may:=a[i,3];
c:=1;
pos:=i;
end
else
begin
if a[i,3]=may then
c:=c+1;
end;
end;

writeln;
writeln;

if c=1 then
writeln('- El ganador es el ',n[pos],', con diferencia de goles ',may)
else
writeln('- Hay un empate entre ',c,' equipos, con diferencia de goles de ',may);
readkey;
end.

EJERCICIO 4TO. SECUNDARIA -CLARETIANO

2006-09-12T08:11:00.000-07:00

program eje;
(*AUTOR: RENZO CACERES SEMINARIO
GRADO: 4TO. SECUNDARIA – COLEGIO CLARETIANO – TRUJILLO
FECHA: 12/09/2006*)
uses crt;
const nulo='';
type trabajador=record
nom,a,cod:string[30];
he:integer;
sb,sbr,phe,afp,mv,dscto,sn:real;
end;
reg1 = array [1..1000] of trabajador;
var tra:trabajador;
empleado:reg1;
sw,c,i:integer;
begin
clrscr;
writeln('AUTOR: RENZO CACERES SEMINARIO');writeln;
repeat
write('Codigo: ');readln(tra.cod);
if tra.cod<>nulo then
begin
with tra do
begin
write('Nombre: ');readln(nom);
write('Area: ');readln(a);
write('Sueldo Basico: ');readln(sb);
write('Horas Extras: ');readln(he);
c:=c+1;
empleado[c]:=tra;
clrscr;
end;
end;
until (tra.cod=nulo) or (c>=1000);
for i:=1 to c do
begin
with empleado[i] do
begin
phe:=(he*sb)/240;
sbr:=sb+phe;
afp:=0.13*sb;
mv:=0.13*sb;
dscto:=afp+mv;
sn:=sbr-dscto;
end;
end;
clrscr;
for i:=1 to c do
begin
with empleado[i] do
begin
gotoxy(2,2);write('Empleado: ',nom);
gotoxy(2,4);write('Area: ',a);
gotoxy(2,6);write('Ingresos ');
gotoxy(29,6);write('Deducciones ');
gotoxy(60,6);write('Neto ');
gotoxy(2,8);write('Sueldo Basico: ',sb:4:2);
gotoxy(30,8);write('AFP: ',afp:15:2);;
gotoxy(2,10);write('Horas Extras: ',phe:7:2);
gotoxy(30,10);write('Mi Vivienda: ',mv:7:2);
gotoxy(15,12);write(sbr:8:2);
gotoxy(45,12);write(dscto:4:2);
gotoxy(60,12);write(sn:4:2);
end;
end;
readkey;
end.

PROGRAMA REINAS DE BELEZA - PARA 5TO. "C"- CLARETIANO

2006-09-11T11:58:00.000-07:00

Program Reinas;
Uses Crt;
(*Autor: Héctor Luyo CH.*)
(*Grado: Quinto de Secundaria "C"*)
(*Fecha: 11/09/06*)
Type
matriz=Array[1..12,1..4] of Integer;
Vector=Array[1..12] of Integer;
Var m1:matriz;
v1:vector;
i,j,x,y,pos,sw,may,c:Integer;
Begin
clrscr;
Randomize;
For i:=1 to 12 Do
Begin
For j:=1 to 4 Do
Begin
m1[i,j]:=random(11);
v1[i]:=v1[i]+m1[i,j];
End;
End;
gotoxy(4,2);Writeln('Nro.');
gotoxy(11,2);write('B.');
gotoxy(16,2);write('I.');
gotoxy(21,2);write('C.');
gotoxy(26,2);write('D.');
gotoxy(33,2);write('Ptos.');
For i:=1 to 12 do
begin
gotoxy(5,i+3);write(i);
end;
y:=4;
For i:=1 to 12 Do
Begin
x:=10;
For j:=1 to 4 Do
Begin
gotoxy(x,y); write(m1[i,j]:2,' ',v1[i]:4);
Inc(x,5);
End;
Inc(y); may:=0;
End;
For I:=1 to 12 do
Begin
If v1[i]> may then
Begin
may:=v1[i];
pos:=i
end;
end;
v1[pos]:=0;
SW:=0; c:=1;
for i:=1 to 12 do
Begin
If may=v1[i] then
Begin
sw:=1;
c:=c+1;
End;
End;
Writeln;writeln;
If SW=0 then
Writeln('La Ganadora es la candidata Nro. : ',pos,' con ',may, ' puntos')
Else
writeln('No hay ganadora, exite empate entre ',c,' candidata(s)',' con ', may,' puntos');
Readkey
End.

PROGRAMA PARA 4TO DE SECUNDARIA

2006-09-05T08:26:00.000-07:00

(*PROGRAMA TRABAJADO EN EL LABORATORIO EL DIA: 06-09-06*)

Program Regalumnos;
Uses Crt;
(* Autor: H‚ctor Luyo Ch.*)
(*Profesor: Colegio Claretiano - Trujillo*)
(*Grado: 4to. Secundaria*)
(*Fecha: 05/09/06*)
Type
Alumnos=Record
cod:String[4];
Nom:String[30];
sex:Char;
pp,ep,ef:Integer;
prom:Real;
End;
Arreglo=Array[1..40] of Alumnos;
Var Dalum:Arreglo;
n,i,ha,hd,ma,md,ta,td:Integer;
Begin
Clrscr;
Repeat
Clrscr;
Write('Ingrese Nro. de alumnos a procesar <= 40 : ');
Readln(n);
Until n<= 40 ;
Clrscr;
For i:= 1 to n do
Begin
With Dalum[i] do
Begin
Clrscr;
Write('Codigo : ');Readln(Cod);
Write('Nombre : ');Readln(Nom);
Write('Sexo : ');
Repeat
sex:=Upcase(Readkey);
Until sex In['H','M'];
writeln(sex);
Write('Promedio de Pr cticas : ');Readln(pp);
Write('Ex men Parcial : ');Readln(ep);
Write('Ex men Final : ');Readln(ef);
End;
End;
For i:= 1 to n do
Begin
With Dalum[i] do
Begin
prom:=(pp*2+ep*2+ef*3)/7;
End;
End;
For i:= 1 to n do
Begin
With Dalum[i] do
Begin
If prom>=11 Then
Begin
Case Sex Of
'H':ha:=ha+1;
'M':ma:=ma+1;
End;
End
Else
Begin
Case Sex Of
'H':ha:=ha+1;
'M':ma:=ma+1;
End;
End;
End;End;
Clrscr;
Writeln('REPORTE DE ALUMNOS APROBADOS ');
For i:= 1 to n do
Begin
With Dalum[i] do
Begin
If prom>=11 Then
Begin
Writeln('Codigo : ',Cod);
Writeln('Nombre : ',Nom);
Writeln('Sexo : ',sex);
Writeln('Promedio : ',prom:4:2);
Writeln('Presione una Tecla......>');Readkey;
End;
End;
End;
Clrscr;
Writeln('REPORTE DE ALUMNOS DESAPROBADOS ');
For i:= 1 to n do
Begin
With Dalum[i] do
Begin
If prom<11 Then
Begin
Writeln('Codigo : ',Cod);
Writeln('Nombre : ',Nom);
Writeln('Sexo : ',sex);
Writeln('Promedio : ',prom:4:2);
Writeln('Presione una Tecla......>');Readkey;
End;
End;
End;
Writeln;
Writeln('Total de Hombres Aprobados : ',ha);
Writeln('Total de Mujeres Aprobadas : ',ma);
Writeln('Total de Alumnos Aprobados : ',ta);
Writeln('Total de Hombres Desaprobados : ',hd);
Writeln('Total de Mujeres Desaprobadas : ',md);
Writeln('Total de Alumnos Desaprobados : ',td);
Readkey;
End.