Не получается построить график

@SharFF · Регистрация: 30.05.2016

Author24 — интернет-сервис помощи студентам

Добрый вечер! Решил программировать в Small Basic и начал с самого простого, но у меня не получается одна программа и я не могу понять почему, помогите пожалуйста.
Вот текст программы:

PureBasic

pi=3.14159
k=.25
r0=150
  For u=0 To 2*pi Step pi/10000
  r=r0*| class="re3">math.Sin(5*u)
  h=r0*| class="re3">math.Sin(5*u)*(5*u)
  x=320+r*| class="re3">Math.Cos(u+.2)
  y=240+k*r*| class="re3">math.Sin(u+.2)
  GraphicsWindow.SetPixel(x,y,"")
EndFor

То что должно получиться приложил в скрине. Заранее спасибо

@Pro_grammer · 12.12.2016, 06:43

Сообщение от SharFF

у меня не получается одна программа

Что именно не выходит? Какие ошибки?

@Alex77755 · 12.12.2016, 21:10

хоть в какой среде "не получается"
Не VB6 точно. Бейсик бы поправил хотя бы это

Visual Basic

k = 0.25

а так вполне себе рабочая программа.
Не совсемто, что на картинке, но...

@SharFF · 12.12.2016, 21:15 **[ТС]**

Ну такой цветок у меня тоже получается, но к сожалению нужно так как на скриншоте в теме(( но все равно спасибо за старания

echs · 13.12.2016, 11:12

SharFF
Я попробовал построить вашу функцию в QBasic'e..
Вышла другая кривая. Зато обнаружил в вашем коде
переменную h - она никак у вас не используется...
Тогда зачем она вычисляется? Ищите Ошибку в вашем
коде. Посмотрите еще раз условия задачи

@1961uvg · 14.12.2016, 11:50

Укажи источник программы , тогда может разберемся !

@The trick · 14.12.2016, 13:30

Формула неправильная, должно быть так:

Код

pi=3.14159
k=.75
r0=150
  For u=0 To pi Step pi/10000
  r=r0*math.Sin(5*u)
  h=math.Sin(5*u)
  x=320+r*Math.Cos(u+.2)*k
  y=240-r*math.Sin(h-.2)
  GraphicsWindow.SetPixel(x,y,"")
EndFor

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	12.12.2016, 06:43	2
	Сообщение от SharFF у меня не получается одна программа Что именно не выходит? Какие ошибки? 0

@SharFF 0 / 0 / 0 Регистрация: 30.05.2016 Сообщений: 2
	12.12.2016, 21:15 [ТС]	4
	Ну такой цветок у меня тоже получается, но к сожалению нужно так как на скриншоте в теме(( но все равно спасибо за старания 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	13.12.2016, 11:12	5
	SharFF Я попробовал построить вашу функцию в QBasic'e.. Вышла другая кривая. Зато обнаружил в вашем коде переменную h - она никак у вас не используется... Тогда зачем она вычисляется? Ищите Ошибку в вашем коде. Посмотрите еще раз условия задачи 0

@1961uvg 0 / 0 / 0 Регистрация: 01.11.2016 Сообщений: 16
	14.12.2016, 11:50	6
	Укажи источник программы , тогда может разберемся ! 0

@The trick Модератор 9724 / 3685 / 871 Регистрация: 22.02.2013 Сообщений: 5,530 Записей в блоге: 78
	14.12.2016, 13:30	7
	Формула неправильная, должно быть так: Код pi=3.14159 k=.75 r0=150 For u=0 To pi Step pi/10000 r=r0math.Sin(5u) h=math.Sin(5u) x=320+rMath.Cos(u+.2)k y=240-rmath.Sin(h-.2) GraphicsWindow.SetPixel(x,y,"") EndFor Изображения 1