Utilizamos cookies propias y de terceros para mejorar la experiencia de navegaci贸n, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegaci贸n entendemos que se acepta nuestra política de cookies.
  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 緿esea 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駉s 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駉s 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駉s'); END.