ZONA EXTREMA
LA PRACTICA HACE AL MAESTRO

Feb
10

#include
#include
#include
#include
#include
#include
FILE *arch;
char palabra[50]; int i;
//mostrar el archi inverso
void mostrarb()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”r”);
if (arch==NULL){
puts(“no se encuentra elarchivo”);
getch();
exit(0); }
else{
int i=1;
while(!feof(arch)){
fgets(palabra,50,arch);
gotoxy(30,1+i);
strrev(palabra);
printf(palabra);
i=i+1;
}
fclose(arch);
// getch();
}
}
// mostrar los datos de un archivo
void mostrar()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”r”);
if (arch==NULL){
puts(“no se encuentra elarchivo”);
getch();
exit(0); }
else{
int i=1;
while(!feof(arch)){
fgets(palabra,50,arch);
gotoxy(30,1+i);
printf(palabra);
i=i+1;
}
fclose(arch);
// getch();
}
}
//agregar datos al archivo
void agregar()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”a+”);
if (arch==NULL){
puts(“se agrego elemento al archivo”);
getch();
exit(0);}
else{
clrscr();
puts(“escribe un nombre”);
gets(palabra);
strrev(palabra);
fprintf(arch,”%s\n”,palabra);
}
getch();
fclose(arch);
}
//crear un archivo
void crear()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”w”);
if (arch==NULL){
puts(“no se pudo crear el archivo”);
getch();
exit(0);}
else{
puts(“archivo creado”);}
getch();
fclose(arch);
}
//Menu de opciones
void menu()
{
int op=0;
while (op!=4){
clrscr();
puts(” MENU PRINCIPAL “);
puts(“1. Crear un archivo”);
puts(“2. Agregar datos”);
puts(“3. Mostrar datos”);
puts(“4. mostrar datos inv”);
puts(“5. Salir”);
puts(“Elige una opcion____ “);
scanf(“%d”,&op);
switch(op){
case 1: crear();
break;
case 2: agregar();
break;
case 3: mostrar();
break;
case 4: mostrarb();
break;
case 5: clrscr();
puts(“Adios”);
break;
default:clrscr();
puts(“Opcion inexistente”);
}
getch();
}
}

//ejecucion de menu
void main()
{
clrscr();
menu();
}

Feb
04

#include
#include
#include
#include
#include
#include
FILE *arch;
char palabra[100]; int i;
// mostrar los datos de un archivo
void mostrar()
{
clrscr();
arch=fopen(“c:5tosist/exam2p.txt”,”r”);
if (arch==NULL){
puts(“no se encuentra elarchivo”);
getch();
exit(0); }
else{
int i=1;
while(!feof(arch)){
fgets(palabra,100,arch);
gotoxy(30,1+i);
puts(“palabra”);
i=i+1;
}
fclose(arch);
getch();
}
}
//agregar datos al archivo
void agregar()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”a+”);
if (arch==NULL){
puts(“se agrego elemento al archivo”);
getch();
exit(0);}
else{
clrscr();
puts(“escribe un nombre”);
gets(palabra);
strrev(palabra);
fprintf(arch,”%s\n”,palabra);
}
getch();
fclose(arch);
}
//crear un archivo
void crear()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”w”);
if (arch==NULL){
puts(“no se pudo crear el archivo”);
getch();
exit(0);}
else{
puts(“archivo creado”);}
getch();
fclose(arch);
}
//Menu de opciones
void menu()
{
int op=0;
while (op!=4){
clrscr();
puts(” MENU PRINCIPAL “);
puts(“1. Crear un archivo”);
puts(“2. Agregar datos”);
puts(“3. Mostrar datos”);
puts(“4. Salir”);
puts(“Elige una opcion____ “);
scanf(“%d”,&op);
switch(op){
case 1: crear();
break;
case 2: agregar();
break;
case 3: mostrar();
break;
case 4: clrscr();
puts(“Adios”);
break;
default:clrscr();
puts(“Opcion inexistente”);
}
getch();
}
}

//ejecucion de menu
void main()
{
clrscr();
menu();
}

Mar
19

