Pascal/Turbo Pascal - ejercicio de matematica en pascal

   
Vista:

ejercicio de matematica en pascal

Publicado por samuel (9 intervenciones) el 21/04/2013 18:19:48
buenas tardes a todos por fa necesito un ejemplo de un programaque resuelva un ejercicio de matematica por arreglo de registro con menu incluir,consultar,modificar,eliminar,reporte y salida
gracias espero su opinion y ayuda
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

ejercicio de matematica en pascal

Publicado por ramon (2072 intervenciones) el 23/04/2013 22:39:09
Puedes especificar un poco mas lo que quieres sumas restas multiplicación división raíces o
que los ejercicio de matemática son amplios.
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

ejercicio de matematica en pascal

Publicado por samuel (9 intervenciones) el 24/04/2013 05:18:04
podria ser aplicar la resolvente para ecuaciones de segundo grado lo importante es que sea por arreglo de registro con el menu que especifique por fa
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

ejercicio de matematica en pascal

Publicado por ramon (2072 intervenciones) el 25/04/2013 21:36:03
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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
{Mira si esto te ayuda}
 
program mates;
 uses
    crt;
  type
    operac = record
           dat1 : longint;
           dat2 : longint;
           resu : real;
         end;
   const
      num = 6;
  var
     func : array[1..num] of operac;
     cont : integer;
     tecl : char;
 
  procedure muesta_del_array;
  var
     tt : integer;
  begin
     writeln('Presentacion De Las Operaciones');
     writeln;
     for tt := 1 to cont - 1 do
     begin
     if func[tt].dat2 > 0 then
     writeln(func[tt].dat1,'----',func[tt].dat2,'----',
                                                   func[tt].resu:0:2)
  else
     writeln(func[tt].dat1,'--Raiz--',func[tt].resu:0:2)
     end;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure suma;
  begin
      writeln('Calculo De La Suma De Dos Numeros');
      writeln;
      write('   Entre Num. 1 : ');
      readln(func[cont].dat1);
      write('   Eltre Num. 2 : ');
      readln(func[cont].dat2);
      func[cont].resu := func[cont].dat1 + func[cont].dat2;
      writeln('   El Resultado Es : ', func[cont].resu:0:0);
      cont := cont + 1;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure resta;
  begin
      writeln('Calculo De La Resta De Dos Numeros');
      writeln;
      write('   Entre Num. 1 : ');
      readln(func[cont].dat1);
      write('   Eltre Num. 2 : ');
      readln(func[cont].dat2);
      func[cont].resu := func[cont].dat1 - func[cont].dat2;
      writeln('   El Resultado Es : ',func[cont].resu:0:0);
      cont := cont + 1;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure multiplicacion;
  begin
      writeln('Calculo De La Multiplicacion De Dos Numeros');
      writeln;
      write('   Multiplicando Num. : ');
      readln(func[cont].dat1);
      write('   Multiplicador Num. : ');
      readln(func[cont].dat2);
      func[cont].resu := func[cont].dat1 * func[cont].dat2;
      writeln('   El Resultado Es : ',func[cont].resu:0:0);
      cont := cont + 1;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure division;
  begin
      writeln('Calculo De La division De Dos Numeros');
      writeln;
      write('   Dividendo Num. : ');
      readln(func[cont].dat1);
      write('   Divisor Num.   : ');
      readln(func[cont].dat2);
      func[cont].resu := func[cont].dat1 / func[cont].dat2;
      writeln('   El Resultado Es : ',func[cont].resu:0:2);
      cont := cont + 1;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure porciento;
  begin
      writeln('Calculo Del Tanto 100 De Un Valor');
      writeln;
      write('   Cantidad Num.     : ');
      readln(func[cont].dat1);
      write('   Tanto Por 100 Num.: ');
      readln(func[cont].dat2);
      func[cont].resu := (func[cont].dat1 * func[cont].dat2) / 100;
      writeln('   El Resultado Es : ',func[cont].resu:0:2);
      cont := cont + 1;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure raizcuadrada;
  begin
      writeln('Calculo De Raiz Cuadrada De Un Numero');
      writeln;
      write('   Numero  Num.     : ');
      readln(func[cont].dat1);
      func[cont].dat2 := 0;
      func[cont].resu := Sqrt(func[cont].dat1);
      writeln('   El Resultado Es : ',func[cont].resu:0:2);
      cont := cont + 1;
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  procedure menu;
  var
     fin : boolean;
   begin
      fin := false;
  repeat
    clrscr;
    writeln('<<<<< Menu Mates >>>>>');
    writeln;
    writeln('     1 = Suma');
    writeln('     2 = Resta');
    writeln('     3 = Multiplicacion');
    writeln('     4 = Division');
    writeln('     5 = Tanto por Ciento');
    writeln('     6 = Raiz Cuadrada');
    writeln('     7 = Muestra Array Registros');
    writeln('     8 = Salir');
    writeln;
    writeln('***** Elija Opcion *****');
    repeat
    tecl := readkey;
    until tecl in[#49..#56];
   case tecl of
 #49 : begin clrscr; suma; end;
 #50 : begin clrscr; resta; end;
 #51 : begin clrscr; multiplicacion; end;
 #52 : begin clrscr; division; end;
 #53 : begin clrscr; porciento; end;
 #54 : begin clrscr; raizcuadrada; end;
 #55 : begin clrscr; muesta_del_array; end;
 #56 : fin := true;
  end;
  until fin = true;
 end;
 
 begin
     cont := 1;
     menu;
 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

ejercicio de matematica en pascal

Publicado por samuel (9 intervenciones) el 25/04/2013 22:40:48
gracias si me sirve deje otro problema de arreglo de registro en el foro
igual aca lo dejo

La editorial "Ciencias e Ideas" ha implementado un procedimientode incentivo al personal de venta, el cual tiene las siguientes característic de ventasas:
1.- A cada vendedor se le asigna un objetivo de ventas y un factor de bonificación específico de acuerdo a su antiguedad.
2.- Los vendedores obtendrán bonificaciones adicionales a su sueldo básico, siempre y cuando las ventas realizadas superen a las ventas trazadas como objetivo.
3.- Las comisiones de ventas llamadas "COM" se calculan como un múltiplo del factor de bonificación "FB" de las ventas reales "VR" que excedan las cuotas, es decir el objetivo de ventas "OV".
4.- Al no cumplir con el objetivo de la venta, automáticamente la bonificación a pagar es cero.
5.- Si la venta real es mayor que el objetivo de venta, se paga bonificación por lo tanto COM= FB*(VR _ OV).
diseñar un algoritmo en pseudocódigo donde se muestre el uso correcto de las tecnicas de programación estructurada o subestructurada y realice lo siguiente:
- Presente un menú de mantenimiento con las opciones: INCLUIR, CONSULTAR, MODIFICAR, ELIMINAR, REPORTE Y SALIDA.
- Registre, con la opción incluir, los siguientes datos:
- Código del Vendedor
- Número de Cedula
- Nombres y Apellidos
- Número de Telefono
- Dirección
- Sueldo Básico
- Objetivo de Venta (OV)
- Factor Bonificación (FB)
- Venta Real (VR)
- Ordene el registro Vendedor por el número de Cédula
- Muestre por pantalla cuando realice una búsqueda de un vendedor (femenino o masculino) con un determinado "Codigo del Vendedor". toda la información relativa a ella o él.
- Genere por medio de la opción "Reporte" el siguiente diseño.
NOTA: EN LAS ALTERNATIVAS: " MODIFICAR,ELIMINAR Y CONSULTAR" HAGA USO DE LOS SIGUIENTES DATOS REGISTRADOS CON LA OPCION "INCLUIR"
" EDITORIAL LA CIENCIA Y EL UNIVERSO"
CODIGO DEL VENDEDOR NOMBRE Y APELLIDO BONIFICACION
999 X-------------------------X 9999999 ¡¡Felicitaciones!!
999 X-------------------------X 9999
999 X-------------------------X 999
999 X-------------------------X 0 ¡¡ No cumplió el objetivo!!
- Calcular de cada Vendedor su bonificación y determinar cuál es la mayor e imprimir un mensaje especial cuando este superada la venta o cuando no se cumple el objetivo.
- Subrutina que pewrmita ordenar las bonificaciones de mayor a menor, de tal forma que el primer registro a imprimir sea de mayor bonificación.

buenas tardes a todos por fa necesito un ejemplo de un programaque resuelva un ejercicio de matematica por arreglo de registro con menu incluir,consultar,modificar,eliminar,reporte y salida
gracias espero su opinion y ayuda
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