23.04.2008, 18:38
общий
это ответ
Здравствуйте, Китаев Кирилл Артурович!
Вот Ваша программа, как Вы просили
Удачи!
Приложение:
‘Находим центр формыОсьХ = Me.Height / 2ОсьУ = Me.Width / 2‘Устанавливаем ширину линииDrawWidth = 1‘Рисуем оси координатMe.Line (0, ОсьХ)-(Me.Width, ОсьХ)Me.Line (ОсьУ, 0)-(ОсьУ, Me.Height)‘Устанавливаем жирность точекDrawWidth = 3‘Рисуем графикFor x = 0 To 3 Step 0.15 ‘ Цикл [0..3] и с шагом 0,15.y = Atn(4 * x) ‘y=arctg 4x‘МасштабируемX1 = ОсьХ - Me.Width / 8 * xY1 = ОсьУ + Me.Height / 8 * y‘Рисуем точкиPSet (Y1, X1)Next x ‘Конец цикла