Escribir un programa en Pascal que calcule el salario semanal de un
trabajador en base a las horas trabajadas y el pago por hora trabajada.

- Horas ordinarias (40 primeras horas de trabajo) - 2.000 Pts/hora
- 1.5 veces precio hora ordinaria

PROGRAM EJER41; 
        USES CRT;

        VAR htrab, ptsh:REAL; {Horas trabajadas y pts hora}
        VAR nhextra, hextra:REAL; {Numero de horas extra y horas extra}
        VAR salario_semanal:REAL;
BEGIN
     ClrScr;

     WRITE ('Introduzca las horas trabajadas y las pts/hora que se
cobran ');
     WRITELN ('para calcular el salario semanal.');
     WRITELN ('');

     WRITE ('Horas trabajadas: ');   	READLN (htrab);
     WRITE ('Pts/hora: ');           	READLN (ptsh);
     WRITE ('Horas extra: ');        	READLN (nhextra);
     WRITELN ('');

     hextra:=nhextra * (ptsh * 1.5);
     Salario_semanal:= (htrab) * (ptsh) + hextra;

     WRITE ('El salario semanal son ',salario_semanal:5:0,' pts.');
END.

PROGRAM EJER41;
        USES CRT;
        VAR pre_hor,hor_tra,hor_ext,sal_sem:REAL;
BEGIN
     ClrScr;

     pre_hor:=2000;

     WRITE('Horas trabajadas '); READLN(hor_tra);

     IF hor_tra<=40 THEN
        sal_sem:=hor_tra*pre_hor
     ELSE
     BEGIN
          hor_ext:=hor_tra-40;
          sal_sem:=(40*pre_hor)+(hor_ext*(pre_hor*1.5));
     END;

     WRITE('Salario semanal: '); WRITELN(sal_sem:5:2);
END.

Escribir un programa en Pascal que realice un bucle con While y muestre
en pantalla del 1 al 10.

PROGRAM EJER42; 
        USES CRT;
        VAR x:INTEGER;
BEGIN
     x:=0;

     ClrScr;

     WHILE X <= 10 DO
     BEGIN
          WRITELN (x);
          x:=x+1;

     END;
END.


Escribir un programa en Pascal que realice un bucle con Repeat y muestre
en pantalla del 1 al 10.

PROGRAM EJER43; 
        USES CRT;
        VAR x:INTEGER;
BEGIN
     x:=0;

     ClrScr;

     REPEAT
           WRITELN (x);
           x:=x+1;
     UNTIL x=10;
END.


Escribir un programa en Pascal que realice un bucle con For y muestre en
pantalla del 1 al 10.

PROGRAM EJER44; 
        USES CRT;

        VAR x:INTEGER;
BEGIN

     ClrScr;

     FOR x:=0 TO 10 DO
              WRITELN (x);

END.


Escribir un programa en Pascal que visualice en pantalla los números
pares entre 1 y 25.

PROGRAM EJER45; 
        USES CRT;

        VAR num:INTEGER;


BEGIN

     num:=2;

     ClrScr;

     REPEAT

           WRITELN (num);
           num:= num + 2;
     UNTIL num= 26;

END.


PROGRAM EJER45;
        USES CRT;
        VAR sem:INTEGER;
BEGIN
     ClrScr;

     sem:=1;

     WHILE sem <= 25 DO
     BEGIN
          IF sem mod 2=0 THEN
             WRITELN(sem);
             sem:=sem + 1;
          END;
END.


Escribir un programa en Pascal que visualice en pantalla los números
múltiplos de 5 comprendidos entre 1 y 100.

PROGRAM EJER46; 
        USES CRT;

        VAR num:INTEGER;
BEGIN
     num:= 5;

     ClrScr;

     WHILE num <= 100 DO
     BEGIN
          WRITELN (num);
          num:= num + 5;
     END;
END.


PROGRAM EJER46;
        USES CRT;
        VAR sem:INTEGER;
BEGIN
     ClrScr;

     FOR sem:= 1 TO 100 DO
     BEGIN
          IF sem mod 5=0 THEN
             WRITELN(sem);
     END;
END.

Escribir un programa en Pascal que sume los números comprendidos
entre 1 y 10.

PROGRAM EJER47; 
        USES CRT;

        VAR num, x:INTEGER;
BEGIN
     ClrScr;

     num:=1;
     x:=1;

     WHILE num <= 10 DO
     BEGIN
          WRITELN (x);
          num:= num + 1;
          x:= x + num;
     END;
END.



Escribir un programa en Pascal que genere la tabla de multiplicar
de un número introducido por el teclado.

PROGRAM EJER48; 
        USES CRT;

        VAR tabla, x, num:INTEGER;
BEGIN
     ClrScr;

     WRITE ('Introduzca un numero para hacer su tabla de
multiplicar: ');

     READLN (num);      WRITELN ('');

     REPEAT
           WRITELN (tabla);
           x:= x + 1;
           tabla:= num * x;
     UNTIL x=11;
END.


PROGRAM EJER48;
        USES CRT;
        VAR num,sem:INTEGER;
BEGIN
     ClrScr;

     WRITE('Introduzca un numero entero: ');    READLN(num);

     FOR sem:=1 TO 10 DO
     BEGIN
          WRITE(num); WRITE(' * '); WRITE(sem); WRITE(' = ');
          WRITELN(num*sem);
     END;
END.

Escribir un programa en Pascal que realice la pregunta ¿Desea
continuar S/N? y que no deje de hacerla hasta que el usuario teclee N.

PROGRAM EJER49; 
        USES CRT;

        VAR respuesta:CHAR;

BEGIN

     ClrScr;

     REPEAT
         WRITELN ('DESEA CONTINUAR: S/N '); READLN (respuesta);
     UNTIL respuesta='N';

END.


PROGRAM EJER49B; 
        USES CRT;

        VAR respuesta:STRING;

BEGIN

     ClrScr;


     REPEAT
         WRITELN ('DESEA CONTINUAR: SI/NO '); READLN (respuesta);
     UNTIL respuesta='NO';

END.


PROGRAM EJER49;
        USES CRT;
        VAR resp:CHAR;

BEGIN
     ClrScr;

     resp:='S';

     WHILE UPCASE(resp)='S' DO
     BEGIN
          WRITE('Desea continuar? '); READLN(resp);
     END;
END.

Escribir un programa en Pascal que calcule cuantos años tarda en
duplicarse un capital depositado al 5% de interés anual.

PROGRAM EJER50; 
        USES CRT;

        VAR tiempo:REAL;
        VAR cap_ini,cap_fin:REAL;
        CONST interes = 0.05;
BEGIN
     ClrScr;

     WRITE ('Intruduzca el capital para calcular cuanto tardara ');
     WRITE ('en duplicarse, con un interes del 5%: ');

     READLN (cap_ini);
     WRITELN ('');

     IF cap_ini < 0 THEN
     BEGIN
        WRITE ('No se puede incluir un capital negativo');
        EXIT;
     END;

     tiempo:=0;
     cap_fin:= cap_ini;

     REPEAT
     cap_fin:=cap_fin + (cap_fin * interes);
     tiempo:= tiempo + 1;
     UNTIL cap_fin > (cap_ini * 2);

     WRITELN ('Tardara',tiempo:3:0,' años en duplicarse');
     WRITELN ('Capital final: ',cap_fin:5:2,' pts');
END.

PROGRAM EJER50;
        USES CRT;
        VAR cap_ini,cap_fin:REAL;
        VAR num_year:INTEGER;
        const INTERES=0.05;
BEGIN
     ClrScr;
     num_year:=0;

     WRITE('Capital inicial -----: ');  READLN(cap_ini);

     cap_fin:=cap_ini;

     WHILE cap_fin < (cap_ini*2) DO
     BEGIN
          cap_fin:=cap_fin+(cap_fin*interes);
          num_year:=num_year + 1;
     END;

     WRITE('Capital inicial -----: ');  WRITELN(cap_ini:5:2);
     WRITE('Capital final -------: ');  WRITELN(cap_fin:5:2);
     WRITE('Capital duplicado en ');     WRITE(num_year);  WRITE
(' años');
END.

Volver