Ejercicios de Programación en Pascal

Ejercicio 1: Promedio de Alumnos

Objetivo: Calcular el promedio de notas de alumnos, cantidad y porcentaje de aprobados y desaprobados.

Program EjRep1;
uses
Crt;
var
CA,C,T1,T2,T3,CAA,CAD:Integer;
P,PAA,PAD:Real;
Begin
Clrscr;
WriteLn('Ingresando la cantidad de alumnos y las notas de los tres trimestres;');
WriteLn('Podr  saber el promedio de cada alumno, la cantidad y porcentaje de aprobados y desaprobados.');
WriteLn('Ingrese la cantidad de alumnos.');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese las notas de cada trimestre.');
ReadLn(T1,T2,T3);
P:=(T1+T2+T3)/3;
WriteLn('El promedio del alumno es de ',P:0:0);
If (P>=6) then
CAA:=CAA+1
else
CAD:=CAD+1
End;
PAA:=CAA*100/CA;
PAD:=CAD*100/CA;
WriteLn('La cantidad de alumnos aprobados es ',CAA,' y el promedio ',PAA:2:2,'.');
WriteLn('La cantidad de alumnos desaprobados es ',CAD,' y es promedio es de ',PAD:2:2,'.');
If (PAD>50) then
WriteLn('El porcentaje de desaprobados es mayor a %50,­Cuidado!')
else
WriteLn('El porcentaje de desaprobados es menor al %50');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 2: Encuesta de Música

Objetivo: Determinar la cantidad y porcentaje de personas que escuchan música nacional e internacional.

Program EjRep2;
uses
Crt;
var
CA,C:Integer;
CN,CI,PI,PN,total:Real;
Tipo:string;
Begin
Clrscr;
WriteLn('Ingresando la cantidad de entrevistados y el tipo de musica escucha;');
WriteLn('Podr  saber la cantidad de personas que escucha cada género y el porcentaje.');
WriteLn('Ingrese la cantidad de entrevistados.');
ReadLn(C);
TOTAL:=C;
For CA:=1 to C do
begin
WriteLn('Ingrese el tipo de musica que escucha (N=Nacional o I=Internacional).');
ReadLn(Tipo);
If (Tipo='N') OR (Tipo='n') then
CN:=CN+1
else if (Tipo='I') OR (Tipo='i') then
CI:=CI+1
else
Begin
Writeln('El tipo de m£sica fue ingresado incorrectamente, no ser  tomado en cuenta');
Total:=Total-1
end;
End;
PN:=CN*100/total;
PI:=CI*100/total;
WriteLn('La cantidad de personas que escuchan m£sica nacional es de ',CN:2:2,' y el promedio ',PN:2:2,'.');
WriteLn('La cantidad de personas que escuchan m£sica internacial es de ',CI:2:2,' y es promedio es de ',PI:2:2,'.');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 3: Mayores y Menores de Edad

Objetivo: Calcular la cantidad y porcentaje de personas mayores y menores de edad en un grupo.

Program EjRep3;
uses
Crt;
var
C,Ca:Integer;
total,CMa,CMe,PMa,PMe,E:Real;
Begin
Clrscr;
WriteLn('Ingresando la cantidad de personas del grupo y la edad de cada una;');
WriteLn('Podr  saber la cantidad de personas mayores y menores de edad, y el porcentaje.');
WriteLn('Ingrese la cantidad de personas del grupo.');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese la edad de la persona.');
ReadLn(E);
If (E>=18) then
CMa:=CMa+1
Else
CMe:=CMe+1
End;
PMa:=CMa*100/c;
PMe:=CMe*100/c;
WriteLn('La cantidad de personas menores de edad es de ',CMe:2:2,' y el promedio ',PMe:2:2,'.');
WriteLn('La cantidad de personas mayores de edad es de ',CMa:2:2,' y es promedio es de ',PMa:2:2,'.');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 4: Cuotas de Socios

Objetivo: Calcular el importe a pagar por socios según el deporte que practican y el total recaudado por cada deporte.

Program EjRep4;
uses
Crt;
var
C,Ca:Integer;
CU,P,CF,PF,CT,PT,CR,PR,PTT,RR,RT,RF:Real;
D,N:string;
Begin
Clrscr;
WriteLn('Ingresando la cantidad de socios, la cuota, el nombre y el deporte');
WriteLn('Podr  saber cual es el importe a pagar, el dinero recaudadopor, porcentaje y cantidad por deporte.');
WriteLn('Ingrese la cantidad de socios.');
ReadLn(C);
WriteLn('Ahora ingrese la cuota');
ReadLn(CU);
For CA:=1 to C do
begin
WriteLn('Ingrese el nombre.');
ReadLn(N);
WriteLn('Ingrese el deporte (F=Futbol, R=Rugby, T=Tenis)');
Readln(D);
If(D='F')or(D='f')then
begin
P:=CU+(30*cu/100);
Writeln('Por prancitcar Futbol, usted pagar  $',P:2:2);
CF:=CF+1;
PF:=PF+P;
end
Else If(D='T')or(D='t')then
begin
P:=CU+(20*cu/100);
Writeln('Por prancitcar Tenis, usted pagar  $',P:2:2);
Ct:=Ct+1;
Pt:=Pt+P;
end
Else If(D='r')or(D='R')then
begin
P:=CU+(10*cu/100);
Writeln('Por prancitcar Rugby, usted pagar  $',P:2:2);
CR:=CR+1;
PR:=PR+P;
end;
END;
PTT:=PF+PT+PR;
RT:=PT*100/PTT;
RF:=PF*100/PTT;
RR:=PR*100/PTT;
WriteLn('En futbol hay ',CF:2:0,' socios y se recauda ',RF:2:0,'%');
WriteLn('En tenis hay ',CT:2:0,' socios y se recauda ',Rt:2:0,'%');
WriteLn('En Rugby hay ',CR:2:0,' socios y se recauda ',RR:2:0,'%');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 5: Número Mayor y Menor

Objetivo: Encontrar el número mayor y menor de una serie de números ingresados.

Program EjRep5;
uses
Crt;
var
C,Ca:Integer;
N,NMa,NMe:Real;
Begin
Clrscr;
NMe:=99;
NMa:=0;
WriteLn('Ingresando la cantidad de n£meros a ingresar e ingresandolos');
WriteLn('Podr  saber cuál es el más grande y cuál es el más chico.');
WriteLn('Ingrese la cantidad de n£meros.');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese el numero.');
ReadLn(N);
If (N)>
NMe:=N;
If (N>NMA) then
NMA:=N
End;
WriteLn('El n£mero mayor es ',NMa:2:0,' y el n£mero menor es  ',NMe:2:0,'.');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 6: Cálculo de Compras

Objetivo: Calcular el importe a pagar por productos y la cantidad de carros de 15kg llenados.

Program EjRep6;
uses
Crt;
var
C,Ca:Integer;
K,PK,PU,CC,PTT,PP,KP,KS:Real;
N:string;
Begin
Clrscr;
WriteLn('Ingresando el nombre y el precio y peso por kg');
WriteLn('Podr  saber cuál es el importe a pagar y cuantos carros de 15kg llen¢.');
WriteLn('Ingrese la cantidad de productos');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese el nombre.');
ReadLn(N);
WriteLn('Ingrese el peso del producto');
Readln(K);
Writeln('Ingrese el precio por kg');
Readln(PK);
PU:=PK*k;
PP:=PP+PU;
KP:=KP+K;
PTT:=PTT+PU;
Writeln('Por ',K:2:2,' kilos de ',N,' deber  pagar $',PU:2:2);
While (KP>15) do
begin
KS:=KP-15;
CC:=CC+1;
KP:=KS;
end
End;
WriteLn('En total pagar  $',PTT:2:2,' y llen¢ ',CC:2:0,' carritos.');
If (KP<15)>15)>
Writeln('M s un carrito con ',KP,' kilos.');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 7: Productos Menores a $10

Objetivo: Determinar la cantidad de productos que valen menos de $10, el más caro y el más barato.

Program EjRep7;
uses
Crt;
var
C,Ca:Integer;
P,PMa,PMe,d:Real;
Begin
Clrscr;
PMe:=99;
PMa:=0;
WriteLn('Ingresando el precio y la canctidad de productos');
WriteLn('Podr  saber cuales valen menos de $10, el mas caro y el mas barato');
WriteLn('Ingrese la cantidad de productos.');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese el precio.');
ReadLn(P);
if (P<10)>10)>
D:=D+1;
If (P)>
PMe:=P;
If (P>PMA) then
PMA:=P
End;
WriteLn('Hay ',D:2:0,' productos que valen menos de $10. El precio más alto es ',PMa:2:2,' y el más bajo es ',PMe:2:2,'.');
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 8: Encuesta de Edades y Ocupaciones

Objetivo: Calcular la edad más joven y más vieja, cantidad de mayores y menores de 18 y el promedio de edades.

