audycar: Aparatos de Sonido

ferreteria

este ees segundo programa y permite vendery yevar un control en una ferreteria.
--------------------------------------------------------------------------------------------------------------
program ferreteria_programa_2;
uses crt;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o:integer;
var acha,brocha,Piochas,Asadones,Rastrillos,clavo,Clavos,Almaganas:integer;
begin
acha2:=30;
acha2:=100;
brocha2:=115;
asadon2:=75;
rastrillo2:=45;
clavos =10;
machetes2:=35;
almaganas:=175;
writeln(' permite observar el control de las ventas');
writeln('de una Ferreteria');
repeat
writeln('1. Ingresar ventas');
writeln('2. Ver ventas');
writeln('3. Salir del Programa');
readln(a);
if (a<1)or(a>3) then
writeln('Esta opcion no es invalida');
until (a>=1)and(a<=3);
if (a=1) then
begin
repeat
writeln('1. vender');
writeln('2. cancelar');
readln(c);
if (a<1)or(a>2) then
writeln('Esta opcion no es invalida');
until (a>=1)and(a<=2);
if (a=1)then
begin
repeat
writeln('1. acaha');
writeln('2. brocha');
writeln('3. Piochas');
writeln('4. Asadones');
writeln('5. Rastrillos');
writeln('6. Clavos ');
writeln('7. Machetes');
writeln('8. Almaganas');
readln(b);
if (b<1)or(b>8) then
writeln('Esta opcion no es invalida');
until (b>=1)and(b<=8);
if (b=1)then
begin
writeln('Cuantas unidades desea comprar');
readln(acha);
end;
if (b=2)then
begin
writeln('Cuantas unidades desea comprar');
readln(brocha);
end;
if (b=3)then
begin
writeln('Cuantas unidades desea comprar');
readln(Piochas);
end;
if (b=4)then
begin
writeln('Cuantas unidades desea comprar');
readln(Asadones);
end;
if (b=5)then
begin
writeln('Cuantas unidades desea comprar');
readln(Rastrillos);
end;
if (b=6)then
begin
writeln('Cuantas unidades desea comprar');
readln(Clavos);
end;
if (b=7)then
begin
writeln('Cuantas unidades desea comprar');
readln(Machetes);
end;
if (b=8)then
begin
writeln('Cuantas unidades desea comprar');
readln(Almaganas);
end;
end;
end;
end.

Este es el primer programa y permite ingresar el registro de cada uno de los estudiantes. con un menu q indica o permite ver las venta con las obciones ingresar datos , mostrarlos y salir.
--------------------------------------------------------------------------------------------------------------
program colegio;
uses crt;
var a,b,c,d,e,f,g,h,i,k,m,n,o,p,q,r,s,t,u,v,w,x:integer;
var j:integer;
var l:integer;
Codigo:array[1..150] of integer;
Nombre:array[1..150] of string;
Fecha:array[1..150] of string;
Grado:array[1..150] of string;
Sexo:array[1..150] of string;
Nombre_Madre:array[1..150] of string;
Nombre_Padre:array[1..150] of string;
begin
repeat
writeln('Este programa muestra los datos ');
repeat
writeln('1. porfavor Ingresar Datos');
writeln('2. desea Ver Datos Ingresados');
writeln('3. Salir del Programa');
readln(a);
if (a<1)or(a>3) then
begin
writeln('Esta opcion no es invalida');
end;
until (a>=1)and(a<=3);
if (a=1) then
begin
writeln('Ingrese codigo del Estudiante');
readln(codigo[b]);
writeln('Ingrese Nombre del Estudiante');
readln(Nombre[c]);
writeln('Ingrese Fecha de Nacimiento del Estudiante');
readln(Fecha[d]);
writeln('Ingrese Grado que cursa el Estudiante');
readln(Grado[e]);
writeln('Ingrese sexo del Estudiante, Masculino, Femenino');
readln(Sexo[f]);
writeln('Ingrese Nombre de la Madre del Estudiante');
readln(Nombre_Madre[g]);
writeln('Ingrese Nombre del Padre del Estudiante');
readln(Nombre_Padre[h]);
end;
if (a=2) then
begin
repeat
writeln('1. Ver datos de un estudiante');
writeln('2. ver todos');
readln(i);
if (i<1)or(i>2) then
begin
writeln('Esta opcion no es invalida');
end;
until (i>=1)and(i<=2);
if (i=1) then
begin
writeln;
writeln;
writeln('Ingrese el codigo del Estudiante que desea ');
readln(j);
b:=b+b;
if (j=b) then
begin
writeln(' ',Nombre[c]);
writeln(' ',Fecha[d]);
writeln(' ',Grado[e]);
writeln(' ',Sexo[f]);
writeln(' ',Nombre_Madre[g]);
writeln(' ',Nombre_Padre[h]);
end;
end;
if (i=2) then
begin
writeln(' ',Codigo[b]);
writeln(' ',Nombre[c]);
writeln(' ',Fecha[d]);
writeln(' ',Grado[e]);
writeln(' ',Sexo[f]);
writeln(' ',Nombre_Madre[g]);
writeln(' ',Nombre_Padre[h]);
end;
end;
until (a=3);
end.

audycar

Nuestra Razon de Ser

TT AUDY

lunes, 14 de julio de 2008

Aparatos de Sonido

No hay comentarios:

ferreteria

MAR ANTONY

MUSICA

TEGO

amigos chat

lugares de chat

amigos

Etiquetas

chat

Bocinas

CONTADOR

JUEGOS

juegos

Pacman

Mira Que fecha es?

LA HORA ES

Archivo del blog

Datos personales