Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
toxa08116
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 57
1

Рассчитать значение y, определив и использовав необходимую функции

29.06.2012, 08:32. Просмотров 991. Ответов 4
Метки нет (Все метки)

1. Рассчитать значение y, определив и использовав необходимую функции:
http://www.cyberforum.ru/attachment....1&d=1340943957

2. Рекурсия
Изображение строится по следующему правилу: строится окружность с заданным радиусом r. Затем на диаметрально противоположных точках окружности ( x- r и x+ r)строится вновь окружность меньшего радиуса ( r=3 r/5). Для каждой меньшей окружности на диаметрально противоположных точках вновь строится окружность меньшего радиуса, и т.д., пока радиус не уменьшится до 10.
само изображение
http://www.cyberforum.ru/attachment....1&d=1340944299

возможна мат помощь в виде 100руб на счет.
0
Изображения
Тип файла: jpg Безымянный.jpg (8.0 Кб, 77 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2012, 08:32
Ответы с готовыми решениями:

Рассчитать значение y, определив и использовав необходимую функции:
у=(1+sin1/3)+(5+sin5/3)+(3+sin3/3) Использовать функцию, потом программа

Рассчитать значение х, определив и использовав необходимую функцию
Написать программу с использованием: А) процедуры Б) функции Рассчитать значение х, определив...

Рассчитать значение x, определив и использовав необходимую функцию
8.1) Рассчитать значение x, определив и использовав необходимую функцию:

Рассчитать значение x, определив и использовав необходимую функцию
8.1) Рассчитать значение x, определив и использовав необходимую функцию:

Рассчитать значение x, определив и использовав необходимую функцию
1. Рассчитать значение x, определив и использовав необходимую функцию: кв.кор 6+6 кв.кор 13+13...

4
Puporev
Модератор
58508 / 44433 / 30682
Регистрация: 18.05.2008
Сообщений: 106,449
29.06.2012, 13:28 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2.
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
program recurs;
uses graph,crt;
var x,y,r,d:integer;
{функция рисования, x,y-координаты цента, r-начальный радиус}
function ris(x,y,r:integer):integer;
begin
if r<=10 then ris:=0
else
 begin
  circle(x,y,r);
  ris:=ris(x+r,y,3*r div 5);
  ris:=ris(x-r,y,3*r div 5);
 end;
end;
begin
clrscr;
repeat
write('R=[50..130] r=');
readln(r);
until r in [50..130];
x:=detect;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
ris(x,y,r);
readln
end.
Добавлено через 48 секунд
Ссылка к 1 задаче на ту же картинку что и ко второй.
2
toxa08116
0 / 0 / 0
Регистрация: 09.11.2011
Сообщений: 57
02.07.2012, 08:26  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
2.

Добавлено через 48 секунд
Ссылка к 1 задаче на ту же картинку что и ко второй.
нет, ты что, там формула
0
Изображения
Тип файла: jpg Безымянныйц.jpg (5.7 Кб, 36 просмотров)
Puporev
Модератор
58508 / 44433 / 30682
Регистрация: 18.05.2008
Сообщений: 106,449
02.07.2012, 08:36 4
Цитата Сообщение от toxa08116 Посмотреть сообщение
нет, ты что, там формула
Я что, сильно похож на тупого? По обеим ссылкам это.
1
Изображения
Тип файла: jpg Захват.jpg (101.0 Кб, 17 просмотров)
Puporev
Модератор
58508 / 44433 / 30682
Регистрация: 18.05.2008
Сообщений: 106,449
02.07.2012, 08:48 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
function F(a,b,c:real):real;
begin
F:=(a+c+sin(b))/(b+sin(a));
end;
var y:real;
begin
clrscr;
y:=F(2,3,0)+F(1,5,0)+F(3,7,1);
write('y=',y:0:3);
readln
end.
1
02.07.2012, 08:48
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2012, 08:48

Рассчитать значение х, определив и использовав необходимую функцию (процедуру)
Рассчитать значение х, определив и использовав необходимую функцию (процедуру):...

Рассчитать значение x, определив и использовав функцию
Задание 5. Написать программы с использованием: А) процедуры Б) функции Дополнительная...

Рассчитать значение X, определяя и использовав функцию
Рассчитать значение X, определяя и использывав необходимую функцию ...


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

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

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