audycar: tuiter

lunes, 14 de julio de 2008

tuiter

TUITER:Es utilizado para una mejor difucion de sonido ya que con este tus canciones favoritas las escuharas de una manera sorprendejte ya lamismo tienpo relajante por que no te daña el sentido de ollido

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

tuiter

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