|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2022, 03:00 | #1 |
Новичок
Джуниор
Регистрация: 22.12.2022
Сообщений: 1
|
Пожалуйста помогите с Turbo Basic
Доброй ночи. Пожалуйста помогите, уже две недели ломаю голову над заданием. Нужно построить четыре графика на двух из них а именно Z(X) и Z(Y) не появляются координатные оси соответственно X и Y. Ничего не помогает. Отдельный код для Z(X).
CLS n=5000 x=0 kx=4*3.14 dx=kx/n DIM z(n),x(n) FOR i=1 TO n z(i)=3*COS(0.2*dx*(i-1))+0.5*dx*(i-1) x(i)=x x=x+dx NEXT i maxz=z(1) maxx=x(1) minz=z(1) minx=x(1) FOR i=2 TO n IF x(i)>maxx THEN maxx=x(i) IF z(i)>maxz THEN maxz=z(i) IF x(i)<mixx THEN minx=x(i) IF z(i)<minz THEN minz=z(i) NEXT i print "maxx=";maxx print "minx=";minx print "maxz=";maxz print "minz=";minz input o SCREEN 2 VIEW (4,4)-(636,196),,1 VIEW (8,8)-(632,192) WINDOW (minx,minz)-(maxx,maxz) FOR i=1 TO n PSET (x(i),z(i)) NEXT i LINE (0,maxz)-(0,minz) LINE (minx,0)-(maxx,0) |
22.12.2022, 07:37 | #2 |
Форумчанин
Регистрация: 17.06.2012
Сообщений: 957
|
Проверено в qb64
Опечатка в строке IF x(i)<mixx THEN minx=x(i) ведь minx должно быть оба раза и надеюсь правильно считает минимаксы У меня оси появились если в конце программы Line (minx, minz)-(maxx, minz) Видимость повышается вводя поля например 0.1 Window (minx - 0.1, minz - 0.1)-(maxx + 0.1, maxz + 0.1) В целом задача непонятная и пишу что выяснил и особо неясно почему программа строит 1 график
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
|
22.12.2022, 10:19 | #3 |
Форумчанин
Регистрация: 25.01.2015
Сообщений: 472
|
Когда-то, лет 30 назад делал на TB построение графика функций так
Код:
Можно переделать под сохранение в массив и построение из массива. Но это оставлю ученику. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста (BASIC) | LINNNNNN | Помощь студентам | 2 | 11.11.2020 09:25 |
Помогите написать программу в Turbo Basic | Vanek112 | Помощь студентам | 2 | 24.12.2013 16:37 |
Помогите решить в Turbo Basic | Almes | Помощь студентам | 0 | 21.12.2013 21:34 |
Помогите пожалуйста (BASIC 256) | pahom4ik8 | Помощь студентам | 1 | 30.09.2013 20:48 |