Pascal/Turbo Pascal - programa progresion aritmetica

   
Vista:

programa progresion aritmetica

Publicado por Dart (1 intervención) el 01/12/2007 20:36:03
Hola llevo ya unas semanas intentando hacer este programa en pascal pero no consigo hacerlo

Consiste en hacer un programa q obtiene de un fichero de texto lineas formadas por numeros y debe tener un subprograma q diga el nº de la linea y si hay o no progresion aritmetica y si la hay decir su razón.

1 2 3 linea 1 si hay progresion de razon 1
1 3 4 5 linea 2 no hay progresion

Es sencillo pero solo se pueden usar intengers y boleans, no se puede usar ni string ni ninguna variable avanzada

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

RE:programa progresion aritmetica

Publicado por Diego Romero (997 intervenciones) el 02/12/2007 04:52:13
Si no se puede usar string ¿cómo demonios se supone que vas a leer el archivo?, me disculpa quien te haya mandado hacer este programa pero las condiciones no tienen sentido.
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

RE:programa progresion aritmetica

Publicado por Laysquad (47 intervenciones) el 02/12/2007 13:36:05
Diego tiene razón, pero creo que se presipito en darte la respuesta ^^, ya que string es considerada una variable avanzada, porque no usas un char, en todo caso un array de 0..255 de char (bueno si es permitido), despues de todo no es una variable avanzada.

podrias leer char por char hasta formar una de laslineas del texto y así poder analizarlas despues.

espero que me hayas entendido, 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

RE:programa progresion aritmetica

Publicado por Diego Romero (997 intervenciones) el 02/12/2007 21:40:40
"Variable avanzada" no es terminología técnica ¿alguien podría definirme qué es una "variable avanzada" en el contexto de este problema?. No quiero ejemplos, quiero definiciones.
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

RE:programa progresion aritmetica

Publicado por eduardo aguero (1 intervención) el 30/09/2009 06:56:31
el 15° termino de una progresion aritmetica es 20 y la razon 2/7. hallar el primer termino.
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

RE:programa progresion aritmetica

Publicado por sas (1 intervención) el 15/02/2008 22:53:21
en la figura, a b es diametro del semicirculo pequeño y el radio del circulo mayor es 2cm. determine cual de las 2 areas es mayor
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

RE:programa progresion aritmetica

Publicado por luis romero (1 intervención) el 27/12/2008 00:35:43
calcular el decimo termino de esta progresion aritmetica
11
13 2
14 1
20 6
33 13
34 1
36 2
51 15
54 3
?
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

RE:programa progresion aritmetica

Publicado por erika fernanda (1 intervención) el 07/10/2010 03:59:49
una progresion aritmetica Vn tiene como primer termino 1, el n-enesimo termino es 15, la sumatoria de los n primeros terminos es 200.hallar el numero de terminosn n incluidos en la sumas y la diferencia comun 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

programa progresion aritmetica

Publicado por sissi lisbeth balentina_22_98@hotmail.com (1 intervención) el 04/04/2013 05:09:17
una p.a de 30 terminos tiene por primer termino 200 y por suma 5130¿cuanto valen la razon y su ultimo termino?
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

programa progresion aritmetica

Publicado por ramon (2072 intervenciones) el 05/04/2013 15:42:05
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
{Mira este pequeño programa}
 
 program progresion;
 uses
    crt;
  var
    k : integer;
    total, term, suma, nu1, nu2 : real;
    p : real;
  begin
     clrscr;
     nu1 := 200;
     nu2 := 5130;
     term := 30;
     total := 0;
     k := 1;
     suma := 1;
    repeat
       if total + nu1 < nu2 then
       total := total + k;
       if suma > 30 then
       begin
       k := k + 1;
       total := 0;
       suma := 1;
       end;
       suma := suma + 1;
    until (nu1 + total = nu2) or (keypressed);
    writeln(' razon = ',k,' ultimo termino = ',total:0:0);
    writeln('  200 + (',k,' X ',term - 1:0:0,') = ',total + nu1:0:0);
     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