Pascal/Turbo Pascal - calculo de la tasa de interes

   
Vista:

calculo de la tasa de interes

Publicado por lothar (1 intervención) el 14/10/2017 01:13:43
saludos, me estoy iniciando en el mundo de la programación, podrian ayudarme con este programa q no me corre? el problema esq el compilador rechaza mi variable N

estoy trabajando en calculo del interes compuesto,
las formulas:
- https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcSbB7uG6j4K-mNe6XomRW3AMHErNGpsvX21oIEpuEzVg_4KLNcRJQ
- https://www.economiapersonal.com.ar/wp-content/uploads/2015/08/interes-compuesto-02-formula.png

el programa:

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
program EJER25;
USES CRT;
VAR I,P,CM,VF,NI:REAL;
var n:integer;
var X:CHAR;
begin
clrscr;
WRITELN('BIENVENIDO');
WRITELN(' ');
WRITELN('Para hallar la cuota mensual, preciona A');
WRITELN(' ');
WRITELN('Para hallar el precio del artículo,  preciona B');
WRITELN(' ');
WRITELN('Para hallar el valor futuro del artículo,  preciona B');
WRITELN(' ');
case X OF
'A': BEGIN
      WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);
      WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);
      WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);
      NI:=(1+I)^N;
      CM:=(P*i*NI)/(NI-1);
      WRITELN('LA CUOTA MENSUAL ES=',CM:9:2);
      READLN;
      END;
 
'B': BEGIN
      WRITELN('INGRESE EL VALOR DE LA CUOTA MENSUAL'); READLN(CM);
      WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);
      WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);
      NI:=(1+I)^N;
      P:=CM*(NI-1)/(I*NI);
      WRITELN('El precio del artículo ES=',P:9:2);
      READLN;
      END;
 
 
'C': BEGIN
      WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);
      WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);
      WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);
      NI:=(1+I)^N;
      VF:=p*NI;
      WRITELN('El valor futuro del artículo ES=',VF:9:2);
      READLN;
      END;
 
 
else begin writeln('opcion no valida'); readln; end;
 
 
READLN;
 
end.
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

calculo de la tasa de interes

Publicado por dario alderaan@ec-red.com (30 intervenciones) el 14/10/2017 15:23:21
Tenias algunos errores.
Te dejo tu mismo programa arreglado.

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
program EJER25;
USES CRT,MATH; 	{debes agregar la libreria MATH para poder usar la potencia}
				{el simbolo de potencia es **}
VAR
	I,P,CM,VF,NI:REAL;
	n:integer;
	X:CHAR;
begin
	clrscr;
	WRITELN('BIENVENIDO');
	WRITELN(' ');
	WRITELN('Para hallar la cuota mensual, preciona A');
	WRITELN(' ');
	WRITELN('Para hallar el precio del artículo,  preciona B');
	WRITELN(' ');
	WRITELN('Para hallar el valor futuro del artículo,  preciona C');
	WRITELN(' ');
	READLN(X); {Te olvidaste del readln para leer la opcion}
 
	case X OF
		'A':
			BEGIN
				WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);
				WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);
				WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);
				NI:=(1+I)**N; {** significa elevado a}
				CM:=(P*i*NI)/(NI-1);
				WRITELN('LA CUOTA MENSUAL ES=',CM:9:2);
				READLN;
			END;
		'B':
			BEGIN
				WRITELN('INGRESE EL VALOR DE LA CUOTA MENSUAL'); READLN(CM);
				WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);
				WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);
				NI:=(1+I)**N;
				P:=CM*(NI-1)/(I*NI);
				WRITELN('El precio del artículo ES=',P:9:2);
				READLN;
			END;
		'C':
			BEGIN
				WRITELN('INGRESE EL VALOR DEL INTERES MENSUAL'); READLN(I);
				WRITELN('INGRESE EL VALOR DEL PRECIO'); READLN(P);
				WRITELN('INGRESE EL VALOR DEL NUMERO DE MESES'); READLN(N);
				NI:=(1+I)**N;
				VF:=p*NI;
				WRITELN('El valor futuro del artículo ES=',VF:9:2);
				READLN;
			END;
		else begin
			writeln('opcion no valida'); readln;
		end;
		READLN;
	end;
 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