audycar: SI te gusta estar con la tecnologi observa

lunes, 14 de julio de 2008

SI te gusta estar con la tecnologi observa

Este es un novedoso equipo reproductor, ya que es con tecnologia USB, S i te preguntas por que USB es por que ya no utiliza los problematicos cds, sino que trabaja con tu memoria usb.

No hay comentarios:

Publicar un comentario

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

SI te gusta estar con la tecnologi observa

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