audycar

miércoles, 16 de julio de 2008

Venta de accesorios de Sonido?

Les ofrecemos toda clase de accesorios para su vehiculo, a los mejores precios del mercado.

Coneccion de Aparatos para Autos

Trata de hacer mejoraras al equipo de sonido de tu vehiculo y nevas instalaciones

lunes, 14 de julio de 2008

Computadoras

Si deseas reparar una computadora traela a udycar alli te la podemos reparar y si esta en buen estado pero deseas formatarla o colocar un nuevo programa la puedes traer contamos con licencias de toda clase de programas y piesas originales.

ipod

Tenemos a la venta de los mejores ipod nano

ven hay de diferentes colores tamaños en memoria

y diferencia en precios.

kit

Juego de cables para una exelente instalacion de equipos de sonido de vehiculos.

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.

Promocion Especial

En la compra de este aparato para tu vehculo, se le obsejiara: un juego te tuiter e instalacion gratuita, promocion por tiempo limitado.

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.

audycar

Nuestra Razon de Ser

TT AUDY

miércoles, 16 de julio de 2008

Venta de accesorios de Sonido?

Coneccion de Aparatos para Autos

lunes, 14 de julio de 2008

Computadoras

ipod

kit

SI te gusta estar con la tecnologi observa

Promocion Especial

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