Pascal/Turbo Pascal - Ayuda por favor

   
Vista:

Ayuda por favor

Publicado por Miguel (6 intervenciones) el 07/11/2012 19:14:22
Muy buenas a todos, nesesito realizar unos programas en pascal que quiero plantear para ver si me pueden dar una mano se los agradesere de corazón.

1. Realizar un programa que calcule el sueldo neto y el sueldo bruto se dara por teclado, si el sueldo bruto es mayor de 10,000 se descontara un 5% de lo contrario se descontara un 3%.

2. Realizar un programa que calcule el volumen de un segmento esferico.

3. Realizar un programa que calcule el interes simple que produce un capital en vareos años IS=CxIxT/100.

Solo esos tres me faltan por resolver, espero que me puedan ayudar.. Muchas gracias de antemano!!
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

Publicado por ramon (2072 intervenciones) el 08/11/2012 20:42:52
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
{A ver si esto sirve}
 
program sueldo;
 uses
   crt;
   const
    esfera : array[1..8] of string[13] = (
    '0000111110000',
    '0011000001100',
    '0100000000010',
    '1000000000001',
    '1111111111111',
    '010000|000010',
    '001100|001100',
    '000011|110000');
  var
    sueldobruto, sueldoneto : real;
    tantop : real;
 
 
  procedure datosueldo;
  begin
      clrscr;
      writeln('  calculo sueldo neto y el sueldo bruto');
      writeln;
      write('   Entre sueldo bruto : ');
      readln(sueldobruto);
      if sueldobruto > 10000 then
      tantop := (sueldobruto * 5) / 100
    else
      tantop := (sueldobruto * 3) / 100;
      sueldoneto := sueldobruto - tantop;
      writeln;
      writeln('   El sueldo Bruto es : ',sueldobruto:0:2);
      writeln('   El sueldo Neto es  : ',sueldoneto:0:2);
      writeln('   El Descuento Es    : ',tantop:0:2);
      readln;
  end;
 
   procedure volumensegmento;
   var
      radio : real;
      alto : real;
      resut : real;
      x, y : integer;
   begin
      clrscr;
      gotoxy(2,1);write('calcule el volumen de un segmento esferico');
      for y := 1 to 8 do
        for x := 1 to 13 do
        begin
          if esfera[y,x] = '1' then
          begin
          gotoxy(10 + x,2 + y);write('.');
          end;
          if esfera[y,x] = '|' then
          begin
          gotoxy(10 + x,2 + y);write('|');
          end;
        end;
      gotoxy(12 + 14,7);write('<---Radio');
      gotoxy(13,10 + 1);write(' Altura');
      writeln;
      writeln;
      write('   Entre El Radio : ');
      readln(radio);
      write('   Entre Altura   : ');
      readln(alto);
      resut := (((1 / 3) * pi) * (alto * alto) * (3 * radio - alto));
      clrscr;
      writeln('   El Radio Es   : ',radio:0:2);
      writeln('   El Alto  Es   : ',alto:0:2);
      writeln('   El Volumen Es : ',resut:0:2,' cmü');
   end;
 
   procedure interesimple;
   var
      capital : real;
      interes : real;
      ayos : integer;
      tatopor : real;
      intayo : real;
   begin
       clrscr;
       writeln('  interes simple que produce un capital en vareos años');
       writeln;
       write('   Entre El Capital : ');
       readln(capital);
       write('   Entre Tanto Por Ciento % : ');
       readln(tatopor);
       write('   Entre A¤os : ');
       readln(ayos);
       intayo := tatopor * 1 / 100;
       interes := (capital * intayo * ayos);
       clrscr;
       writeln('  Capital       = ',capital:0:2,' euros');
       writeln('  Tanto Por %   = ',tatopor:0:2,' euros');
       writeln('  A¤os          = ',ayos);
       writeln('  Interes Total = ',interes:0:2,' euros');
   end;
 
 
   begin
       clrscr;
       volumensegmento;
       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

Ayuda por favor

Publicado por Miguel (6 intervenciones) el 15/11/2012 13:29:22
Muchas gracias por su ayuda ramon se lo agradesco mucho :D
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