VPF::[Pascal]треугольника паскаля - Форум программистов

zavrrrrik

Дата 5.9.2007, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 4.9.2007
Где: Уфа

Репутация: нет
Всего: нет

Напечатать первые 10 строк "треугольника паскаля" в следующем виде.
                          1
                       1 1
                    1 2 1
                 1 3 3 1
              1 4 6 4 1
              . . . . . . .
          1 9. . . . 9 1
в этом треугольнике крайние числа равны 1, а каждое внутреннее - сумме двух чисел над ним.

volvo877

Дата 5.9.2007, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Код


Function C(m, n: Byte): LongInt;

 Procedure pC(m, n: Byte; Var R: Longint);
   Var R1, R2 : Longint;
   Begin
     If (m=0) or (m=n) Then R:=1
     Else
       Begin pC(m, n-1, R1); pC(m-1, n-1, R2); R:=R1+R2 End;
   End;

 Var Res: LongInt;
 Begin
   pC(m, n, Res);
   C := Res
 End;

const
  format = 5;
Var
  i, j: integer;

begin
  for i := 0 to 9 do begin
    write('':(9 - i)*format, 1:format);
    for j := 1 to i do
      write(C(j, i):format);
    writeln;
  end;
end.

Объясняю сразу, почему функция выглядит именно так, а не иначе, чтоб не возникало ненужных вопросов: при увеличении значений аргументов эта функция не вылетает с переполнением стека, как та, которая первой приходит на ум... А поскольку я не пишу, чтобы "сдать и забыть", то естественно, думаю не только о том, что здесь значение аргумента не превысит 10, но и о том, что эту функцию можно использовать и в другой программе, причем она не подведет...

zavrrrrik

Дата 5.9.2007, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 4.9.2007
Где: Уфа

Репутация: нет
Всего: нет

спасибки тебе огромное, чмоки.)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »