Cálular las horas trabajadas y costo de la misma

program repita;
uses wincrt;
var
i,n,horas,trabajadores,costo:integer;
acu,pro:integer;
begin
acu:=0;
writeln('trabajadores');
readln(n);
for i:= 1 to n do
begin
writeln('ingrese horas del trabajador',i);
readln(trabajadores);
acu:=acu+trabajadores;
end;
writeln('la sumatoria es',acu);
pro:=acu*n;
writeln('el total de horas trabajadas',pro);
begin
writeln('ingrese costo');
readln(costo);
acu:=acu*costo;
end;
writeln('total de costo es',acu);
pro:=acu*n;
end.

TALLER

--Promedio de edades--

program repita;
uses wincrt;
var
i,n,edad,alumnos:integer;
acu,pro:real;
begin
acu:=0;
writeln('cuantas edades seran procesadas');
readln(n);
for i:= 1 to n do
begin
writeln('ingrese la edad',i);
readln(edad);
acu:=acu+edad;
end;
writeln('la sumatoria es',acu:5:2);
pro:=acu/n;
writeln('el promedio es',pro:5:2)
end.

--Lista de números impares y pares del 1 al 20--

program nombre;
uses wincrt;
var
i,j:integer;
begin
for j:= 1 to 20 do
if(j mod 2)=1 then
writeln('es impar',j);
for i:= 1 to 20 do
if (i mod 2)=0 then
writeln('es par',i);
end.

Identificar si es mayor a 18 años (EXAMEN)

program nombre;
uses wincrt;
var
edad:real;
begin
writeln('ingrese edad');
readln(edad);
if (edad>18) then
writeln('edad es mayor');
if (edad<18) then
writeln('edad es menor');
end.

Identificar la nota mas alta (Examen)

progam nomre;
uses wincrt;
var
nota,n1, n2, n3, n4:real;
begin
writeln('ingrese n1');
readln(n1);
writeln('ingrese n2');
readln(n2);
writeln('ingrese n3');
readln(n3);
writeln('ingrese n4');
readln(n4);
if (n1>n2) and (n1>n3) and (n1>n4) then
writeln('la n1 es mayor');
if (n2>n1) and (n2>n3) and (n2>n4) then
writeln('la n2 es mayor');
if (n3>n1) and (n3>n2) and (n3>n4) then
writeln('la n3 es mayor');
if (n4>n1) and (n4>n2) and (n4>n3) then
writeln('la n1 es mayor');
end.

********OTRO MODO DE REALIZAR UN MENU********

PROGRAM NOMBRE;
USES WINCRT;
VAR i,op:Integer;
BEGIN
Writeln('**Menu***');
Writeln('');
Writeln('Pulse 1 para los Numero Ascendente');
Writeln('Pulse 2 para los Numero Descendente');
Writeln('Pulse 3 para los Numero Pares');
Writeln('Pulse 4 para los Numero Impares');
Readln(op);
If op= 1 then
Begin
Writeln('Numero Ascendente');
FOR i:=1 TO 10 DO
Writeln(i);
End;
If op= 2 then
Begin
Writeln('Numero Pares Descendente');
FOR i:=10 DOWNTO 1 DO
Writeln(i);
End;
If op= 3 then
Begin
Writeln('Numero Pares');
FOR i:=10 DOWNTO 1 DO
IF (i mod 2)=1 then
Writeln(i);
End;
If op= 4 then
Begin
Writeln('Numero Impares');
FOR i:=10 DOWNTO 1 DO
IF ((i mod 2)=1) THEN
Writeln(i);
End;
END.

*******MENU********

