ZONA EXTREMA
LA PRACTICA HACE AL MAESTRO

examen2 de compiladores (concatena)

#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();
}

Ninguna respuesta to “examen2 de compiladores (concatena)”

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: