Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Calculadora de Resistencia en base a sus colores

Pascal/Turbo Pascal - Calculadora de Resistencia en base a sus colores

Volver
Nuevo Tema
<<>>
 
Vista:

Calculadora de Resistencia en base a sus colores

Publicado por Oswaldo Suarez (6 intervenciones) el 30/12/2012 16:11:23
Necesito Hacer un programa que dado los colores que lleva una resistencia pueda determinar la resistividad y la tolerancia de la resistencia, cada color tiene un valor, igualmente la tolerancia tiene un color, (las reswistencias tienen un codigo de colores, mediante el cual podemos determinar su resistividad y tolerancia, en internet se consiguen muchos programa de este tipo y programado en forma visual, yo lo quiero en Dev Pascal.

Saludos
Espero tu respuesta

Oswaldo Suarez
[email protected]
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

Calculadora de Resistencia en base a sus colores

Publicado por ramon (2158 intervenciones) el 01/01/2013 22:59:46
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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
{A ver si esto ayuda}
 
 program resisten;
 uses
   crt;
  const
 
     colores : array[1..12] of string[8] = (
     'Negro','Marron','Rojo','Naranja','Amarillo','Verde',
     'Azul','Violeta','Gris','Blanco','Plata','Oro');
 
     coll : array[1..10] of integer = (
     0,6,4,12,14,2,1,5,8,15);
 
     valores : array[1..2,1..10] of integer = (
     (-0,1,2,3,4,5,6,7,8,9),
     (0,1,2,3,4,5,6,7,8,9));
 
     porx : array[1..7] of longint = (
     1,10,100,1000,10000,100000,1000000);
 
     toler : array[1..2] of integer = (
     10,5);
 
     divi : integer = 10;
 
 
   var
     tr1, tr2 : string[2];
     valor : string[8];
     valortot, resis : real;
     tt, va1, va2, mult : longint;
     gi, i, error, divid, por100 : integer;
 
 
   procedure resistencia(xr, yr : integer);
   var
     di, dd : integer;
   begin
   textcolor(15);
       gotoxy(xr,yr);write('    ÚÂÄÂÄÂÄÂÄÄÄÂÄ¿    ');
   gotoxy(xr,yr + 1);write('ÄÄÄÄ´³ ³ ³ ³   ³ ³ÃÄÄÄÄ');
   gotoxy(xr,yr + 2);write('    ÀÁÄÁÄÁÄÁÄÄÄÁÄÁÙ    ');
   gotoxy(xr + 5,yr - 1);write(' 1 2 3     4');
   gotoxy(xr,yr - 3);write('**** Toma Valores Resistencia ****');
   end;
 
  procedure menucolores(xc, yc, colo, qu : integer);
  var
    pon : byte;
  begin
  case colo of
  1 : pon := 0;
  2 : pon := 6;
  3 : pon := 4;
  4 : pon := 12;
  5 : pon := 14;
  6 : pon := 2;
  7 : pon := 1;
  8 : pon := 5;
  9 : pon := 8;
 10 : pon := 15;
 11 : pon := 7;
 12 : pon := 14;
   end;
      textcolor(0);
      gotoxy(xc,yc);write('ÚÄÄÄÄÄ¿');
      gotoxy(xc,yc + 1);write('³     ³');
      gotoxy(xc,yc + 2);write('ÀÄÄÄÄÄÙ');
      textcolor(pon);
      gotoxy(xc + 1,yc + 1);write('ÛÛÛÛÛ');
      textcolor(15);
      if qu = 1 then
      begin
      gotoxy(xc + 8,yc + 1);write(colores[colo]);
      end;
      if qu = 2 then
      begin
      gotoxy(xc + 8,yc + 1);write(porx[colo]);
      end;
  end;
 
  procedure marcomenu(xc, yc : integer; estado : boolean);
  begin
     if estado = true then
     begin
       textcolor(10);
          gotoxy(xc,yc);write('ÚÄÄÄÄÄ¿');
      gotoxy(xc,yc + 1);write('³');
      gotoxy(xc + 6,yc + 1);write('³');
      gotoxy(xc,yc + 2);write('ÀÄÄÄÄÄÙ');
      textcolor(15);
     end
   else
       begin
          textcolor(0);
          gotoxy(xc,yc);write('ÚÄÄÄÄÄ¿');
      gotoxy(xc,yc + 1);write('³');
      gotoxy(xc + 6,yc + 1);write('³');
      gotoxy(xc,yc + 2);write('ÀÄÄÄÄÄÙ');
      textcolor(15);
       end;
  end;
 
  procedure elejircolor;
  var
    tomar : char;
    colortomado, n, co : integer;
    x, y : integer;
  begin
      gotoxy(40,4);write('<< Colores Resistencias >>');
      for tt := 1 to 10 do
      menucolores(50,4 + (tt * 3),tt,1);
      x := 50;
      y := 4;
      n := 1;
      marcomenu(x,y + (3 * n),true);
      co := 1;
      y := 7;
   repeat
      gotoxy(4,10);write(' Elija Color Vanda ',co,
                      '  Use [',chr(24),chr(25),']');
     colortomado := 0;
     repeat
      tomar := readkey;
      marcomenu(x,y,false);
      if tomar = #72 then

      begin
          n := n - 1;
          if n < 1 then
          n := 1;
          y := 4 + (n * 3);
          if y < 4 then
          y := 4;
      end;
      if tomar = #80 then

      begin
          n := n + 1;
          if n > 10 then
          n := 10;
          y := 4 + (n * 3);
          if y > 34 then
          y := 34;
      end;
   marcomenu(x,y,true);
   until tomar = #13;

   if co = 1 then
   begin
   va1 := valores[co,n];
   colortomado := coll[n];
   end;
    if co = 2 then
    begin
      va2 := valores[co,n];
      colortomado := coll[n];
    end;
   textcolor(colortomado);
   case co of
 1 : begin  gotoxy(5 + 6,5 + 1);write('Û'); end;
 2 : begin  gotoxy(5 + 8,5 + 1);write('Û'); end;
   end;
   textcolor(15);
   co := co + 1;
   until co > 2;
      for y := 1 to 34 do
      begin
         TextBackground(0);
         gotoxy(50,4 + y);write('                   ');
      end;
   for x := 1 to 7 do
   menucolores(50,4 + (x * 3),x,2);
   menucolores(50,4 + ((x + 1) * 3),5,2);
   gotoxy(58,5 + (x + 1) * 3);write('Oro / 10');
   gotoxy(4,10);write(' Elija Color Vanda ',co,
                  '  Use [',chr(24),chr(25),'] Multiplicador');
   colortomado := 0;
      x := 50;
      y := 4;
      n := 1;
      marcomenu(x,y + (3 * n),true);
      co := 1;
      y := 7;
   repeat
      tomar := readkey;
      marcomenu(x,y,false);
      if tomar = #72 then

      begin
          n := n - 1;
          if n < 1 then
          n := 1;
          y := 4 + (n * 3);
          if y < 4 then
          y := 4;
      end;
      if tomar = #80 then

      begin
          n := n + 1;
          if n > 8 then
          n := 8;
          y := 4 + (n * 3);
          if y > 34 then
          y := 34;
      end;
   marcomenu(x,y,true);
   until tomar = #13;

   if n < 8 then
   gi := 1
  else
   gi := 2;
   mult := porx[n];
   if gi = 1 then
   colortomado := coll[n];
   if gi = 2 then
   colortomado := 14;
   textcolor(colortomado);
   gotoxy(5 + 10,5 + 1);write('Û');
   textcolor(15);
   for y := 1 to 34 do
      begin
         TextBackground(0);
         gotoxy(50,4 + y);write('                   ');
      end;
   menucolores(50,4 + (1 * 3),11,1);
   menucolores(50,4 + (2 * 3),12,1);
   gotoxy(4,10);write(' Elija Color Vanda ',co,' Tolerancia');
   colortomado := 0;
      x := 50;
      y := 4;
      n := 1;
      marcomenu(x,y + (3 * n),true);
      co := 1;
      y := 7;
   repeat
      tomar := readkey;
      marcomenu(x,y,false);
      if tomar = #72 then

      begin
          n := n - 1;
          if n < 1 then
          n := 1;
          y := 4 + (n * 3);
          if y < 4 then
          y := 4;
      end;
      if tomar = #80 then

      begin
          n := n + 1;
          if n > 2 then
          n := 2;
          y := 4 + (n * 3);
          if y > 34 then
          y := 34;
      end;
   marcomenu(x,y,true);
   until tomar = #13;

   for y := 1 to 34 do
      begin
         TextBackground(0);
         gotoxy(40,2 + y);write('                          ');
      end;
   if n = 1 then
   textcolor(7);
   if n = 2 then
   textcolor(14);
   gotoxy(5 + 16,5 + 1);write('Û');
   textcolor(15);
   por100 := toler[n];
   str(va1,tr1);
   str(va2,tr2);
   valor := tr1 + tr2;
   valor[0] := chr(length(tr1) + length(tr2));
   val(valor,resis,error);
   if gi = 1 then
   valortot := resis * mult;
   if gi = 2 then
   valortot := resis / 10;
   gotoxy(4,10);write('Valor De La Resistencia Es : ',valortot:8:2,' ê ',
   ' ñ ',por100,' %');
  end;
 
 
  begin
      clrscr;
      resistencia(5,5);
      elejircolor;
      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
1
Comentar

Calculadora de Resistencia en base a sus colores

Publicado por Oswaldo Suarez (6 intervenciones) el 02/01/2013 01:32:43
Muchas gracias por tu ayuda ramon, fue muy util
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

Calculadora de Resistencia en base a sus colores

Publicado por Oswaldo Suarez (6 intervenciones) el 02/01/2013 05:21:11
Hola Ramon, me puedes ayudar a modificar el codigo, para el caso de que la entreda de datos sea mediante un archivo (creo que debe ser un archivo txt, no estoy seguro) y la salida mediante otro archivo, es que mofificaron el proyecto, muchas gracias, tu aporte a sido muy util

Saludos
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

Calculadora de Resistencia en base a sus colores

Publicado por ramon (2158 intervenciones) el 03/01/2013 17:34:55
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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
{Leyendo colores de un archivo primero lo crea luego lo lee y después lo borra]
 program resit;
 uses
       crt;
 
 
  procedure conarchivotexto;
  const
     archivocolores : array[1..5] of string[35] = (
     'Marron Rojo Naranja Plata',
     'Violeta Marron Negro Oro',
     'Azul Violeta Oro Oro',
     'Gris Blanco Negro Plata',
     'Rojo Naranja Marron Oro');
  var
     f : text;
     tec : char;
     p, t, num, num1, i : integer;
     rr, porx : longint;
     por100 : integer;
     resis : string[35];
     colo : string[8];
     resisbal : real;
     valo : string[6];
     elnu, elnu1 : string[2];
  begin
     assign(f,'c:\tp\valoresr.res'); {creamos el archivo colores texto}
     rewrite(f);
     for i := 1 to 5 do
     writeln(f,archivocolores[i]);  {cargamos los datos}
     close(f);  {cerramos archivo}
     clrscr;
     assign(f,'c:\tp\valoresr.res');  {abrimos el archivo de colores}
   {$I-} reset(f); {$I+} {miramos si existe el archivo}
   if ioresult <> 0 then {no existe}
   begin
      writeln('  El Archivo Pedido No Existe');
      readln;
      exit;
   end
 else     {existe}
    begin
        clrscr;
        write('   Linea a Cargar 1..5 ');
        repeat
            tec := readkey;
        until tec in[#49..#53];

        num := ord(tec) - 48;
        writeln;
        for i := 1 to num do
        readln(f,resis);
        writeln('  La Resistencia es Colores = ',resis);
        close(f);
        erase(f);
        t := 1;
        p := 1;
        for i := 1 to length(resis) do
        begin
           if resis[i] <> ' ' then
           begin
              colo[t] := resis[i];
              colo[0] := chr(t);
              t := t + 1;
           end
       else
         begin
        t := 1;
        if (p = 1) or (p = 2) then
        begin
        if colo = 'Negro' then
        begin
        if p = 1 then
        num := - 0;
        if p = 2 then
        num1 := 0;
        end;
        if colo = 'Marron' then
        begin
        if p = 1 then
        num := 1;
        if p = 2 then
        num1 := 1;
        end;
        if colo = 'Rojo'  then
        begin
        if p = 1 then
        num := 2;
        if p = 2 then
        num1 := 2;
        end;
        if colo = 'Naranja' then
        begin
        if p = 1 then
        num := 3;
        if p = 2 then
        num1 := 3;
        end;
        if colo = 'Amarillo' then
        begin
        if p = 1 then
        num := 4;
        if p = 2 then
        num1 := 4;
        end;
        if colo = 'Verde' then
        begin
        if p = 1 then
        num := 5;
        if p = 2 then
        num1 := 5;
        end;
        if colo = 'Azul' then
        begin
        if p = 1 then
        num := 6;
        if p = 2 then
        num1 := 6;
        end;
        if colo = 'Violeta' then
        begin
        if p = 1 then
        num := 7;
        if p = 2 then
        num1 := 7;
        end;
        if colo = 'Gris' then
        begin
        if p = 1 then
        num := 8;
        if p = 2 then
        num1 := 8;
        end;
        if colo = 'Blanco' then
        begin
        if p = 1 then
        num := 9;
        if p = 2 then
        num1 := 9;
        end;
       end;
      if p = 3 then
      begin
         if colo = 'Negro' then
         porx := 1;
         if colo = 'Marron' then
         porx := 10;
         if colo = 'Rojo'  then
         porx := 100;
         if colo = 'Naranja' then
         porx := 1000;
         if colo = 'Amarillo' then
         porx := 10000;
         if colo = 'Verde' then
         porx := 100000;
         if colo = 'Azul' then
         porx := 1000000;
         if colo = 'Oro' then
         porx := 10;
      end;
      p := p + 1;
    end;
   end;
      if p = 4 then
      begin
         if colo = 'Plata' then
         por100 := 10;
         if colo = 'Oro' then
         por100 := 5;
      end;
 end;
      str(num,elnu);
      str(num1,elnu1);
      valo := copy(elnu,1,length(elnu)) + copy(elnu1,1,length(elnu1));
      val(valo,rr,i);
      resisbal := rr * porx;
      if frac(resisbal) > 0 then
      writeln('    ',resisbal:8:2)
    else
      writeln(' El Valor De La Resistencia Es :  ',resisbal:0:0,
                                  ' ê ñ ',por100,' %');
      readln;
  end;
 
  begin
        clrscr;
        conarchivotexto;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Calculadora de Resistencia en base a sus colores

Publicado por Oswaldo Suarez (6 intervenciones) el 03/01/2013 19:58:20
Muchas gracias por tu colaboracion, me es de gran 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

Calculadora de Resistencia en base a sus colores

Publicado por Oswaldo Suárez (6 intervenciones) el 08/01/2013 23:58:31
Hola Ramon, el Progrma con archivos no me corre; hace falta que el codigo realice:
Una calculadora de resistencias que debe leer a partir de un archivo de texto el significado del codigo, es decir, la tabla de colores .
Y tener la opcion de mostrar la salida en pantalla o a traves de un archivo de texto.

muchas gracias

Saludos
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

Calculadora de Resistencia en base a sus colores

Publicado por ramon (2158 intervenciones) el 09/01/2013 12:38:20
Me podías pasar la información del archivo de colores como esta guardado el texto como linea
que separa cada color.
Sin datos del archivo mal puedo descifrar los colores.
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

Calculadora de Resistencia en base a sus colores

Publicado por Oswaldo Suarez (3 intervenciones) el 10/01/2013 00:55:37
Para especificar un resistor hacen falta tres valores: resistencia eléctrica, disipación máxima y precisión o tolerancia.



Estos valores se indican con un conjunto de franja de colores sobre el cuerpo del elemento. Pueden ser tres, cuatro o cinco franjas, dejando la franja de tolerancia (normalmente plateada o dorada) a la derecha, se leen de izquierda a derecha. Como se indico la última franja indica la tolerancia (precisión), de las restantes, la última es el multiplicador y las otras indican las cifras significativas del valor de la resistencia. Es decir el valor de la resistencia se obtiene leyendo las cifras como un número de una, dos o tres cifras, luego se multiplica por el multiplicador y se obtiene el resultado en Ohmios (&#937;). El significado de este código se muestra en la tabla que acompaña este documento.

Por ejemplo, una resistencia cuyos colores sea marrón, negro, rojo es una resistencia: de un valor igual a: 1(marrón), 0 (negro), 100 (rojo), es decir de 1000 ohmios.
Se quiere que especificada una codificación es decir 3, 4 o 5 bandas y la tolerancia, y el valor de la resistencia se muestre el color de las bandas, por ejemplo:
Para 1000 &#937; en 3 franjas y 20 % se muestra Marrón – Negro – Rojo
Para 1000 &#937; en 4 franjas y 10 % se obtiene Marrón – Negro – Rojo y Plata
Para 1000 &#937; en 4 franjas y 5 % se obtiene Marrón – Negro – Rojo y Oro
O dado un código de colores, es decir el número de franjas y sus colores se obtiene el valor de la resistencia y su precisión, por ejemplo:
Dado 4 franjas y Marrón – negro – naranja y oro se obtiene 10K &#937; y 5%

Se requiere de un programa que implemente la calculadora de resistencias, para lo cual debe:

Leer a partir de un archivo de texto el significado del código (tabla de color)
Tener la opción de mostrar la salida en pantalla o a tavés de un archivo de texto.
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

Calculadora de Resistencia en base a sus colores

Publicado por ramon (2158 intervenciones) el 10/01/2013 17:41:30
Disculpa creo que me esplique mal en el programa ultimo si te fijas en la parte primera tienes
las lineas con que se crea el archivo de colores como veras dispone de lo que tu me estas
poniendo en este texto lo que pregunto es.
Que estructura tiene el archivo donde tu tienes que leer los datos me dices que archivo de texto
vale pero como todo archivo para poder interpretar correctamente su contenido y mas en el caso
que indicas debe de tener un estructura o formato de interpretación por ejemplo:

linea de texto:
negro#marrón#rojo#oro
esto seria para cada linea del archivo el signo # nos separa los valores con lo cual le e dado un
formato a las lineas de testo para poder interpretar su contenido desde cualquier programa que
lo lea.
Pero imagina que la linea queda a si:
negromarronrojooro
como veras mal podrás identificar lo que significa por ello se supone que la persona que estableció el archivo que tenéis que leer os diría su formato para poderlo interpretar después
también podría ser de registro que seria lo normal eso seria a sin.

resistencias = record
color1 : byte;
color2 : byte;
color3 : byte;
colpr4 : byte;
end;

Ahora me puedes decir el formato o estructura que tiene no los colores como van eso lo se.
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

Calculadora de Resistencia en base a sus colores

Publicado por oswaldo suarez (3 intervenciones) el 11/01/2013 03:01:22
Ok, dejame averiguar bien sobre la estructura de los archivos ya que no lo entiendo bien...

Saludos y gracias
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
sin imagen de perfil

Calculadora de Resistencia en base a sus colores

Publicado por oswaldo (11 intervenciones) el 26/03/2013 00:09:47
Hola Ramon me podria ayudar a programar en Dev pascal, dada un funcion para Derivarla (ejemplo y = sin(x) - cos(x) ) hallar su grafica a travez de la pendiente. (No tengo idea de como hacerlo manualmente, estoy buscando como es el procedimiento)

Saludos

Oswaldo
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

Calculadora de Resistencia en base a sus colores

Publicado por ramon (2158 intervenciones) el 26/03/2013 19:22:26
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
{Los resultados serian estos}
 
program pendiente;
 uses
    crt;
  var
    y, x : integer;
    k, t : integer;
 
   begin
      clrscr;
      x := - 10;
      y := 1;
      k := 2;
      gotoxy(10,2);write('Valores de sin(t) - cos(t) son');
      for t := x to 10 do
      begin
      y := round(sin(t) - cos(t));
      gotoxy(k,4);write(y);
      k := k + 3;
      end;
      gotoxy(10,6);write('La grafica es');
      x := - 10;
      y := 1;
      for t := x to 10 do
      begin
      y := round(sin(t) - cos(t));
      gotoxy(20 + t,10 + y);write('.');
      end;
      readkey;
   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
sin imagen de perfil

Calculadora de Resistencia en base a sus colores

Publicado por oswaldo (11 intervenciones) el 12/04/2013 02:00:56
Hola Ramon me podria ayudar a programar en Dev pascal, dada un funcion para Derivarla (ejemplo y = sin(x) - cos(x) ), la función puede ser cualquiera, cualquiera funcion que yo introduzca el programa la grafique, es decir hallar su grafica a travez de la pendiente. (No tengo idea de como hacerlo manualmente, estoy buscando como es el procedimiento)

Si esto te puede ayudar:

Sin ser muy rigurosos y solo para tener idea de la funcion y al mismo tiempo solo partiendo de la gráfica la manera mas facil es usar el metodo de las diferencias, esto es:

Si tienes los valores de X y Y de la funcion original, para saber como es la de la derivada pues partes desde el segundo punto P2 calculando de la siguiente formula

P2 = (Y1-Y2)/(X1-X2)
P3 = (Y2-Y3)/(X2-X3)
y asi sucesivamente:

En el caso de que tengas la grafica de las derivadas pues es lo contrario. La base de este metodo es que la interpretacion geometrica de la derivada no es mas que la pendiente evaluada en el punto en cuestion y la pendiente es deltaY/deltaX.

Saludos

Oswaldo
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
sin imagen de perfil

graficadora

Publicado por Oswaldo Suarez (11 intervenciones) el 13/04/2013 21:13:24
El programa debe leer por teclado una serie de puntos y sus pendientes, generando un grafico aproximado de la funcion con el uso de rectas o puntos.
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

Publicado por oswaldo (3 intervenciones) el 23/04/2013 22:11:45
Buenas amigo espero puedas ayudarme necesito el codigo fuente del juego de pacman para compilar en dev pacal o free pascal. En internet consegui uno en turbo pascal pero no me funciona.

Saludos
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

Publicado por angel mauricio (1 intervención) el 07/01/2016 01:19:09
resistencia de 156 ohmios colores marón verde azul tolerancia de color amarillo 5%.
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