cargadores-y-ligadores

ensambladores-y-macroensambladores

Feb
04

#include
#include
#include
#include
#include
#include
FILE *arch;
char palabra[100],dato[50]; int i;
// mostrar los datos de un archivo
void mostrar()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”r”);
if (arch==NULL){
puts(“no se encuentra elarchivo”);
exit(0); }
else{
int i=1;
while(!feof(arch)){
fgets(palabra,150,arch);
gotoxy(30,1+i);
puts(palabra);
i=i+1;
}
fclose(arch);
getch();
}
}
//agregar datos al archivo
void agregar()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”a+”);
if (arch==NULL){
puts(“se agrego elemento al archivo”);

exit(0); }
else {
clrscr();
puts(“escribe un nombre”);
cin>>palabra;
puts(“escribe una palabra”);
cin>>dato;
strcat(palabra,dato) ;
fprintf(arch,”%s\n”,palabra,dato);
}
getch();
fclose(arch);
}
//crear un archivo
void crear()
{
clrscr();
arch=fopen(“c:/5tosist/exam2p.txt”,”w”);
if (arch==NULL){
puts(“no se pudo crear el archivo”);
exit(0);}
else{
puts(“archivo creado”);}
getch();
fclose(arch);
}
//Menu de opciones
void menu()
{
int op=0;
while (op!=4){
clrscr();
puts(” MENU PRINCIPAL “);
puts(“1. Crear un archivo”);
puts(“2. Agregar datos”);
puts(“3. Mostrar datos”);
puts(“4. Salir”);
puts(“Elige una opcion____ “);
scanf(“%d”,&op);
switch(op){
case 1: crear();
break;
case 2: agregar();
break;
case 3: mostrar();
break;
case 4: clrscr();
puts(“Adios”);
break;
default:clrscr();
puts(“Opcion inexistente”);
}
getch();
}
}

//ejecucion de menu
void main()
{
clrscr();
menu();
}

Sep
03

Una mujer de nombre Mary Ellen, experimentó en cierta ocasión una gran carga. Se sentía turbada que no podía dormir ni comer, arriesgaba su salud física y emocional, estaba a punto de una crisis nerviosa. Sin embargo, pudo reconocer que ella nada podía hacer para cambiar sus circunstancias.

Entonces leyó en una revista la historia de otra mujer llamada Connie, quien también había experimentado grandes dificultades en su vida. En el relato, una amiga le preguntó a Connie, cómo pudo soportar la carga de dichos problemas. Connie respondió: “Llevo mis contrariedades al Señor”.

Su amiga le respondió: “Por supuesto, es lo que debemos hacer”.

Entonces Connie continuó diciendo: “Pero no tan solo debemos llevarlas ante Él. Debemos dejar nuestros problemas con el Señor”.

No solo debemos dejar nuestros problemas con el Señor; no debemos quedarnos con ninguno.

Se cuenta una divertida historia sobre un anciano que juró que nunca viajaría en avión. Sin embargo, cierto día se presentó una emergencia y le fue necesario llegar con urgencia a una ciudad lejana. La vía más rápida de lograrlo era por aire, por supuesto, así que compró el boleto y se embarcó en su primer viaje de avión.

Conociendo su renuencia a viajar, cuando sus parientes lo recibieron en el aeropuerto le preguntaron cómo había estado el vuelo, a lo que el anciano respondió: “Supongo que bien, pero les diré una cosa, en ningún momento deposité todo mi peso sobre el asiento”.

¡El Señor desea que eches todas tus cargas sobre Él y que allí las dejes! Él anhela que también le entregues el peso completo de tus problemas. Entonces, podrás continuar tu vida con la plena confianza, de que Él, cuidará de aquellas cosas que le has encargado.

Salmos 55:22
Echa sobre el Señor tu carga y Él te sustentará

Abr
03

 

 

bloc de notas

Private Sub cbMayusculas_Click()
If Text1.Text = UCase(Text1) Then
Text1.Text = LCase(Text1)
Else
Text1.Text = UCase(Text1)
End If
End Sub

