Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
10 / 10 / 2
Регистрация: 10.02.2011
Сообщений: 115
1

Нарисовать окружности, используя рекурсию

16.05.2011, 14:41. Показов 1188. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста срочно!!!
0
Миниатюры
Нарисовать окружности, используя рекурсию  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2011, 14:41
Ответы с готовыми решениями:

Нарисовать рекурсию треугольники
Нужно нарисовать фигуру рекурсией

Нарисовать Рекурсию кольца в Pascal ABC
Ребята,выручайте! Срочно нужна прога по программированию.Нужно нарисовать рекурсию кольца

Вычислить используя рекурсию
Вычислить,используя рекурсию X=\sqrt{23-2 \sqrt{23+2\sqrt{23+2\sqrt{23-2\sqrt{23+..}}}}}

Вычислить, используя рекурсию, выражение
Вычислить, используя рекурсию, выражение

2
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
17.05.2011, 11:37 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Сочетания.
1. С факториалом
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
function Fac(n:integer):real;
begin
if n<2 then Fac:=1
else Fac:=Fac(n-1)*n;
end;
var n,k:integer;
    c:real;
begin
repeat
writeln('Ведите n,k  n>=k ');
readln(n,k);
until n>=k;
c:=Fac(n)/(Fac(n-k)*Fac(k));
write('Число сочетаний=',c:0:0);
end.
2.Без факториала, рекурсивно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
function S(n,r:integer):longint;
begin
if (r=0)or(r=n) then S:=1
else S:=S(n-1,r-1)+S(n-1,r);
end;
var m,k:integer;
begin
clrscr;
repeat
writeln('Ведите m,k  m>=k ');
readln(m,k);
until m>=k;
write('Число сочетаний=',S(m,k));
readln
end.
Добавлено через 1 час 20 минут
Рекурсия.

Pascal
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
26
27
28
29
30
31
32
33
34
35
program recurs;
uses graph,crt;
var x,y,r,d,n:integer;
{функция рисования, x,y-координаты цента? r-начальный радиус, n-глубина рекурсии}
function ris(x,y,r,n:integer):integer;
var i:integer;
begin
if n=0 then ris:=0
else
 begin
  circle(x,y,r);
  dec(n);
  ris:=ris(x+r,y,r div 2,n);
  ris:=ris(x-r,y,r div 2,n);
  ris:=ris(x,y-r,r div 2,n);
  ris:=ris(x,y+r,r div 2,n);
 end;
end;
begin
clrscr;
repeat
write('R=[60..120] r=');
readln(r);
until r in [60..120];
repeat
write('N=[1..6] n=');
readln(n);
until n in [1..6];{на картинке n=3}
x:=detect;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
ris(x,y,r,n);
readln
end.
0
Модератор
63391 / 47080 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
20.05.2011, 11:17 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

В рекурсии
Pascal
1
2
3
function ris(x,y,r,n:integer):integer;
var i:integer;//это лишнее-убрать...
begin
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2011, 11:17

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислить факториал используя рекурсию
Помогите пожалуйста=) Вычислить, используя рекурсию: y=1!+2!+3!+..+n!

Произвести вычисление по формуле, используя рекурсию
Только второе задание с корнями!! (вложение удалено) \sqrt{a+\sqrt{a+\sqrt{a+\cdots...

Сформировать последовательность строк, используя рекурсию
Задание: Написать программу. содержащую рекурсивную процедуру. формирющую пследовательность строк: ...

Вычислить значение функции, используя рекурсию


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.