Gorosito Matias Modulo1 Algoritmos

Módulo I:
Algoritmos y
Estructura de Datos
Alumno: Gorosito, Matías
Legajo: 140934-7
Profesor: Pablo A. Sznajdleder
Materia: Algoritmos y Estructura de Datos
Año: 2010
Curso: K1124

1

Ejercicio N°1
A partir de dos valores enteros A y B, informar la suma, la diferencia entre A y B, y
el producto.

var a,b,sum,res,prod:integer;
begin
writeln('Ingrese un numero:');
readln(a);
writeln('Ingrese unnumero:');
readln(b);
sum:=a+b;
res:=abs(a-b);
prod:=a*b;
writeln('La suma es:', sum);
writeln('La diferencia es:', res);
writeln('El producto es:', prod);
end.

2

Ejercicio N°3
Dada una terna de números naturales que representan al día, al mes y al año de una
determinada fecha informarla como un solo número natural de 8 dígitos
(AAAAMMDD).

var dia,mes:string[2];
var anio:string[4];
varfecha:string[8];
begin
writeln('Ingrese el dia:');
readln(dia);
writeln('Ingrese el mes:');
readln(mes);
writeln('Ingrese el anio:');
readln(anio);
fecha:= anio+mes+dia;
writeln('La fecha ingresada es:', fecha);
end.

Ejercicio N°5
A partir de un valor entero ingresado por teclado, se pide informar:

3

1.
2.
3.
4.

La quinta parte de dicho valor
El resto de la división por 5
La séptima parte delresultado del punto 1
El promedio real de los valores obtenidos en 1, 2, y 3

var quinta,sept:double;
var prom:real;
var resto,n:integer;
begin
writeln('Ingrese un numero');
readln(n);
quinta:=(n/5);
resto:= n mod 5;
sept:=(quinta/7);
prom:=((quinta+resto+sept)/3);
writeln('La quinta parte de:',quinta);
writeln('El resto de la division por 5:',resto);
writeln('La septima parte de la quinta partede:',sept);
writeln('El promedio real de los valores obtenidos en
1,2,3:',prom);
end.

Ejercicio N°6
Dados dos valores enteros y distintos, emitir una leyenda apropiada que informe cuál

4

es el mayor entre ellos.
var n,p:integer;
begin
writeln('Ingrese un numero:');
readln(n);
writeln('Ingrese otro numero:');
readln(p);
while (n=p) do begin
writeln('Ha ingresado un numero igual al primeroque
se le pidio, por favor ingrese uno distinto:');
readln(p);
end;
if (n>p) then begin
writeln('El numero ',n,' es el mayor');
end else begin
writeln('El numero ',p,' es el mayor');
end;
end.

Ejercicio N°8
Dadas dos fechas informar cual es la más reciente. Determine cuales serían los datos
de entrada y las leyendas a informar de acuerdo al proceso solicitado.
functiongetAnio(fec:longint):integer;
begin
getAnio:=fec div 10000;
end;
function getMes(fec:longint):integer;
5

var x:integer;
begin
x:=fec mod 10000;
getMes:=x div 100;
end;
function getDia(fec:longint):integer;
begin
getDia:=fec mod 100;
end;
procedure
aniosDistintos(anio1,anio2,mes1,mes2,dia1,dia2:integer);
begin
if (anio1>anio2) then begin
writeln(dia1,'/',mes1,'/',anio1,' es la fecha
ingresada mas reciente');
end;
if(anio1 writeln(dia2,'/',mes2,'/',anio2,' es la fecha
ingresada mas reciente');
end;
end;
procedure
mesesDistintos(anio1,anio2,mes1,mes2,dia1,dia2:integer);
begin
if (anio1=anio2) then begin
if (mes1>mes2) then begin
writeln(dia1,'/',mes1,'/',anio1,' es la fecha
ingresada mas reciente');
end;
if (mes1 writeln(dia2,'/',mes2,'/',anio2,' es la fecha
ingresada masreciente');
end;
end;
end;
procedure
diasDistintos(anio1,anio2,mes1,mes2,dia1,dia2:integer);
begin
if (anio1=anio2) and (mes1=mes2) then begin
6

if (dia1>dia2) then begin
writeln(dia1,'/',mes1,'/',anio1,' es la fecha
ingresada mas reciente');
end;
if (dia1 writeln(dia2,'/',mes2,'/',anio2,' es la fecha
ingresada mas reciente');
end;
end;
end;
var fecha:longint;
varanio1,mes1,dia1,anio2,mes2,dia2:integer;
begin
writeln('Ingresa una fecha en formato (AAAAMMDD):');
readln(fecha);
anio1:=getAnio(fecha);
mes1:=getMes(fecha);
dia1:=getDia(fecha);
writeln('Ingresa otra fecha en formato (AAAAMMDD):');
readln(fecha);
anio2:=getAnio(fecha);
mes2:=getMes(fecha);
dia2:=getDia(fecha);
aniosDistintos(anio1,anio2,mes1,mes2,dia1,dia2);
mesesDistintos(anio1,anio2,mes1,mes2,dia1,dia2);...

Leer documento completo

Regístrate para leer el documento completo.