libreria Oli: julio 2008

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.