Basic Pascal Tutorial/Chapter 3/Solution/bg

(* Автор:    Tao Yue
   Дата:      19 July 1997
   Описание:
      Намиране на първите 10 числа на Фибоначи
   Версия:
      1.0 - original version
*)

program Fibonacci;

var
   Fibonacci1, Fibonacci2 : integer;
   temp : integer;
   count : integer;

begin    (* Main *)
   writeln ('Първите 10 числа на Фибоначи са:');
   count := 0;
   Fibonacci1 := 0;
   Fibonacci2 := 1;
   repeat
      write (Fibonacci2:7);
      temp := Fibonacci2;
      Fibonacci2 := Fibonacci1 + Fibonacci2;
      Fibonacci1 := Temp;
      count := count + 1
   until count = 10;
   writeln;

   (* Разбира се, можете да използвате цикли FOR или WHILE
      за да решите задачата. *)

end.     (* Main *)

(* Автор:    Tao Yue
   Дата:      13 July 2000
   Описание:
      Показване на всички степени на 2 по-малки от 2000, 5 на ред
   Версия:
      1.0 - original version
*)

program PowersofTwo;

const
   numperline = 5;
   maxnum = 20000;
   base = 2;

var
   number : longint;
   linecount : integer;

begin    (* Main *)
   writeln ('Степени на ', base, ', 1 <= x <= ', maxnum, ':');
   (* Подготовка за цикъл *)
   number := 1;
   linecount := 0;
   (* Цикъл *)
   while number <= maxnum do
      begin
         linecount := linecount + 1;
         (* Изпиши запетайка освен ако не е 
            първото число на реда *)
         if linecount > 1 then
            write (', ');
         (* Изпиши числото *)
         write (number);
         (* Изпиши запетайка и премини на нов ред ако е
            последното число ОСВЕН ако е последното
            число от редицата *)
         if (linecount = numperline) and not (number * 2 > maxnum) then
            begin
               writeln (',');
               linecount := 0
            end;
         (* Увеличи числото *)
         number := number * base;
      end;  (* while *)
   writeln;

   (* Тази програма може да се напише и с използване на
      цикъл REPEAT..UNTIL. *)

end.     (* Main *)