Pascal/Turbo Pascal - Analisis y Diseños de Algoritmos, Estructuras alternativas

   
Vista:

Analisis y Diseños de Algoritmos, Estructuras alternativas

Publicado por Solimar (1 intervención) el 15/01/2013 23:55:57
Buenas tardes por favor si alguien me puede ayudar a resolver estos ejercicios de programación en Pascal, con estructuras alternativas:

1.- Dado como dato el sueldo de un trabajador, aplique un aumento del 15%, si su sueldo es inferior a 100.000bs; en ese caso imprima el sueldo del trabajador .

2.- Calcular el monto de una llamada hecha, sabiendo que los tres primeros minutos se pagan 450bs c/u y cada minuto adicional a 500bs. La entrada esta constituida por nombre y duración en minutos.

3.- Diseñe un algoritmo que permita leer los siguientes campos de entrada: numero de paquete y peso en onzas. Imprimir el numero del paquete seguido de:
- Clase#1 si el peso es menor a 32 onzas.
- Clase#2 si va de 32 a 128 onzas.
- Clase#3 para mas de 128 onzas.
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

Analisis y Diseños de Algoritmos, Estructuras alternativas

Publicado por ramon (2072 intervenciones) el 16/01/2013 17:00:50
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
{Esto podría ayudarte }
 
 program multiples;
 uses
    crt;
  const
     tope = 100000;
     pcient = 15;
  var
    sueldo : real;
    sueld  : real;
    llamad : real;
    tiempo : integer;
    nom : string[80];
    paquet : integer;
    peso : integer;
 
  procedure entrada_sueldo;
  begin
      clrscr;
      write('Entre Sueldo Trabajador : ');
      readln(sueldo);
      if sueldo < tope then
      sueld := sueldo * pcient / 100
   else
      sueld := sueldo;
      writeln('Su Sueldo Es : ',sueld:12:2,' bs');
      writeln;
      writeln('*** Pulse [Enter] ***');
      readln;
  end;
 
  procedure llamada_telef;
  begin
      clrscr;
      write('Nombre : ');
      readln(nom);
      write('Tiempo Lamada : ');
      readln(tiempo);
      if tiempo > 3 then
      llamad := (450 * 3) + ((tiempo - 3) * 500)
    else
      llamad := tiempo * 450;
     writeln;
     writeln('Su Importe Es : ',llamad:8:2,' bs');
     writeln;
     writeln('*** Pulse [Enter] ***');
     readln;
  end;
 
  procedure paquete_peso;
  begin
     clrscr;
     write('Entre Numero De Paquetes : ');
     readln(paquet);
     write('Entre Peso En Onzas : ');
     readln(peso);
   case peso of
  0..31 : writeln('Num. Paquete es : ',paquet,' Clase#1');
  32..127 : writeln('Num. Paquete es : ',paquet,' Clase#2');
  128..1000 : writeln('Num. Paquete es : ',paquet,' Clase#3');
   end;
     writeln;
     writeln('*** Pulse [Enter] ***');
     readln;
  end;
 
 
 
  begin
      entrada_sueldo;
      llamada_telef;
      paquete_peso;
  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