Problemas De Turbo Pascal

|Problemas realizados en Turbo Pascal este 2 bimestre, con pseudocódigo y resolución. |






Problemas Sencillos.

1.- Supongan que un individuo desea invertir su capital en un banco y desea saber cuánto dinero ganará después de un mes, si el banco paga a razón del 21% mensual.

program capit;
Uses WinCrt;
varcapital,gan,total:real;
begin
writeln ('Escriba la capital');
readln (capital);

gan:= capital*0.02;
total:= capital*1.02;

writeln ('La ganancia es de: ',gan:2:2);
writeln ('El total de la inversion es de: ',total:2:2);
end.


2.- Un vendedor recibe un sueldo base más un 10% extra por comisión de sus ventas, el vendedor desea saber cuántodinero obtendrá por el concepto de comisión por las 3 ventas que realiza en el mes y el total que recibirá, tomando en cuenta su sueldo base y comisión.

program ssueldo;
Uses WinCrt;
var sueldo,v1,v2,v3,comision,stotal: real;
begin
writeln ('Escriba el sueldo base');
readln (sueldo);
writeln ('Escriba la ganancia de la primera venta');
readln (v1);writeln ('Escriba la ganancia de la segunda venta');
readln (v2);
writeln ('Escriba la ganancia de la tercera venta');
readln (v3);
comision:= (v1+v2+v3)*0.10;
stotal:= sueldo+comision;
writeln ('El sueldo total es de: ',stotal:2:2);
end.










3.- Un alumno desea saber cual será su calificación final de Física. Dicha calificación se componede los siguientes porcentajes: 55% del promedio de 3 calificaciones parciales, 30% de la calificación del examen final, 15% de la calificación de un trabajo final.

program califis;
Uses WinCrt;
var c1,c2,c3,ef,tf,prom,ppar,pef,ptf,cf: real;
begin
writeln ('Escriba la calificacion parcial 1');
readln (c1);
writeln ('Escriba la calificacion parcial 2');
readln (c2);writeln ('Escriba la calificacion parcial 3');
readln (c3);
writeln ('Escriba la calificacion del examen final');
readln (ef);
writeln ('Escriba la calificacion del trabajo final');
readln (tf);

prom:=(c1+c2+c3)/3;
ppar:= prom*0.55;
pef:= ef*0.30;
ptf:= tf*0.15;
cf:= ppar+pef+ptf;

writeln ('El promedio final es de: ',cf:2:2);
end.4.- Calcular el área de un círculo.

program circulo;
uses wincrt;
var radio,area:real;
begin
writeln (‘Escriba el radio del círculo’);
readln (radio);
area:=3.1416*(radio*radio);
writeln (‘El area del círculo es: ‘,area);
end.








5.- Un maestro desea saber qué porcentaje de hombres y quéporcentaje de mujeres hay en un grupo de estudiantes.

program hommuj;
Uses WinCrt;
var nh,nm,ta,ph,pm: real;
begin
writeln ('Escriba el numero de hombres');
readln (nh);
writeln ('Escriba el numero de mujeres');
readln (nm);

ta:= nh+nm;
ph:= (nh*100)/ta;
pm:= (nm*100)/ta;

writeln ('El porcentaje de hombres en el salon es de: ',ph:2:2, '%');writeln ('El porcentaje de mujeres en el salon es de: ',pm:2:2, '%');
end.

6.- Realizar un programa que calcula la edad de una persona

program edadp;
Uses WinCrt;
var anoa,anodn,edad: real;
begin
writeln ('Escriba el año actual');
readln (anoa);
writeln ('Escriba el año de nacimiento de la persona');
readln (anodn);

edad:= anoa-anodn;

writeln('La edad de la persona es de: ‘ ,edad:2:2, ' años');
end.

7.-Dada una cantidad en pesos, obtener la equivalencia en dólares.

program dolpe;
Uses WinCrt;
var cpesos,vdolar,dolar: real;
begin
writeln ('Escriba la cantidad en pesos que desea convertir a dolares');
readln (cpesos);
writeln ('Escriba el valor actual del dolar');
readln (vdolar);

dolar:=...