HOME | DD

Description
program variado;
// Inicio del programa
{$APPTYPE CONSOLE}

uses
SysUtils;
//Variables....
var
//op = para el menu
// x,z = variable en for
// nu = para guardar cuantos de alta
// a,b = variables para la matriz
// autor,...,nom = son arreglos unidimensionales
// nombre = guardar nombre
// p,cant,st,t = cantidades
//datos = matriz bidimensional
op,x,nu,a,b,z:integer; // Integer para caracteres
autor:array [1..1] of string; //String letras
libro:array [1..1] of string;
editorial:array [1..1] of string;
sinopsis:array [1..1] of string;
nom: array[1..1] of string;
nombre:string;
p,cant,st,t:real;
datos:array [1..4,1..4] of real; // Numeros
//Inicio del codigo del programa
begin
// Hacemos el menu....
writeln('MENU');
writeln('');
writeln('1) Alta de libros');
writeln('2) Ventas');
writeln('3) Suma Matrices');
writeln('4) Alta de alumnos');
write('Opcion: ');
readln(op);
// Si elejimos la op 1
if op=1 then
begin
writeln('');
//Utilizamos la variable nu, para que guarde el numero de libros a capturar
writeln('Libros a capturar (No tienes limite): ');
readln(nu);
// Aqui le decimos que empiece desde el uno x:=1, hasta el numero que
//dimos nu.... cuando termine saldra del for...
for x:=1 to nu do
begin
write('Autor ',x,': ');
readln(autor[x]);
write('Libro ',x,': ');
readln(libro[x]);
write('Editorial ',x,': ');
readln(editorial[x]);
write('Sinopsis ',x,': ');
readln(sinopsis[x]);
end;
writeln('');
//Aqui elejimos que lirbo de los que guardamos ver...
write('No. de libro a consultar: ');
//Aqui esta el secreto..guardarlo en la variable q anteriormente teniamos
//Para q abajo (donde despliega) solo te de los de la x
readln(x);
writeln('Autor ',x,': ',autor[x]);
writeln('Libro ',x,': ',libro[x]);
writeln('Editorial ',x,': ',editorial[x]);
writeln('Sinopsis ',x,': ',sinopsis[x]);
end;
// Si elejimos la op 2
if op=2 then
begin
writeln('');
writeln('VENTA DE LIBRO');
write('Nombre: ');
readln(nombre);
write('Precio: ');
readln(p);
write('Cantidad: ');
readln(cant);
//Aqui hacemos un calculo....
st:*cant;
// Los numeros sirven ( 2) para que acorte los decimales a dos..
//Ejemplo en ves de que salga 3.1234566 salga 3.12
writeln('Subtotal: ',st 2);
//Si el subtotal es <=200 debe realizar esto
if st>=200 then
begin
writeln('Descuento del 20%');
//Le aplicamos descuento
t:=st-(st*0.20);
writeln('Total: ',t 2);
end;
//Si el subtotal es >=199 debe realizar esto
//Aqui se pone 199 y no 200 pq sino la maquina se confundiria...
if st<=199 then
begin
writeln('Descuento del 5%');
//Le aplicamos descuento
t:=st-(st*0.05);
writeln('Total: ',t 2);
end;
end;
// Si elejimos la op 3
if op=3 then
begin
//Aqui esta un poco confuso... la 'a' son filas
//Lo que intentamos es decirle que me haga 4 filas
for a:=1 to 4 do
begin
// La 'b' por logica son columnas
// Y aqui pedimos hacer 3 columnas
for b:=1 to 3 do
begin
//Esto quiere decir... que tendremos una suma de 3 numeros
//Quedaria algo asi grafico para entenderlo:
// 1+2+3 =[] (Aqui tenemos las 4 filas q pedimos)
// 3+4+5 =[]
// 6+7+8 =[]
// 9+1+2 =[]
//Bueno y pq no pedimos 4 columas si se dan cuenta la cuarta tiene []
//eso significa que esta vacia
//Esa columna vacia se encargara el programa de sumar y dar el resultado
write('Datos ',a,',',b,': ');
readln(datos[a,b])
end;
end;
//Aqui es donde el programa hace la suma..
//Le decimos que la fila 1 a la 4
for a:=1 to 4 do
begin
//Aqui tambien esta un poco confuso...
// le decimos que [a,4],
// la 'a' es la fila 1..2...4
//El '4' es pq en esa columa queremos el resultado
//Recordad que es [x,y]...
datos[a,4]:=datos[a,1]+datos[a,2]+datos[ a,3];
//Se hace la suma de datos[a,1]+datos[a,2]+datos[a,3];
// es [a,1] proque le decimos la fila a, columna 1 ...siguiendo el ejemplo
//este seria el 1
//Entonces si pasamos la formulaseria:
// datos[a,1]+datos[a,2]+datos[a,3];
// 1,1 + 1,2 + 1,3 (cordenada)
// 1 2 3 (No. que se puso)
// 2,1 + 2,2 + 2,3 (cordenada)
// 3 4 5 (No. que se puso)
// ... y asi con todos..
writeln('Resultado ',a,',',b,': ',datos[a,b] 2);
// Nos da el resultado de cada fila que se hizo la suma...
end;
end;
// Si elejimos la op 4
if op=4 then
begin
//Este es como la alta de libros pero con un ejemplo mas sencillo
writeln('');
//Le preguntamos al usuario cuantos quiere dar de alta....
writeln('Alumnos a capturar (No tienes limite): ');
readln(nu);
//Aqui lo mismo... que empiece en 1 z:=1 y termine hasta el numero que dio el usuario
for z:=1 to nu do
begin
write('Nombre ',z,': ');
readln(nom[z]);
end;
write('Alumno a consultar: ');
readln(z);
writeln('Alumno ',z,': ',nom[z]);

