Pascal

Question

Galera,Vindo um pouco �Off-Topic� (nem tanto assim), estou desenvolvendo um pequeno programa de controle de reservas, em Pascal.Gostaria de saber se algu�m pode me dar uma sugest�o de como criar uma f...

Beppe · Answer

Se voc� quer que o conte�do do array persista entre chamadas da fun��o, o array n�o pode ser local � uma fun��o, deve faz�-lo global.

var
  Reservas: array[1..TamReservas] of TipoDado;
  QtReservas: Integer;

procedure ImprimeReservas;
var
  I: Integer;
begin
  for I := 1 to QtReservas do
  begin
    Writeln(I, �) �, Reservas[I]);
  end;
end;

procedure EntraReserva(R: TipoDado);
begin
  if QtReservas < TamReservas then
  begin
    Inc(QtReservas);
    Reservas[QtReservas] := R;
    ImprimeReservas;
  end 
  else
    Writeln(�Reservas esgotadas.�);
end;

Acho que seria assim, n�?

Dreamwinder · Answer

Nossa cara! era isso mesmo! Valeu mesmo! voc� n�o sabe o quanto quebrei cabe�a com isso! hehehee, iniciante � isso a� n�?Grato!Francisco...

Beppe · Answer

[quote:437e1d298a=�dreamwinder�]Nossa cara! era isso mesmo! Valeu mesmo! voc� n�o sabe o quanto quebrei cabe�a com isso! hehehee, iniciante � isso a� n�?Grato!Francisco[/quote:437e1d298a]� s� at� tu peda os macetes iniciais, depois tu deslancha... :wink: T+...

F�rum Pascal #221214