1. 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.
  2. 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.
  3. 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.
  4. 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.
  5. 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.
  6. 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.
  7. 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.
  8. 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.
  9. 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.
  10. 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.