NUESTRA VISION

es poder lograr atenderle con la mejor calidad en porducto y con la atencion que usted se merece como cliente y poder dejarlo satisfecho y llegar llegar hacer una de las librerias mas buscada en ESTANZUELA por los clientes.

DIFERENTES TIPOS DE UTILES

martes, 29 de julio de 2008

programas de pascal.

PROGRAMA 1:Realizar un programa en pascal, que permita llevar el control de los datos de los estudiantes del Instituto Tecnológico por Cooperativa de Enseñanza de Estanzuela. Debe presentar un menú principal donde permita elegir entre: Ingresar Datos, Ver Datos Ingresados y Salir del Programa.Los datos que debe ingresar son: Código del Estudiante, Nombre, Fecha de Nacimiento, Grado que Cursa, Sexo, Nombre de la madre, Nombre del padre.Si elijo la opción Ver Datos Ingresados, debe presentar otro menú, donde pueda escoger entre dos opciones: Ver datos de un estudiante, o ver todos. Si mi elección es ver datos de un estudiante, me debe preguntar de cual estudiante y yo indicar de cual para que me lo muestre, de lo cual, ustedes elijen si pide ingresar el código, o el nombre del estudiante a mostrar.Ahora bien, si elijo ver todos, que me muestre todos los datos ingresados, por su puesto, debe ser ordenadamente.Opciòn 3, ovbiamente, sale del programa.

program asistencia;
uses crt;
var a,b,c,d,f: integer;
matta:array[1..800] of string;
morales:array[1..800] of string;
luis:array[1..800] of string;
fernando:array[1..800] of string;
mat:array[1..800] of string;
mora:array[1..800] of string;
begin
a:=0;
repeat
repeat
writeln('1 ingresar los datos del estudiante');
writeln('2 ver datos del estudiante');
writeln('3 salir del programa');
readln(b);
if(b<1)or(b>3)then
writeln('igrese otro numero');
until (b>=1) and (b<=3);
if(b=1) then
begin
a:=a+1;
writeln('el codigo del estudiante es',a) ;
write;writeln('ingresar el nombre del estudiante');
readln(matta[a]);
write;
writeln('fecha de nacimiento');
readln(morales[a]);
write;
writeln('grado que cursa');
readln(luis[a]);
write;
writeln('sexo');
readln(fernando[a]);
write;
writeln('nombre de la madre');
readln(mat[a]);
write;writeln('nombre del padre');
readln(mora[a]);
write;
end;
if(b=2) then
begin
repeat
writeln('1 verdatos del estudiante');
writeln('2 ver todos los datos');
readln(c);
if(c<1)or(c>2)then
writeln('ingrese el numero correcto');
until(c>=1) and (c<=2);
writeln;
if(c=1) then
writeln('ingrese el codigo del estudiante');
readln(a);
writeln('nombre',matta[a]);
writeln('fecha de nacimiento',morales[a]);
writeln('grado que cursa',luis[a]);
writeln('sexo',fernando[a]);
writeln('nombre del madre',mat[a]);
writeln('nombre del padre',mora[a]);
end;
if(c=2) then
begin
for d:=1 to a do
begin
writeln(' el codigo del estudiante',d);
writeln('nombre',matta[d]);
writeln('fecha de nacimiento',morales[d]);
writeln('grado que cursa',luis[d]);
writeln('sexo',fernando[d]);
writeln('nombre del madre',mat[d]);
writeln('nombre del padre',mora[d]);
end;
end;
until(b=3);
end.

programa 2

Realizar un programa, que permita llevar el control de ventas de una ferretería. En el menú principal debe incluir: Ingresar Venta, Ver Ventas, Salir del Programa.Si escojo trabajar con el menu 1, que me muestre un listado de productos, por lo menos deben aparecer 8 productos diferentes, de los cuales yo indico que producto voy a vender, y luego indico cuantas unidades. Que no me deje pasar de este proceso, hasta que elija una opciòn de otro menu, donde indique, vender o cancelar. Si elijo vender, que se cargue la venta registrada, si le doy cancelar, que me lleve al menu principal.Si yo quiero trabajar la opcion 2 del menu principal, me debe presentar si quiero ver venta por producto individual, o sea que me permita elegir el producto de que quiero ver la venta; o completa, donde aparece la venta de todos los productos.

