Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Luis Miguel No me compila

By: a guest on May 1st, 2012  |  syntax: None  |  size: 2.38 KB  |  hits: 15  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. program SiganmeLosPasos;
  2. Uses Crt;
  3. Const
  4. Bonihijo_2=100;
  5. Bonihij2_5=150;
  6. Bonihij6_17=300;
  7. Suebas1=2500;
  8. Suebas2=2700;
  9. Suebas3=3400;
  10. Bonipesnor=0.6;
  11. Bonisobpes=0.20;
  12. Suesup=4000;
  13.  
  14. Var
  15. Hijo_2,Hij2_5,Hij6_17,Suesup4000,Man,Mujer,Cantaspi : Integer;
  16. Expe, Sueinteg,Bonihij,Boniali,Suebas: Real;
  17.  
  18. Begin
  19. Writeln('Programa para calcular sueldo integral, bonificaciones y numero de aspirantes');
  20. Writeln('para empresa siganmelospasos');
  21. Man := 0;
  22. Mujer := 0;
  23. Cantaspi := 0;
  24. Suesup4000 := 0;
  25. readkey;
  26. Repeat
  27. Clrscr;
  28. Cantaspi := Cantaspi + 1;
  29. Repeat
  30. Writeln('indique sexo del aspirante, M o F');
  31. Readln (sexo);
  32. Until (sexo='M') or (sexo='m') or (sexo='F') or (sexo='f')
  33. if (sexo='M') or (sexo='m') then
  34. man := Man + 1;
  35. if (sexo = 'F') or (sexo='f') then
  36. Mujer := Mujer + 1;
  37. Writeln('Indique años de experiencia del aspirante');
  38. Readln (expe);
  39. Writeln('Indique si el aspirante tiene hijos');
  40. readln (hijos);
  41. If (hijos = '3') or (hijos = 's') Then
  42. Begin
  43. writeln ('indique numero de hijos de edad entre 0 y 2 años');
  44. Readln (Hijo_2);
  45. Writeln('Indique numero de hijos de edad entre 0 y 2 años');
  46. Readln(Hij2_5);
  47. Writeln('Indique numero de hijos de edad entre 7 y 17 años');
  48. readln(hij6_17)
  49. end;
  50. if (hijos='N') or (hijos='n') then
  51. begin
  52. hij0_2:=0;
  53. hij2_5:=0;
  54. hij6_17:=0;
  55. end;
  56. repeat
  57. writeln('indique si el aspirante tiene un peso normal o sobrepeso');
  58. readln(peso);
  59. until (peso='normal') or (pesos='Normal') or (peso='Sobrepeso') or (peso='sobrepeso');
  60. if (expe<1)then
  61. suebas:=Suebas1;
  62. if (expe>=1) and (expe<=3) then
  63. Suebas:=suebas2;
  64. if (expe>3) then
  65. suebas:=suebas3;
  66. bonihij:=(hij0_2*bonihij0_2) + (hij2_5*bonihij2_5) + hij6_17*bonihij6_17);
  67. if (peso='Normal') or (peso='normal') then
  68. begin
  69. boniali:=suebas*bonipesnor
  70. end;
  71. if (peso='Sobrepeso') or (peso='sobrepeso') then
  72. begin
  73. boniali.=suebas*bonisobpes
  74. end;
  75. if (bonihij=0) then
  76. boniali:=Boniali-(Boniali*porboniali);
  77. sueinteg:=suebas+bonihij+boniali;
  78. if(sueinteg>suesup) then
  79. begin
  80. suesup4000:=suesup4000+1
  81. end;
  82. writeln('el sueldo integral de este aspirante es:'sueinteg);
  83. writeln('_');
  84. Writeln('"procesar otro aspirante?, S o N');
  85. readln(opcion);
  86. until(opcion='N') or (opcion='n');
  87. writeln('aspirantes procesados:',Cantaspi);
  88. writeln('mujeres procesadas:',Mujer);
  89. writeln('hombres procesados:',Man);
  90. writeln('aspirantes que ganaran sueldo mayor a 4000Bs: ',suesup4000);
  91. readln()
  92. end.
create a new version of this paste RAW Paste Data