Program EjRep8;
uses
Crt;
var
C,Ca:Integer;
E,j,V,CV,CJ,PROM:Real;
O:String;
Begin
Clrscr;
V:=0;
J:=99;
WriteLn('Ingresando la cantidad de encuestados, la edad y la ocupaci¢n;');
WriteLn('Podr  saber cual es el mas joven y el mas viejo, la cantidad de mayores y menores de 18 y el promedio');
WriteLn('Ingrese la cantidad de entrevistados');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('Ingrese la edad.');
ReadLn(E);
WriteLn('Ingrese la ocupaci¢n (T=Trabaja, E=estudia).');
ReadLn(O);
if (E<18)>18)>
CJ:=CJ+1
else
CV:=CV+1
End;
If (E)>
J:=E;
If (E>V) then
V:=E;
Prom:=(CV+CJ)/C;
WriteLn('Hay ',CJ:2:0,' personas menores de 18 y ',CV:2:0,' mayores de 18.');
WriteLn('La edad mas chica es de ',J:2:0,' y la mas grande es de ',V:2:0);
WriteLn('Y el promedio de edades es ',Prom:2:2);
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 9: Venta de Prendas

Objetivo: Determinar la prenda más y menos vendida, el total facturado y la cantidad vendida por cada tipo de prenda.

Program EjRep9;
uses
Crt;
var
C,Ca:Integer;
PR,PP,PF,CR,CP,CF,RECAUDADO,MAX,MIN:Real;
Tipo:string;
Begin
Clrscr;
WriteLn('Ingresando la cantidad de clientes, tipo de prenda y el precio;');
WriteLn('Podr  saber cual es la mas y la menos vendida, cuanto se factur¢ y cuanto se compr¢ cada prenda');
WriteLn('Ingrese la cantidad de clientes');
ReadLn(C);
Writeln('Ingrese el precio de las remeras');
ReadLN(PR);
Writeln('Ingrse el precio de los pantalones');
ReadLN(PP);
Writeln('Ingrese el precio de las faldas');
ReadLN(PF);
For CA:=1 to C do
begin
WriteLn('Ingrese el tipo de prenda (R=remera, P=pantalones, F=faldas).');
ReadLn(Tipo);
if (TIPO='R') or (TIPO='r') THEN
begin
CR:=CR+1;
RECAUDADO:=RECAUDADO+PR
END                          
else if (TIPO='F') or (TIPO='f') THEN
BEGIN
CF:=Cf+1;
RECAUDADO:=RECAUDADO+PF
END                                                                                                 
else if (TIPO='p') or (TIPO='P') THEN
BEGIN
CP:=CP+1;
RECAUDADO:=RECAUDADO+PP
END
else
Writeln('Tipo de prenda ingresado incorrectamente')
End;
If (CP>CF) AND (CP>CR) then
Writeln('Se vendieron m s Pantalones')
Else if (CF>CR) and (CF>CP) then
WriteLn('Se vendieron m s polleras')
Else if (CR>Cf) and (CR>CP) then
Writeln('Se vendieron mas Remeras')
Else
Writeln('Hay prendas vendidas en cantidades iguales');
If (CP)>)>
Writeln('Se vendieron menos Pantalones')
Else if (CF)>)>
WriteLn('Se vendieron menos polleras')
Else if (CR)>)>
Writeln('Se vendieron menos Remeras')
Else
Writeln('Hay prendas vendidas en cantidades iguales');
WriteLn('Se compraron ',CR:2:0,' remeras, ',CF:2:0,' polleras y ',CP:2:0,' pantalones.');
WriteLn('Se recaudo en total $',recaudado:2:2);
WriteLn('Pulse enter para reiniciar');
ReadLn
End.

Ejercicio 10: Cumpleaños y Edades

Objetivo: Calcular la cantidad de personas mayores de 18, las que cumplen en julio y la edad mayor y menor.

Program EjRep10;
uses
Crt;
var
C,Ca:Integer;
D,M,A,E,MAYORES,MENORES,Julio,Max,Min:Real;
Tipo:string;
Begin
Clrscr;
Max:=1;
Min:=99;
WriteLn('Ingresando la cantidad de personas,su edad y fecha de cumplea¤os;');
WriteLn('Podr  saber cuantos son mayores de 18, cuantos cumplen en Julio y la edad mayor y menor');
WriteLn('Ingrese la cantidad de Personas');
ReadLn(C);
For CA:=1 to C do
begin
WriteLn('La fecha de cumplea¤os en numeros (DD MM AAAA).');
ReadLn(D,M,A);
WriteLn('Ahora Ingrese la Edad');
ReadLn(E);
If (E>=18) then
Mayores:=Mayores+1
Else
Menores:=Menores+1
End;
iF (M=7) OR (M=07) THEN
Julio:=Julio+1;
If (Max)>
Max:=E;
If(Min>E) then
Min:=E;
WriteLn('Hay ',julio:2:0,' Personas que cumplen en Julio;');
WriteLn('Hay ',Mayores:2:0,' mayores de 18 y ',Menores:2:0,' personas menores de 18');
WriteLN('La edad mayor es ',Min:2:2,' y la menor es ',Max:2:2);
WriteLn('Pulse enter para reiniciar');
ReadLn
End.