Anexa 1
PROGRAME PE CALCULATOR
Programe pentru calculul actiunilor
Programul CECACT2
pentru calculul pretului de revânzare al unei actiuni conform modelului general

program cecact2;
uses crt;
type vec=array[1..100] of integer;
var er,n,i,sf:integer; d,p,x,y,c0:real; dd:vec;
begin
 sf:=0;
  repeat
  er:=1;
  repeat
   clrscr;
  writeln('Calculul pretului de revânzare al unei actiuni conform modelului general:');
writeln('=============================================================');
   writeln('(Tastati procentul anual 0 pentru iesire din program)');
   write('Dati procentul anual: ');  read(d);
   if d=0 then halt;
   write('Dati perioada: '); read(n);
   write('Dati pretul de cumparare: '); read(c0);
  if (n>0)and(n<100)and(d>0)and(d<10000)and(c0>0) then er:=0;
   for i:=1 to n do
    begin  write('Dati dividendul ',i,' ='); read(dd[i]); end;
  until er=0;
  clrscr; p:=1+d/100; x:=0.; y:=1.;
  for i:=1 to n do begin y:=y*p; x:=x+dd[i]/y; end;
  x:=y*(c0-x);
 writeln('Procentul anual:',d:7:2,'%  Perioada: ',n,'  Pretul de cumparare:',c0:15:2);
  writeln('                                  =>  Pretul de revânzare=',x:15:2);
  writeln;  writeln('Tastati <Enter> pentru continuare');  readln;
 until sf=1;
end

Inapoi                                                                            Inainte
Prima paginã