Private Sub cbTachado_Click()
If Text1.FontStrikethru = True Then
Text1.FontStrikethru = False
Else
Text1.FontStrikethru = True
End If
End Sub

Private Sub cmbFuente_Click()
If cmbFuente.Text = “Arial” Then
    Text1.FontName = “Arial”
End If
    If cmbFuente.Text = “Arial Black” Then
        Text1.FontName = “Arial Black”
    End If
        If cmbFuente.Text = “Castellar” Then
            Text1.FontName = “Castellar”
        End If
            If cmbFuente.Text = “Forte” Then
                Text1.FontName = “Forte”
            End If
                If cmbFuente.Text = “Garamond” Then
                    Text1.FontName = “Garamond”
                End If
                    If cmbFuente.Text = “Georgia” Then
                        Text1.FontName = “Georgia”
                    End If
                        If cmbFuente.Text = “Goudy stout” Then
                            Text1.FontName = “Goudy stout”
                        End If
End Sub

Private Sub cmbTamaño_Click()
If cmbTamaño.Text = “8” Then
    Text1.FontSize = “8”
End If
    If cmbTamaño.Text = “10” Then
        Text1.FontSize = “10”
    End If
        If cmbTamaño.Text = “12” Then
            Text1.FontSize = “12”
        End If
            If cmbTamaño.Text = “14” Then
                Text1.FontSize = “14”
            End If
                If cmbTamaño.Text = “16” Then
                    Text1.FontSize = “16”
                End If
                    If cmbTamaño.Text = “18” Then
                        Text1.FontSize = “18”
                    End If
                        If cmbTamaño.Text = “20” Then
                            Text1.FontSize = “20”
                        End If
End Sub
Private Sub cmdNegrita_Click()
If Text1.FontBold = True Then
    Text1.FontBold = False
Else
    Text1.FontBold = True
End If
End Sub

Private Sub cmdCursiva_Click()
If Text1.FontItalic = True Then
    Text1.FontItalic = False
Else
    Text1.FontItalic = True
End If
End Sub

Private Sub cmdSubrayado_Click()
If Text1.FontUnderline = True Then
    Text1.FontUnderline = False
Else
    Text1.FontUnderline = True
End If

End Sub

Private Sub cmdIzquierda_Click()
Text1.Alignment = 0
End Sub

Private Sub cmdCentrar_Click()
Text1.Alignment = 2
End Sub

Private Sub cmdDerecha_Click()
Text1.Alignment = 1
End Sub

Private Sub cmdSalir_Click()
res = MsgBox(“Estas seguro”, vbOKCancel, “Salir”)
If res = vbOK Then
End
Else
End If
End Sub

Private Sub Command1_Click()
Printer.Print “text1.text”
End Sub


Private Sub obRojo_Click()
Text1.ForeColor = vbRed
End Sub

Private Sub obAzul_Click()
Text1.ForeColor = vbBlue
End Sub

Private Sub obNegro_Click()
Text1.ForeColor = vbBlack
End Sub

 

 

 

Ene
30

DE TI DEPENDE

Unos obreros estaban picando piedras frente a un enorme edificio en construcción. Se acercó un visitante a uno de los obreros y le preguntó:
-¿Qué están haciendo ustedes aquí?

El obrero lo miró con dureza y le respondió:

-¿Acaso usted está ciego para no ver lo que hacemos? Aquí, picando piedras como esclavos por un sueldo miserable y sin el menor reconocimiento. Vea usted ese mismo cartel. Allá ponen los nombres de Ingenieros, Arquitectos, pero no ponen los nuestros que somos los que trabajamos duro y dejamos en la obra el pellejo.

El visitante se acercó entonces a otro obrero y le preguntó lo mismo.

-Aquí, como usted bien puede ver, picando piedras para levantar este enorme edificio. El trabajo es duro y está mal pagado, pero los tiempos son difíciles, no hay mucho trabajo y algo hay que hacer para llevar la comida a los hijos.

Se acercó el visitante a un tercer obrero y una vez más le preguntó lo que estaba haciendo. El hombre le contestó con gran entusiasmo:

