Pascal/Turbo Pascal - suma de los elementos positivos y negativos de un array

suma de los elementos positivos y negativos de un array

Publicado por eugenia (1 intervención) el 17/12/2009 15:43:58

hola necesito resolver este programa pero no puedo me cuesta mucho
3. Escribir un programa en Pascal que tras asignar a, elementos de un array, números al azar entre -20 y 20, calcule, independientemente, la suma de los elementos positivos y negativos.

4. Escribir un programa en Pascal que almacene en un array de registros los datos de un grupo de trabajadores, las horas que trabajan por semana y su respectivo sueldo.
El programa deberá calcular el sueldo semanal en base a las horas trabajadas y el pago por hora trabajada.

• Horas ordinarias (de Lunes a Viernes de 6 a 20 hs) – $ 6/hora
• Horas Extra 50% - Hora ordinaria * 1.5
• Horas Extra 100% - Hora ordinaria * 2

También deberá contar con una opción para guardar estos datos en un archivo de disco y deberá poder generar un listado con el Número de Legajo, Apellido, Nombre y Sueldo de cada trabajador.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

suma de los elementos positivos y negativos de un array

Publicado por Antonio (74 intervenciones) el 17/12/2009 19:30:42

Hola Eugenia.
Deberías esforzarte un poco y presentar tus ideas sobre los casos que expones.Siempre en el buen entendimiento de que esto es lo que pides. Asi no me queda muy claro si es que se sumen los num. negativos aparte de los positivos, en cuyo caso tendrias que crear dos variables tipo integer (positivos y negativos), iniciarlas a "0" y despues de "aleatorios" mediante la funcion condicional IF THEN establecer : if num < 0 then negativos :=negativos+num;
if num > 0 then positivos := positivos+num; o quiza sea el programa de te inserto
El segundo caso no me queda muy claro lo de las horas, por eso deberías presentar algo de codigo fuente.

program Numeros_aleatorios;

uses    crt;

const

        Max  = 20;

var

        aleatorios : array[1..max] of integer;

        Num,i      : integer;

        SumaT      : integer;

begin

        clrscr;

        sumaT := 0;

        randomize;

        for i := 1 to Max do

        begin

        num := random (41) +(-20);

        aleatorios[i] := num;

        writeln(i,' = ',aleatorios[i]);

        SumaT := SumaT+aleatorios[i]

        end;

        writeln('La suma total es: ',SumaT)

end.

Un saludo y suerte

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar