aufg7 avl und fib knotenanzahl
2009-05-29 11:10:22

with Ada.Integer_Text_IO; with Ada.Text_IO;
use Ada.Integer_Text_IO; use Ada.Text_IO;

procedure aufg7 is
	
	A, F : Integer;
	A_1 : Integer := 1;
	F_1 : Integer := 1;
	F_2 : Integer := 0;
	
begin

	for i in 2 .. 30 loop
		Put ("AVL t = ");
		Put (i,1);
		A := (2 * A_1) + 1;
		A_1 := A;
		Put (" : ");
		Put (A,1);
		Put ("         ");
		Put ("Fib t = ");
		Put (i,1);
		F := F_1 + F_2 + 1;
		F_2 := F_1;
		F_1 := F;
		Put (" : ");
		Put (F,1);
		New_Line;
	end loop;

end aufg7;