program nombre;
uses wincrt;
var
i,op,n:integer;
begin
writeln('**********MENU**********');
writeln('');
writeln('ingrese 1 para ordenar ascendente');
writeln('ingrese 2 para ordenar descendente');
writeln('ingrese 3 para indicar los numeros pares');
writeln('ingrese 4 para indicar los numeros impares');
readln(op);
if op=1 then
begin
for i:=1 to 20 do
writeln('el numero es:',i);
end
else
if op=2 then
begin
for i:= 20 downto 1 do
writeln('el numero es',i);
end
else
if op=3 then
begin
writeln('ingrese numeros pares');
readln(n);
for i:= 1 to n do
if (i mod 2)=0 then
writeln('es par',i);
if(i mod 2)=1 then
writeln('es impar',i);
end
else
if op=4 then
begin
writeln('ingrese numeros impares');
readln(n);
for i:= 1 to n do
if(i mod 2)=1 then
writeln('es impar',i);
end
else
end.

Números Pares e Impares

program numeros_par;
uses wincrt;
var
i:integer;
begin
writeln('ingresa el valor a consultar');
if (i mod 2)=0 then
writeln('es par');
if (i mod 1)=1 then
writeln('es impar');
end.

Promedio total

program promedio;
uses wincrt;
var i,n,nota,acu:integer;
pro,rea:real;
begin
acu:=0;
writeln ('Cuantas notas seran procesadas');
readln (n);
for i:=1 to n do
begin
writeln ('Ingrese la nota',i);
readln (nota);
acu:=acu+nota;
end;
writeln ('La sumatoria es: ',acu);
pro:=acu/n;
rea:=(pro*20)/100;
writeln ('El promedio es: ',pro:5:2);
writeln ('Nota real: ',rea:5:2);
end.

Promedio de Notas, ingresando califiación

program repite;
uses wincrt;
var
i,n,nota:integer;
begin
writeln('cuantas notas seran procesadas');
readln(n);
for i:= 1 to n do
begin
writeln('ingresa la nota',i);
readln(nota);
end;
end.

Para conteo de números

program repita;
uses wincrt;
var
i,n,n1:integer;
begin
writeln('ingresa el numero inicial');
readln(n1);
writeln('ingresa el numero final');
readln(n);
for i:= n1 to n do
writeln('el numero es: ',i);
end.

Seleccionar entrada por tipo de sexo...

program nombre;
uses wincrt;
var
sexo:string;
begin
writeln('ingrse sexo');
readln(sexo);
if sexo= 'f' then
writeln('pase mi amor vamos al hotel');
if sexo= 'm' then
writeln('full vaya para otra dico pocoloco');
end.

Calcular el sueldo

program nombre;
uses wincrt;
var
sueldo, sueldo_nuevo:real;
begin
writeln('ingrse sueldo');
readln(sueldo);
if sueldo<2070 then
sueldo_nuevo:=(sueldo*0.30)+sueldo;
writeln('su sueldo nuevo sera' ,sueldo_nuevo:5:2);
if sueldo>2070 then
sueldo_nuevo:=(sueldo*0.20)+sueldo;
writeln('su sueldo nuevo sera' ,sueldo_nuevo:5:2);
end.

Calcular el Indice de Masa Corporal

program nombre;
uses wincrt;
var
imc, peso, altura:real;
begin
writeln('ingrese peso');
readln(peso);
writeln('ingrese altura');
readln(altura);
imc:= peso/(altura*altura);
writeln('resultado',imc:5:2);
if imc<23 then
writeln('delgado')
else
if(imc>23)and (imc<25) then
writeln('normal');
if(imc>25) and (imc<28) then
writeln('obeso');
if imc>28 then
writeln('sobrepeso');
end.

Calcular quien es mayor-menor...

program nombre;
uses wincrt;
var
jose, marcos, luis:integer;
begin
writeln('ingrese la edad de jose');
readln(jose);
writeln('ingrese la edad de marcos');
readln(marcos);
writeln('ingrese la edad de luis');
readln(luis);
if(jose>marcos) and (jose>luis) then
writeln('el mayor es jose');
if(marcos>jose)and (marcos>luis) then
writeln('el mayor es marcos');
if(luis>jose) and (luis>marcos) then
writeln('el mayor es luis');
end.

