Foxpro

* Ejercicios
*
* Secuenciales
Calcular el número de pulsaciones que una persona debe tener por cada 10 segundos de ejercicio, si la formula es: num. Pulsaciones = (220 - edad)/10.
program Humberto;
uses wincrt;
var
edad:integer;
np:real;
begin
write('Indique su edad por favor:');
readln(edad);np:=(220-edad)/10;
write('Sus pulsaciones son:');
writeln(np:10:2 ,'por cada 10 seg');
end.
Una persona desea saber cual es su saldo bancario si el banco le paga el 2% por concepto de intereses
program sald;
uses wincrt;
var
saldo:real;
interes:real;
begin
write('ingrese su saldo');
readln(saldo);
write('sus intereses por el 2% son:');
interes:=(saldo*2/100);
writeln(interes:10:2)
end.Determinar el área de un triangulo
program tri;
uses wincrt;
var
alt,base,area:real;
begin
write('ingrese la altura');
readln(alt);
writeln('ingrese la base');
readln(base);
area:=(base*alt)/2;
writeln(area:10:2)
end.
Una tienda ofrece un descuento del 15% sobre el total de la compra y un cliente desea saber cuanto deberá pagar finalmente por su compra.
program descuent;
uses wincrt;var
totalc,totalp:real;
begin
readln(totalc);
totalp:=(totalc*15/100);
writeln(totalp:10:2)
end.
Determine la edad de una persona
program edad;
uses wincrt;
var
n1,n2,resta:integer;
begin
write('por favor ingrese el año actual');
readln(n1);
write('por favor ingrese su año de nacimiento');
readln(n2);
resta:=(n1-n2);
write('usted tiene');
end.
convertir pulg. A cm., m, Mm.program pulgadas;
uses wincrt;
var
pulg, cm, m, mm: real;
begin
write ('ingrese las pulgadas');
readln (pulg);
m:= (pulg*0.0254);
mm:= (pulg*25.4);
cm:= (pulg*2.54);
writeln (m:10:2);
writeln (mm:10:2);
writeln (cm:10:2);
end.
Determine el porcentaje de la cantidad de hombres y mujeres que hay en un curso
readln(man);
write('ingrese el numero de mujeres:');
readln(girl);writeln('suma;man + girl');
cantidad:=man+girl;
writeln('hombres:',man*100/cantidad:10:2,'%');
writeln('mujeres:',girl*100/cantidad:10:2,'%');
writeln(' total :',man+girl,'%');
end.
determine la suma de 2 números
program M;
Uses wincrt;
var
n1,n2,suma:real;
begin
write('ingrese el primer numero:');
readln(n1);
write('ingrese el segundo numero:');
readln(n2);
suma:=n1+n2;writeln('total':,suma:10:2)
end.
Calcular el nuevo salario de un obrero si obtuvo un incremento del 25% sobre su salario anterior.
program H;
uses wincrt;
var
sal,inc:real;
begin
write('cuanto te pagaban antes?:');
readln(sal);
sal:=sal+(sal*25/100);
write('ahora te pagan:');
writeln(sal:10:2,'Bs.f');
end.
En un hospital existen tres áreas: Ginecología, Pediatría, Traumatologia. El presupuesto anual delhospital se reparte conforme a la sig. tabla:
*
i. Área Porcentaje del presupuesto
ii. Ginecología 40%
iii. Traumatologia 30%
iv. Pediatría 30%

program presupst;
uses wincrt;
var
plata:integer;
pres1,pres2,pres3:real;
begin
write(' dinero para el presupuesto:');
readln(plata);
pres1:=plata*40/100;pres2:=plata*30/100;
pres3:=plata*30/100;
write('presupuesto de ginecologia:');
writeln(pres1:10:2);
write('presupuesto de traumatologia :');
writeln(pres2:10:2);
write('presupuesto de pediatria:');
writeln(pres3:10:2);
end.
Condicionales
Determinar si un número es mayor o menor que 0
program Mm;
uses wincrt;
var
number:real;
begin
write('por favor ingrese el numero');readln(number);
if number>0 then
write('es mayor que 0')
else
if number<0 then
write('es menor que 0')
else
if 0=0 then
write('el numero q a ingresado es el mismo asi que no se puede realizar la operacion');
end.
un estudiante desea saber cual es su nota definitiva en química si en el semestre hay tres practicas de laboratorios y tres parciales sabiendo que >3 en promedio final pasa...