Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 840

/ вопрос решён /

Приветствую, уважаемые эксперты!
Мне очень нужен код программы которая строила бы графики функций: sin, cos, tg, ctg, arcsin, arccos, arctg и arcctg; можно на канве, или через TChar. Сам уже всё перепробовал.

ierihon1 Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: ierihon1 (статус: 1-ый класс)
Вопрос отправлен: 19 декабря 2010, 04:14
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 116; последнее сообщение — 26 декабря 2010, 20:15; участников в обсуждении: 4.

Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [Следующая »]

ierihon1

ierihon1 (статус: 1-ый класс), 21 декабря 2010, 20:50 [#61]:

поситай сам, если такой умный.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 21 декабря 2010, 20:58 [#62]:

я то все свои лабы сдал, как минимум, 15 лет назад, так что мне это ни к чему. За это время успел еще и второе высшее получить.
ierihon1

ierihon1 (статус: 1-ый класс), 21 декабря 2010, 21:03 [#63]:

а я не лабы делаю. я учусь в десятом классе сейчас прохожу тригонометрию. и не имел бы по ней 5 если бы не знал стандартную формулу синуса и не знал как строить графики и не знал бы где они ограничены. проблема не в том что я не знаю математику, проблема в том что я не знаю как правильно записать код для программы.
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 11:45 [#64]:

в моих исходниках все верно
посмотри пример
разбери внимательно пример
попробуй построить графики следующих функций
function f1 (x: real) : real;
begin
    Result := sin (x);
end;
 
function f2 (x: real) : real;
begin
    Result := sin (x) + 10;
end;
 
function f3 (x: real) : real;
begin
    Result := sin (x) - 10;
end;
 
function f4 (x: real) : real;
begin
    Result := sin (x - pi/2);
end;
 
function f5 (x: real) : real;
begin
    Result := sin (x + pi/2);
end;

поочередно построй графики этих функций разными цветами с помощью моего примера
выложи сюда рисунки
и расскажи нам всем к каким выводам ты пришел

вот увидишь - сразу все станет понятно!
Ⓐ свобода сопротивление солидарность
min@y™

min@y™ (статус: Доктор наук), 22 декабря 2010, 11:50 [#65]:

Цитата (mirt.steelwater):

поочередно построй графики этих функций разными цветами с помощью моего примера выложи сюда рисунки и расскажи нам всем к каким выводам ты пришел

Молодец, уважаю! Оставайся с нами, экспертом будешь, главным по математике!!11
Я не шучу!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 11:58 [#66]:

я пользуюсь методом Сократа:)
просто вместо того, чтобы обижать человека, отправляя читать учебники - нужно ведь объяснить нормально, создать все условия для того, чтобы он самостоятельно пришел к верному решению и пониманию этого решения. вот сейчас подождем с чем он к нам вернется:)
Ⓐ свобода сопротивление солидарность
min@y™

min@y™ (статус: Доктор наук), 22 декабря 2010, 12:59 [#67]:

Цитата (mirt.steelwater):

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

По началу у меня были такие же убеждения, но очень быстро испарились, когда я понял, что студентов-двоечников много, а я один. Сейчас пишу лабы за пиво. Бесплатно - лень, но иногда делаю ради утренней зарядки для мозгов по рабочим дням. Чего и тебе советую.
Ну чо, экспертом буш?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
ierihon1

ierihon1 (статус: 1-ый класс), 22 декабря 2010, 15:14 [#68]:

mirt.steelwater: не спрю в исходниках всё верно, просто когда подставил вместо Result := X*sin(x);
вот это: Result := Arcctg то получилось то что получалось у меня - не то(((
min@y™

min@y™ (статус: Доктор наук), 22 декабря 2010, 15:28 [#69]:

Цитата (ierihon1):

не спрю в исходниках всё верно, просто когда подставил вместо Result := X*sin(x); вот это: Result := Arcctg то получилось то что получалось у меня - не то(((

Он своим исходником хотел сказать совсем другое.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
ierihon1

ierihon1 (статус: 1-ый класс), 22 декабря 2010, 15:35 [#70]:

а что тогда?
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 15:37 [#71]:

полный код функции, которую ты юзаешь и картинку того что получается покажи
Ⓐ свобода сопротивление солидарность
ierihon1

ierihon1 (статус: 1-ый класс), 22 декабря 2010, 15:45 [#72]:

ну как код выложить я знаю, а как картинку сюда засунуть?
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 15:49 [#73]:

http://www.radikal.ru/ тебе в помощь)))
Ⓐ свобода сопротивление солидарность
ierihon1

ierihon1 (статус: 1-ый класс), 22 декабря 2010, 15:52 [#74]:

mirt.steelwater: спасиб)
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 16:03 [#75]:

картинка
http://i037.radikal.ru/1012/f9/104545beeeca.jpg
uses Math;
function f(x: real): real;
begin
  result := ArcTan (x);
end;
Ⓐ свобода сопротивление солидарность
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 16:07 [#76]:

а теперь так:
http://s16.radikal.ru/i190/1012/f5/e3a0a0b6ce30.jpg
function f(x: real): real;
begin
  result := ArcTan (x + 10);
end;
Ⓐ свобода сопротивление солидарность
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 16:13 [#77]:

а теперь так:
http://s55.radikal.ru/i148/1012/9b/28bb2f870fcd.jpg
function f(x: real): real;
begin
  result := ArcTan (x) + pi/2;
end;
Ⓐ свобода сопротивление солидарность
ierihon1

ierihon1 (статус: 1-ый класс), 22 декабря 2010, 17:02 [#78]:

mirt.steelwater: ну в первом случае просто график арктангенса, во втором случае график смещён по оси Х на 10, в третьем график смещён на пи пополам по оси У, вот только у меня проблем нет со смещением графика арктангенса... у меня не получается сместить график арксинуса... и нрафик синуса я тоже смещаю не плохо... подскажи как скинуть прогу тогда поймёшь что мне не даёт покоя.
mirt.steelwater

mirt.steelwater (статус: Посетитель), 22 декабря 2010, 17:15 [#79]:

код и картинки в студию!)
ЗЫ
по оси Х смещение на -10 (nota bene!)
Ⓐ свобода сопротивление солидарность
ierihon1

ierihon1 (статус: 1-ый класс), 22 декабря 2010, 17:16 [#80]:

mirt.steelwater: полность всей моей программы???
у тебя есть желание разбирать 1200 строк кода???
ну ладно вышлю частями))

Страницы: [« Предыдущая] [1] [2] [3] [4] [5] [6] [Следующая »]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 26 апреля 2026, 00:59
Выполнено за 0.03 сек.