[Victoria 888]

на фото помогите пожалуйста заранее спасибо

[Aristarh Dark]

Хм... Как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

program Project1; {$APPTYPE CONSOLE} uses   SysUtils; function fact(n:int64):int64; begin   if (n=1) or (n=0) then     fact:=1   else     fact:=fact(n-1)*n; end; var   m,k,l:int64;   f:int64; begin   WriteLn('m?');   ReadLn(m);   WriteLn('k?');   ReadLn(k);   WriteLn('l?');   ReadLn(l);   f:=fact(l)*(fact(m)-fact(k));   WriteLn('F=',f);   ReadLn; end.

Еще не плохо бы добавить проверку на "неотрицательность" вводимых значений, но мне лень...

[Victoria 888]

Спасибо большое, только к этому заданию нужна блоксхема можете показать как она выглядит в этом задании ?

[lmikle]

введи в гугле "блок схема алгоритма" и посмотри картинки как их рисовать.

В твоем случае.
Для общей программы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

-------- ( Начало )  --------     |  ------------- / Ввод m,k,l / -------------     | ------------------ | Вычисление     | | f = (m!-k!)*l! | ------------------     |  --------- / Вывод f ) \         )  ---------     |  ------- ( Конец )  -------

Блок схема вычисления факториала (функции) обычно приводится отдельно. Пример можно найти тут:
http://smiuk.sfu-kras.ru/kodnyanko/s.../5/AlgLab5.htm

[vasilev]

Необходимо вставить в ячейки таблицы StringGrid определенные значения.
Пытаюсь это сделать через StringGrid.cells[i,y]:='proba', Программа все проходит, но значения в таблице не появляются. Подскажите в чем дело.

[lmikle]

StringGrid это тебе не Excel. Там сначала надо выставить кол-во строк и столбцов. Хотя странно, вроде, если нужная ячейка находится за границей созданных, должно падасть с исключением...