Отправлено: 18.03.15 14:31. Заголовок: Вариант № ZZFFB B11-ошибка?

Добрый вечер.У вас в ответах получается-60,у меня 47.Объясните,пожалуйста,как решается ?

 Отправлено: 18.03.15 14:41. Заголовок: Вот сама задача

procedure F(n: integer);
begin
writeln(n);
if n < 6 then begin
F(n + 2);
F(n + 3)
end
end;
Найдите сумму чисел, которые будут выведены при вызове F(1).

 Отправлено: 18.03.15 18:37. Заголовок: Anet пишет: У вас в ..

Anet пишет:

цитата:

У вас в ответах получается-60,у меня 47.Объясните,пожалуйста,как решается ?

Чтобы разобраться, загрузите программу в любую Паскаль-среду и пройдите её в отладчике. Ответ на этот вопрос вы можете найти самостоятельно.

 Отправлено: 27.03.15 13:33. Заголовок: program aaf; uses cr..

program aaf;
uses crt;
var s:integer;
procedure F(n: integer);
begin
writeln(n);
s:=s+n;
if n < 6 then begin
F(n + 2);
F(n + 3)
end
end;
begin
f(1);
writeln('',s);
readkey;
end.



В ответе получается 47.

 Отправлено: 08.04.15 19:23. Заголовок: Anet пишет: В ответе..

Anet пишет:

цитата:

В ответе получается 47.

Вы забыли еще один writeln:

procedure F(n: integer); 
 begin 
     writeln(n); 
     s:=s+n; 
     if n < 6 then begin 
       writeln(n); 
       s:=s+n; 
       F(n + 2); 
       F(n + 3) 
     end 
 end;

 Отправлено: 14.04.15 20:35. Заголовок: Добрый вечер! В зада..

Добрый вечер! В заданиях ege11 №54, 55, 56, 57 получаются другие ответы, нельзя ли их проверить?

 Отправлено: 14.04.15 20:39. Заголовок: Лосевская пишет: В з..

Лосевская пишет:

цитата:

В заданиях ege11 №54, 55, 56, 57 получаются другие ответы, нельзя ли их проверить?

Можно запустить программу в Паскаль-среде и проверить. В чем проблема?

 Отправлено: 06.05.15 22:18. Заголовок: про №11 вар 53

Вашу программу проверила на Вашем разобранном примере, где ответ 49.
Получается 63.
Вот она:
program rec1_PKU;
var n,S: integer;
procedure F(n: integer);
begin
writeln(n);
s:=s+n;
writeln( ' S=',S);
if n < 5 then begin
writeln(n);
s:=s+n;
F(n + 1);
F(n + 3);
end
end;
begin
F(1);
writeln('Otvet:',S);
end.
Окно вывода:
1
S=1
1
2
S=4
2
3
S=9
3
4
S=16
4
5
S=25
7
S=32
6
S=38
5
S=43
4
S=47
4
5
S=56
7
S=63
Otvet:63

Думаю, что после IF не надо writeln(n); s:=s+n;

Наверное, программа д.б. такая:
program rec1_GGA;
var n,S: integer;
procedure F(n: integer);
begin
writeln(n);
s:=s+n;
writeln( ' S=',S);
if n < 5 then begin
F(n + 1);
F(n + 3);
end
end;
begin
F(1);
writeln('Otvet:',s);
end.
Окно вывода:
1
S=1
2
S=3
3
S=6
4
S=10
5
S=15
7
S=22
6
S=28
5
S=33
4
S=37
5
S=42
7
S=49
Otvet:49

 Отправлено: 07.05.15 06:54. Заголовок: Галина пишет: Вашу п..

Галина пишет:

цитата:

Вашу программу проверила на Вашем разобранном примере, где ответ 49.

В разобранном примере один оператор writeln.

 Отправлено: 07.05.15 20:02. Заголовок: №11 вар 53

С Днем радио!
Поэтому и пытаюсь разобраться - зачем ставить второй writeln после IF?
Дублируются 1, 3, 5, 4. И в сумме получается 60.
Дерево у меня такое:
1
3 4
5 6 6 7
7 8
В сумме получается 47.
Программа:
program rec53var_GGA;
var n,S: integer;
procedure F(n: integer);
begin
S:=S+n;
writeln(n, ' S=',S);
if n < 6 then begin
F(n + 2);
F(n + 3);
end
end;
begin
F(1);
writeln(' Ответ: ',S);
end.
Окно вывода:
1 S=1
3 S=4
5 S=9
7 S=16
8 S=24
6 S=30
4 S=34
6 S=40
7 S=47
Ответ: 47
Ваша программа:
program rec53var_KP;
var s: integer;
procedure F(n: integer);
begin
write( 'n=',n);
s:=s+n;
writeln( ' S=',S);
if n < 6 then begin
writeln('n1=',n, ' S1=',S);
s:=s+n;
F(n + 2);
F(n + 3);
end
end;
begin
F(1);
writeln('Otvet:',s);
end.
Окно вывода:
n=1 S=1
n1=1 S1=1
n=3 S=5
n1=3 S1=5
n=5 S=13
n1=5 S1=13
n=7 S=25
n=8 S=33
n=6 S=39
n=4 S=43
n1=4 S1=43
n=6 S=53
n=7 S=60
Otvet:60
Здесь в переменной n1 дублируемые данные

 Отправлено: 07.05.15 20:21. Заголовок: Галина пишет: Поэтом..

Галина пишет:

цитата:

Поэтому и пытаюсь разобраться - зачем ставить второй writeln после IF?

Это зависит от условия задачи. Читайте его внимательно. Если есть второй writeln - ставим. Если нет - не ставим.

 Отправлено: 12.05.15 19:19. Заголовок: задача 11 _ вар 53

Спасибо! Условие внимательно прочитала! По программным кодам все прояснилось! Т.е. дерево я построила для случая с одним верхним writeln.
Подскажите, пожалуйста, как будет выглядеть дерево для вар 53 (writeln(n); F(n+2); F(n+3))?

 Отправлено: 12.05.15 20:32. Заголовок: Галина пишет: как бу..

Галина пишет:

цитата:

как будет выглядеть дерево для вар 53 (writeln(n); F(n+2); F(n+3))?

Боюсь, что дерево тут только запутает. Дерево хорошо и наглядно для варианта с одним выводом. Здесь рекуррентная формула:

   F(n) = n, для n >= 6 
   F(n) = n+n+F(n+2)+F(n+3),  для n < 6 
 

 Отправлено: 12.05.15 20:43. Заголовок: Спасибо! ..

Спасибо!