audycar

lunes, 14 de julio de 2008

Deseas hacer una Instalacion?

Para las mejores instalaciones ven y visita audycar con su amable propietario Jose Aldana es especialista en cuanto a Instalaciones y Reparaciones con la mejor tecnologia para un mejor servio al cliente .

Horario

De lunes a sabado de 10:00 AM. A 1:00 PM y Por la Tarde De 2:00 PM A 7:30 PM.

Variedad

variedad podemos mostrarle al publico lo mejor de cada equipo ya sean bocinas , plantas, tuiter,ecualizadores,etc. lo mejor encuanto a marcas , calidad, sonido, y precios. Nosotros no somos competencia Somos sus amigos ven y compruevalo .

Lo nuevo y Novedoso

Esto aca desali al mercado tecnologico pero ya lo tnemos a la venta en udycar, alos mejores precios y con una garantia de un año en la compra de este novedos equipo de soido la instalacion es gratuita.

Kicker

Una excelente marca de bocinas es Kicker tiene mejor frecuencia de sonido y mejor alcanse, es de magnifico precio.

pioneer

Una de las mejores marcas de apartos automovilesticos es pioneer, ya que tiene mejor calidad, un buen desempeño de sonido, y una mejor resitencia.

Plantas

Las Plantas:Son otro queipo que podemos encontrar adecuado para el sonido de nuestros vehiculos ya que mientras mas le invirtamos en tiempo y cuidados mejor funcionamiento encuanto a sonido tendremos, es muy importante reconoser que aquien no le llama la atencion un vehiculo con un buen 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

Deseas hacer una Instalacion?

Horario

Variedad

Lo nuevo y Novedoso

Kicker

pioneer

Plantas

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