Calcular Área según selección: Triángulo, Circulo, Cuadrado

program nombre;
uses wincrt;
var
op:integer;
begin
writeln('***Menú***');
writeln('');
writeln('pulse 1 para area triangulo');
writeln('pulse 2 para area cuadrado');
writeln('pulse 3 para area circulo');
readln (op);
if op=1 then
writeln('area triangulo')
else
if op=2 then
writeln('area cuadrado')
else
if op=3 then
writeln('area circulo')
else
writeln('opsion no valida');
end.

Aprobar y Reprobar: Notas

program nombre;
uses wincrt;
var
nota:integer;
begin
writeln('ingrese nota');
readln (nota);
if(nota >=30)then
writeln('aprobado')
else
writeln('reprobado');
end.

Conversión de medidad con dos decimales

program nombre;
uses wincrt;
var
metros,kilometros,millas,yardas:real;
begin
writeln('ingrese metros');
readln(metros);
metros:=1/1000;
writeln('el resultado',kilometros:5:2);
writeln('ingrese metros');
readln(metros);
metros:=2/1000;
writeln('el resultado',millas:5:2);
writeln('ingrese metros');
readln(metros);
metros:=3/1000;
writeln('el resultado',yardas:5:2);
end.

Calcular nota final

program nombre;
uses wincrt;
var
NF,n1,n2,n3,n4,final:real;
begin
writeln('ingrese n1');
readln(n1);
writeln('ingrese n2');
readln(n2);
writeln('ingrese n3');
readln(n3);
writeln('ingrese n4');
readln(n4);
NF:=(n1+n2+n3+n4)/4;
final:=(NF*20)/200;
writeln('el resultado es',NF:5:2);
writeln('el resultado final',final:5:2);
end.

Área de un cuadrado

program nombre;
uses wincrt;
var
aCuadrado, l:integer;
begin
writeln('ingrese l');
readln(l);
aCuadrado:=(l*l);
writeln('el area es',aCuadrado);
end.

Calcular el área del circulo

program nombre;
uses wincrt;
var
AC,r:real;
begin
writeln('ingrese r');
readln(r);
AC:= 3.1416*(r*r);
writeln('el area es',AC:5:2);
end.

Calcular el area de una triángulo

program nombre;
uses wincrt;
var
AT,b,h:real;
begin
writeln('ingrese b');
readln(b);
writeln('ingrese h');
readln(h);
AT:=(b*h)/2;
writeln('resultado',AT:5:2);
end.

Conversiones de medidas

program nombre;
uses wincrt;
var
metros,kilometros,millas,yardas:real;
begin
writeln('ingrese metros');
readln(metros);
kilometros:=metros/1000;
writeln('el resultado',kilometros);
writeln('ingrese metros');
readln(metros);
millas:=metros*0.00062137;
writeln('el resultado',millas);
writeln('ingrese metros');
readln(metros);
yardas:=metros*1.0936;
writeln('el resultado',yardas);
end.

Calcular Áreas

program nombre;
uses wincrt;
var
op,ac,r,at,b,h,aCuadrado,l:real;
begin
writeln('***Menú***');
writeln('');
writeln('pulse 1 para area triangulo');
writeln('pulse 2 para area cuadrado');
writeln('pulse 3 para area circulo');
readln (op);
if op=1 then
begin
writeln('ingrese b');
readln(b);
writeln('ingrese h');
readln(h);
at:=(b*h)/2;
writeln('resultado',AT:5:2);
end
else
if op=2 then
begin
writeln('ingrese l');
readln(l);
aCuadrado:=(l*l);
writeln('el area es',aCuadrado:5:2);
end
else
if op=3 then
begin
writeln('ingrese r');
readln(r);
ac:=3.1416*(r*r);
writeln('resultado', ac:5:2);
end
else
writeln('opsion no valida');
end.