- Fundamentos de ProgramaçãoAlgoritmosAnálise de Execução de Algoritmos
- Fundamentos de ProgramaçãoLógica de Programação
- Fundamentos de ProgramaçãoRecursividade
- LinguagensDelphi
O programa listado a seguir está escrito em Object Pascal.
procedure TForm1.Button1Click(Sender: TObject);
var x, y: integer;
begin
x:=928;
y:=100;
showmessage(inttostr(funcao(x,y)));
end;
function TForm1.funcao(x, y: integer): integer;
begin
if(y=0)then
funcao := x
else if (x<y)then
funcao := funcao(y,x)
else
funcao:= funcao(y,x mod y);
end;
var x, y: integer;
begin
x:=928;
y:=100;
showmessage(inttostr(funcao(x,y)));
end;
function TForm1.funcao(x, y: integer): integer;
begin
if(y=0)then
funcao := x
else if (x<y)then
funcao := funcao(y,x)
else
funcao:= funcao(y,x mod y);
end;
Após sua execução no ambiente integrado para desenvolvimento de software Delphi, a saída produzida é:
