Problemas resueltos en pascal
Trabajo Práctico Nro.: 3
Profesor: Lic. Mario García Laiun
Alumno: Francisco José Storelli
Título: “Problemas resueltos en Turbo Pascal”Nota: Los cuatro programas aquí mostrados fueron testeados con el programa de Turbo Pascal proporcionado por la cátedra.
Problemas:
1) Se leen tres datos que representan el nombre, sueldo básicoy antigüedad de un empleado y se debe escribir el nombre y el sueldo a cobrar. El sueldo se calcula, adicionando al básico el 15 % del mismo, si la antigüedad supera los 3 años; 30 % del mismo, si laantigüedad supera los 6 años y 50 % del mismo, si la antigüedad supera los 10 años.
Turbo Pascal:
Program Sueldos;
uses crt;
var Nombre:String;
var SueldoB,SueldoAux:real;
var Antig:Byte;begin
writeln('Ingrese el nombre');
readln(Nombre);
writeln('Ingrese el sueldo basico');
readln(SueldoB);
writeln('Ingrese la antiguedad en anios');
readln(Antig);
if Antig>10 thenSueldoAux:=SueldoB*1.5
else begin
if Antig>6 then
SueldoAux:=SueldoB*1.3
else begin
if Antig>3 then SueldoAux:=SueldoB*1.15
else
SueldoAux:=SueldoB;
end;end;
writeln('Nombre: ',Nombre,' $ ',SueldoAux:2:2);
readln;
end.
2) Escribir un algoritmo que determine en la variable MINIMO el menor de los valores de cuatro variables numéricas.
TurboPascal:
program minimos;
uses crt;
var A,B,MINIMO:real;
begin
Writeln('ingrese el primer numero');
readln(A);
Writeln('ingrese el segundo numero');
readln(B);
if ASegundo then beginAux:=Segundo;
Segundo:=Tercero;
Tercero:=Aux;
end;
writeln('Los numeros son de menor a mayor ',Tercero:2:2,' ',Segundo:2:2,' ',Primero:2:2);
readln;{lo ponemos para que no se cierre la ventana deejecucion}
end.
4) Una empresa fabrica dos productos A y B y desea saber cuál de ellos es el más aceptado en el mercado. Para ello realiza una encuesta y, por cada persona interrogada, se obtiene un par...
Regístrate para leer el documento completo.