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:
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
0