end;
// Las opciones de abajo, son cuando el usuario teclea un dato inexistente
// En el menú
if op>=5 then
begin
writeln('Esa op no existe');
end;
if op=0 then
begin
writeln('Esa op no existe');
end;
// Fin de las op inexistentes
readln;
//Fin del programa
end.

Description
program variado;
// Inicio del programa
{$APPTYPE CONSOLE}

uses
SysUtils;
//Variables....
var
//op = para el menu
// x,z = variable en for
// nu = para guardar cuantos de alta
// a,b = variables para la matriz
// autor,...,nom = son arreglos unidimensionales
// nombre = guardar nombre
// p,cant,st,t = cantidades
//datos = matriz bidimensional
op,x,nu,a,b,z:integer; // Integer para caracteres
autor:array [1..1] of string; //String letras
libro:array [1..1] of string;
editorial:array [1..1] of string;
sinopsis:array [1..1] of string;
nom: array[1..1] of string;
nombre:string;
p,cant,st,t:real;
datos:array [1..4,1..4] of real; // Numeros
//Inicio del codigo del programa
begin
// Hacemos el menu....
writeln('MENU');
writeln('');
writeln('1) Alta de libros');
writeln('2) Ventas');
writeln('3) Suma Matrices');
writeln('4) Alta de alumnos');
write('Opcion: ');
readln(op);
// Si elejimos la op 1
if op=1 then
begin
writeln('');
//Utilizamos la variable nu, para que guarde el numero de libros a capturar
writeln('Libros a capturar (No tienes limite): ');
readln(nu);
// Aqui le decimos que empiece desde el uno x:=1, hasta el numero que
//dimos nu.... cuando termine saldra del for...
for x:=1 to nu do
begin
write('Autor ',x,': ');
readln(autor[x]);
write('Libro ',x,': ');
readln(libro[x]);
write('Editorial ',x,': ');
readln(editorial[x]);
write('Sinopsis ',x,': ');
readln(sinopsis[x]);
end;
writeln('');
//Aqui elejimos que lirbo de los que guardamos ver...
write('No. de libro a consultar: ');
//Aqui esta el secreto..guardarlo en la variable q anteriormente teniamos
//Para q abajo (donde despliega) solo te de los de la x
readln(x);
writeln('Autor ',x,': ',autor[x]);
writeln('Libro ',x,': ',libro[x]);
writeln('Editorial ',x,': ',editorial[x]);
writeln('Sinopsis ',x,': ',sinopsis[x]);
end;
// Si elejimos la op 2
if op=2 then
begin
writeln('');
writeln('VENTA DE LIBRO');
write('Nombre: ');
readln(nombre);
write('Precio: ');
readln(p);
write('Cantidad: ');
readln(cant);
//Aqui hacemos un calculo....
st:*cant;
// Los numeros sirven ( 2) para que acorte los decimales a dos..
//Ejemplo en ves de que salga 3.1234566 salga 3.12
writeln('Subtotal: ',st 2);
//Si el subtotal es <=200 debe realizar esto
if st>=200 then
begin
writeln('Descuento del 20%');
//Le aplicamos descuento
t:=st-(st*0.20);
writeln('Total: ',t 2);
end;
//Si el subtotal es >=199 debe realizar esto
//Aqui se pone 199 y no 200 pq sino la maquina se confundiria...
if st<=199 then
begin
writeln('Descuento del 5%');
//Le aplicamos descuento
t:=st-(st*0.05);
writeln('Total: ',t 2);
end;
end;
// Si elejimos la op 3
if op=3 then
begin
//Aqui esta un poco confuso... la 'a' son filas
//Lo que intentamos es decirle que me haga 4 filas
for a:=1 to 4 do
begin
// La 'b' por logica son columnas
// Y aqui pedimos hacer 3 columnas
for b:=1 to 3 do
begin
//Esto quiere decir... que tendremos una suma de 3 numeros
//Quedaria algo asi grafico para entenderlo:
// 1+2+3 =[] (Aqui tenemos las 4 filas q pedimos)
// 3+4+5 =[]
// 6+7+8 =[]
// 9+1+2 =[]
//Bueno y pq no pedimos 4 columas si se dan cuenta la cuarta tiene []
//eso significa que esta vacia
//Esa columna vacia se encargara el programa de sumar y dar el resultado
write('Datos ',a,',',b,': ');
readln(datos[a,b])
end;
end;
//Aqui es donde el programa hace la suma..
//Le decimos que la fila 1 a la 4
for a:=1 to 4 do
begin
//Aqui tambien esta un poco confuso...
// le decimos que [a,4],
// la 'a' es la fila 1..2...4
//El '4' es pq en esa columa queremos el resultado
//Recordad que es [x,y]...
datos[a,4]:=datos[a,1]+datos[a,2]+datos[ a,3];
//Se hace la suma de datos[a,1]+datos[a,2]+datos[a,3];
// es [a,1] proque le decimos la fila a, columna 1 ...siguiendo el ejemplo
//este seria el 1
//Entonces si pasamos la formulaseria:
// datos[a,1]+datos[a,2]+datos[a,3];
// 1,1 + 1,2 + 1,3 (cordenada)
// 1 2 3 (No. que se puso)
// 2,1 + 2,2 + 2,3 (cordenada)
// 3 4 5 (No. que se puso)
// ... y asi con todos..
writeln('Resultado ',a,',',b,': ',datos[a,b] 2);
// Nos da el resultado de cada fila que se hizo la suma...
end;
end;
// Si elejimos la op 4
if op=4 then
begin
//Este es como la alta de libros pero con un ejemplo mas sencillo
writeln('');
//Le preguntamos al usuario cuantos quiere dar de alta....
writeln('Alumnos a capturar (No tienes limite): ');
readln(nu);
//Aqui lo mismo... que empiece en 1 z:=1 y termine hasta el numero que dio el usuario
for z:=1 to nu do
begin
write('Nombre ',z,': ');
readln(nom[z]);
end;
write('Alumno a consultar: ');
readln(z);
writeln('Alumno ',z,': ',nom[z]);

end;
// Las opciones de abajo, son cuando el usuario teclea un dato inexistente
// En el menú
if op>=5 then
begin
writeln('Esa op no existe');
end;
if op=0 then
begin
writeln('Esa op no existe');
end;
// Fin de las op inexistentes
readln;
//Fin del programa
end.