Problemas resueltos en pascal

Solo disponible en BuenasTareas
  • Páginas : 3 (597 palabras )
  • Descarga(s) : 0
  • Publicado : 14 de diciembre de 2010
Leer documento completo
Vista previa del texto
Materia: Resolución de problemas y algoritmos

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...
tracking img