program ferreteria;
uses crt;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s:integer;
var e1,e2,e3,e4,e5,e6,e7:integer;
begin
d:=0;
e:=0;
f:=0;
g:=0;
h:=0;
i:=0;
j:=0;
k:=0;
l:=0;
e1:=0;
e2:=0;
e3:=0;
e4:=0;
e5:=0;
e6:=0;
e7:=0;
repeat
repeat
writeln('1 ingresar ventas');
writeln('2 ver ventas');
writeln('3 salir del programa');
readln(a);
if(a<1)>3) then
writeln('ingrese el numero correcto');
until(a>=1) and (a<=3);
writeln;
if(a=1) then
begin
repeat
writeln('1 pala 20');
writeln('2 azadon 20');
writeln('3 rastrillo 23');
writeln('4 cerruchos 19');
writeln('5 martillo 20');
writeln('6 machetes 30');
writeln('7 limas 12');
writeln('8 podadoras 45');
readln(c);if(c<1)>8) then
writeln('ingrese el numero correcto');
until(c>=1) and (c<=8);
writeln;
end;
if(c=1) then
beginwriteln('ingrese cuantas palas decea comprar');
readln(d);
e:=d*20;
end;
if(c=2) then
begin
writeln('ingrese cuantas azadon decea comprar');readln(f);
e1:=f*20;
end;
if(c=3) then
begin
writeln('ingrese cuantas rastrillo decea comprar');
readln(g);
e2:=g*23;
end;
if(c=4) then
beginwriteln('ingrese cuantas cerruchos decea comprar');
readln(h);
e3:=h*19;
end;
if(c=5) then
begin
writeln('ingrese cuantas martillos decea comprar');
readln(i);
e4:=i*20;
end;
if(c=6) then
begin
writeln('ingrese cuantas machetes decea comprar');
readln(j);
e5:=j*30;
end;
if(c=7) then
begin
writeln('ingrese cuantas limas decea comprar');
readln(k);
e6:=k*12;
end;
if(c=8) then
begin
writeln('ingrese cuantas podadoras decea comprar');
readln(l);
e7:=l*45;
end;
if(a=2)then
begin
writeln('usted compro la cantidad de palas de', d ,'al costo por pala es Q20:00la cantidad total es',e);
writeln('usted compro la cantidad de azadones de', f ,'al costo por azadon es Q20:00la cantidad total es',e1);
writeln('usted compro la cantidad de rastrillos de', g ,'al costo por rastrillo es Q23:00la cantidad total es',e2);
writeln('usted compro la cantidad de cerruchos de', h ,'al costo por cerruchos es Q19:00la cantidad total es',e3);
writeln('usted compro la cantidad de martillos de', i ,'al costo por martillos es Q20:00la cantidad total es',e4);
writeln('usted compro la cantidad de machetes de', j ,'al costo por machetes es Q30:00la cantidad total es',e5);
writeln('usted compro la cantidad de lima de', k ,'al costo por lima es Q12:00la cantidad total es',e6);
writeln('usted compro la cantidad de podadoras de', l ,'al costo por podadoras es Q45:00la cantidad total es',e7); end;writeln;until(a=3);writeln;
end.

jueves, 17 de julio de 2008

Propietario de libreria


Mynor oliverio Matta tendra el gusto de atenderle del modo que usted se lo merece.

Empastadora


contamos con el servicio de empastado de trabajos o cualquier cosa que usted desea empastar.

Discos en blanco.


Contamos con la venta de discos en blanco para poder hacer grabaciones o quemar documentos o musica.

Cuaderno de solfa.


encontraras cuadernos de solfa para tu clases de musica.

Selladores


Tenemos selladores de diferentes tamoños y grosor para que usted elija.

el chat para conocer amigos

Que te parece nuestra pagina y nuestro servivio.