Решить.паскаль циклы .из семи красных и восьми белых роз требуется составить букет из пяти роз. перечислить все возможные варианты.хотелось бы попросить при составление каждой строчки расписывать что в ней происходит.

здесь не нужно учитывать порядок роз в букете, а только их количество.

 

program krysatul; uses crt; const  bel=8;   kras=7; var  i,j,nom: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   nom: =0; {количество вариантов}  for i: =0 to bel do {организуем цикл перебора для белых роз}       for j: =0 to kras do {организуем цикл перебора для красных роз}            if i+j=5 then {если выбрано в сумме 5 цветов}                      begin                          nom: =nom+1; {посчитать это как +1 вариант}                           writeln(nom,'-й вариант: ',i,' белых и ',j,' красных'); {напечатаем номер варианта и количество роз}                      end;       writeln();       writeln('всего вариантов: ',nom); {напечатаем количество вариантов}end.

все возможные варианты это, как я понимаю, с учетом повторений(т.е. используем все 7 красных и 8 белых роз).

для начала вспоним формулу, а потом на ее основе пишем программу:

 

где n - количество всех цветов, n=15;

k - количество цветов в букете, k=5

 

 

теперь собственно программа:

 

uses crt; {подключение модуля crt}var f1,f2,f3,i: longint; c: real;   {описание переменных}beginf1: =1; f2: =1; f3: =1;   {присваивание значений}for i: =2 to 15 do  {цикл}f1: =f1*i; for i: =2 to 8 do  {цикл}f2: =f2*i; for i: =2 to 5 do  {цикл}f3: =f3*i; c: =1307674368000/(f2*f3);   {вычисление и присваивание значения}write(c);   {вывод текста на экран}end.

 

p.s. получается 270270, поэтому перечислять все варианты не вижу смысла.

и программа не вычисляет факториал 15, поэтому ввела значение вручную, но тем не менее формулу в программу включила, вдруг понадобится.

Ну если я правильно допонял вопрос то первым в голову пришло следующее: я так понимаю достаточно просто сделать выборки из этих таблиц -    по резултсету на каждую, соответственно курсоров буит только 2. далее двойной цикл идёшь по элементам от главного до дочерних и строишь а вообще можно поробовать написать вид : element_code|parent_code|element_name    - order by по паренту - и за один проход можно попробовать сделать.