Pascal/Turbo Pascal - Ayuda por favor con 3 ejercicios

   
Vista:

Ayuda por favor con 3 ejercicios

Publicado por elguape caalgarro@hotmail.com (2 intervenciones) el 14/01/2012 12:05:52
Buenas amigo necesito resolver 3 ejercicios en lenguaje de pascal le agradesco mucho su ayuda son:

elaborar un programa
nota, calcule y muestre su promedio
si el promedio es mayor a 17 escribir "felicitaciones"

hacer un programa que lea 3 valores
A,B,C i A>10 se multiplica A por B y si esta multipliacaiones menor a 50 se le suma C y se muetra resultado.

Diseñe un programa para leer 15 sueldos y calcular cual e la nomina total y cual es el menor sueldo.


la entrada debe ser
calcular nomina
sueldo:

y la salida

calculo nomia
total a pagar:
minimo sueldo:

Pueden contactarme por correo electronico muchas gracias. Se puede llegar a un acuerdo!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda por favor con 3 ejercicios

Publicado por ramon (2072 intervenciones) el 14/01/2012 21:30:44
{Algo A sin valdría}

program aejemplo;
uses
crt;
var
nota : array[1..5] of integer;
valores : array['A'..'C'] of integer;
sueldos : array[1..15] of real;

function notaentrada : real;
var
d, i : integer;
no : integer;
begin
i := 1;
repeat
writeln('Entre Nota : ',i,' De 5');
readln(nota[i]);
i := i + 1;
until i > 5;
no := 0;
for d := 1 to 5 do
begin
no := no + nota[d];
end;
notaentrada := (no / 5);
end;

procedure valoresentrada;
var
toma : integer;
begin
writeln('Entre los valores de A/B/C');
readln(valores['A'],valores['B'],valores['C']);
if valores['A'] > 10 then
toma := (valores['A'] * valores['B']);
if toma < 50 then
writeln(' El resultado es : ',toma + valores['C']);
end;

procedure sueldosentrada;
var
h, s : integer;
nomitotal : real;
menor : real;
temp : real;
begin
s := 1;
repeat
writeln(' Entre sueldo ',s,' de 15');
readln(sueldos[s]);
s := s + 1;
until s > 15;
nomitotal := 0.0;
for h := 1 to 15 do
begin
nomitotal := nomitotal + sueldos[h];
end;
writeln('La nomina total es : ',nomitotal:12:2);
for s := 1 to 14 do
for h := 15 downto s do
begin
if sueldos[s] > sueldos[h] then
begin
temp := sueldos[s];
sueldos[s] := sueldos[h];
sueldos[h] := temp;
end;
end;
writeln(' El sueldo mas bajo es : ',sueldos[1]:12:2);
end;


begin
clrscr;
if notaentrada >= 17 then
writeln('felicitaciones')
else
writeln('hay que esforzarse mas');
valoresentrada;
sueldosentrada;
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar