Ajuda!!! - Simulação da Oscilação de um título na Bolsa de Valores

[d10g0l1r1]

Este programa deve ler o valor inicial de um título numa bolsa de volores e depois fazer de forma aleatória 30 vezes um amuento ou diminuição de 0.01. É necessário usar funções e procedimentos.

Bem, estou a precisar de ajuda. Se alguém me pudesse corrigir o seguinte código ficaria muito agradecido:

program bolsa (input,output);
var
r:integer;
valorinicial:integer;
valorbolsa:real;
c:integer;

function naleatorio:integer;
begin
  randomize;
  r:=random(100)+1;
  naleatorio:=r;
end;

function repet(r:integer):real;
begin
  if (r>0) and (r<51) then
   repet:=0.01
  else
   if (r>51) and (r<101) then
    repet:=-0.01;
end;

procedure final;
begin
  for c:=1 to 30 do
   begin
    valorbolsa:=valorinicial+repet(naleatorio);
    writeln (valorbolsa:0:2);
   end;
end;

begin
naleatorio;
writeln ('Qual o valor inicial?');
readln (valorinicial);
final;
writeln (valorbolsa:0:2);
readln;
end.

Muito obrigado!!! Hasta 😞

[M6]

Para te ajudar, tens de dizer qual é o teu problema.

[d10g0l1r1]

Epa o problema éque eu não consigo fazer aleatoriamente (30 vezes) osimulação do aumento ou diminuiçãodo tíyulo (em 0.01). Se copiarem o programa para pascal verão o problema.

[M6]

Epa o problema éque eu não consigo fazer aleatoriamente (30 vezes) osimulação do aumento ou diminuiçãodo tíyulo (em 0.01). Se copiarem o programa para pascal verão o problema.

Não tenho Pascal instalado para testar, mas posso tentar ajudar.

Uma das primeiras coisas que vejo que devem ser eliminadas são as variáveis globais, isso é só corda para um tipo se enforcar, além de não permitir certos tipos de optimização por parte dos compiladores.

Depois, o teu problema é que não faz as 30 vezes ou não faz a oscilação?