-Estamos levantando un Hospital, el más hermoso del mundo. Las generaciones futuras lo admirarán impresionados y escucharán el entrar y salir constante de las ambulancias, anunciando el auxilio de Dios para los hombres. Yo no lo veré terminado, pero quiero ser parte de esta extraordinaria aventura.

El mismo trabajo, el mismo sueldo, la misma falta de reconocimiento; una misma realidad. Tres maneras distintas de vivirla: como esclavitud; como resignación; como pasión, aventura y desafío.

Depende de tí que haces cada mañana, cuando te levantas.
Tenemos la elección; Podemos pasar el día quejándonos, repasando la dificultad que tenemos con la cosas que no funcionan, o salir de la cama y estar agradecido por las que sí funcionan”.

Vivamos con ilusión, convirtamos el trabajo en una bendición, sintámonos parte de la extraordinaria obra planteada por el Ingeniero Supremo..!

Colosenses 3:23
Y todo lo que hagáis, hacedlo de ánimo, como al Señor, y no á los hombres.

Gálatas 6:7 “No os engañeis: Dios no puede ser burlado: que todo lo que el hombre sembrare, eso también segará.”

Agradecimiento especial por su aporte para Alejandra Chapa -.México.

Dic
13

/* en este programa tenemos un menu usando el do while, switch y case, simalaremos una calculadora al introducir el tipo de caracter que introduscamos sera la operacion*/

import java.util.Scanner;
class operaciones
{
  public static void main(String arg[])
 {Scanner leer=new Scanner(System.in);
 char opc;
 int n1,n2;
 float r;
 do
 {
  System.out.println(“——operaciones——-“);
  System.out.println(“+)suma”);
  System.out.println(“-)resta”);
  System.out.println(“/)divicion”);
  System.out.println(“*)multiplicasion”);
  System.out.println(“@)salida”);
  System.out.print(“opcion_____________”);
  String temp=leer.next();
   opc= temp.charAt(0);
     switch(opc)
   {
      case ‘+’:
       System.out.println(“”);
      System.out.println(“dame un valor”);
       n1=leer.nextInt();
       System.out.println(“dame otro valor”);
       n2=leer.nextInt();
       r=n1+n2;
       System.out.println(“el resultado de “+n1+”+”+n2+” es “+r);
       System.out.println(“”);
       break;
     case ‘-‘:
       System.out.println(“”);
       System.out.println(“dame unvalor”);
       n1=leer.nextInt();
       System.out.println(“dame otro valor”);
       n2=leer.nextInt();
       r=n1-n2;
       System.out.println(“el resultado de “+n1+”-“+n2+” es “+r);
       System.out.println(“”);
       break;
     case ‘/’:
       System.out.println(“”);
       System.out.println(“dame unvalor”);
       n1=leer.nextInt();
       System.out.println(“dame otro valor”);
       n2=leer.nextInt();
       r=n1/n2;
       System.out.println(“el resultado de “+n1+”/”+n2+” es “+r);
       System.out.println(“”);
       break;
     case ‘*’:
       System.out.println(“”);
       System.out.println(“dame unvalor”);
       n1=leer.nextInt();
       System.out.println(“dame otro valor”);
       n2=leer.nextInt();
       r=n1*n2;
       System.out.println(“el resultado de “+n1+”*”+n2+” es “+r);
       System.out.println(“”);
       break;
       default:System.out.println(“salida”);
       break;
   }
    
 }while(opc!=’@’);
  
 }
}

Nov
16
Oct
17

/*Realizar un programa que encuentre todos
 *los números primos menores que un número dado.*/
import java.util.Scanner;
class Menores
{
 public static void main(String[] args)
 {Scanner as=new Scanner(System.in);
 int a;
 System.out.println(“Dame un numero”);
 a=as.nextInt();
 if(a%2==0)
  {
  for(a-=2; a>=0; a-=2)
   {
   System.out.print(a+”,”);
   }
  }
     
      if(a%2==1)
   {
    a-=1;
   for(a-=0; a>=0; a-=2)
    {
    System.out.print(a+”,”);
    }
   }
  
 }
}