Комментарии: BASIC-256. Глава 12

Автор: oleg

oleg — Fri, 28 Jan 2011 11:01:03 +0000

Понятно, посмотрел как создается трехмерный эффект. Задачку по «прямоугольникам» пока не могу решить, сейчас разбираюсь с особенностями работы в OpenOffice Base (СУБД). Интересено, в 3 версии уже появилась возможность вставки изображений в таблицу, создавать связи между таблицами, подстановка данных списком.. Следующим по плану идет разбор полетов в ЛОГО у нас педколледж, начальная школа..

Автор: Владимир Черный

Владимир Черный — Wed, 26 Jan 2011 14:17:04 +0000

Олег! Я же написал про тройной цикл, если вы заметили… Ну, а что касается вашей задачки — не думаю, что она сложная. Вы начните ее решать.
Посмотрите пример (мой) из предыдущего коммента убрав комментарий перед первым refresh (и поставив перед вторым). Аналогичным способом можно рисовать прямоугольники вписанные в конкретный график.
Задача построения графика, конечно тоже сама по себе серьезная, но много раз решенная.
Впрочем, Если кто найдет время задачку Олега решить на BASIC-256 — присылайте!

Автор: oleg

oleg — Wed, 26 Jan 2011 13:46:28 +0000

В Паскале тоже есть GOTO
Из вложенных циклов (двойных) выходить можно по ‘brake’, в Бейсике должен быть.
Простота интерпретатора BASIC-256 позволит применять для среднего звена (5-9 классы), проведения факультативных занятий, организации внутришкольных Олимпиад по программированию. Да даже при изучении численных методов, Бейсик справится и с профильным мат. уровнем (10-11 классы)? Например, красиво бы вышло решение определенных интегралов (нахождение площадей трапеций методом прямоугольников), включая графически? Кто-нибудь может так решить? Я пас

Автор: Владимир Черный

Владимир Черный — Wed, 26 Jan 2011 11:55:52 +0000

Уважаемый vovavobov, начну с конца. У вас есть формочка для комментариев, она заканчивается «капчей» — нарисованное число, которое надо ввести — так вот там практически нет человеко-читаемых картинок. Так что комментариев у вас практически не будет.
Теперь о программах. Я не говорю об оптимизации программы, я говорю о стиле програмирования. Там где можно обойтись без goto — надо обходиться без него.
Например, ваша заставка из шариков (6_shar)
graphsize (600,600) clg a: pause 1.5 b: p=255*rand n=600*rand t=600*rand z=600*rand if p255 then goto a color n/3,255-p,z/3 circle n-0.2*p,t+0.5*p,p p=p-1 if k>0 then goto f goto a
Вот мой вариант:
dim c(3) dim m(2) graphsize (600,600) clg fastgraphics while true pause .5 c={int(255*rand),int(175*rand)+80,int(255*rand)} m={int(600*rand),int(600*rand)} for p=c[1] to 0 step -1 color c[0],255-p,c[2] circle m[0]-0.2*p,m[1]+0.5*p,p # refresh next p refresh end while
Он использует циклы и быструю графику, ну, и массивы (можно обойтись). Но, главное зачем вам столько goto там понадобилось? Я уж не говорю о том, чтобы получить случайное число от 80 до 255 совсем не нужен цикл!!!
Маленькое замечание — первый закомментареный refresh — если комментарий убрать — увидим, как рисуется шар.

Автор: vovavobov

vovavobov — Wed, 26 Jan 2011 10:18:01 +0000

Спасибо за критику! Я признаюсь, что еще не все операторы
освоил, для меня BASIC256 стал своеобразным средством для
отдыха- весьма интересно создавать небольшие программы,сразу наблюдая результат. Конечно, любую программу
можно улучшить, но если мне удалось показать, что на этом
языке можно не только домики и рожицы рисовать, то уже неплохо. В плане программирования и оформления сайта я не профессионал, был бы рад, если бы Вы объяснили про «..угадывание числа..» и «..10 попыток..», был бы весьма
признателен, т.к. я не понял, о чем идет речь. Сайт вроде бы
простой получился, не перегруженный лишней информацией.

Автор: Владимир Черный

Владимир Черный — Tue, 25 Jan 2011 10:38:10 +0000

Сергей, я конечно не экстремист… и понимаю, что goto иногда, очень очень очень редко (например, выйти экстренно из трех вложенных циклов) нужен, но программы уважаемого vovavobov — это программистский экстремизм, «fortran головного мозга». По ним надо учить, как НЕ НАДО программировать. Я так расстроился… не дай бог наших детей научат ТАК программировать
Хотел написать комментарий автору на сайт напрямую, но у него там такая капча… Интересно, с какого раза он сам угадывает, что там за число написано?!! Мне с 10 попыток не удалось, хотя я и не дальтоник ни разу.

Автор: Сергей Ирюпин

Сергей Ирюпин — Tue, 25 Jan 2011 09:58:22 +0000

Володя, вряд ли автор пойдет на ликвидацию goto ведь это же классика. Нужно ли запрещать вилки лишь потому, что некоторые личности могут тыкать ими не только в еду, но и в живых людей?

Дружище Vovavobov, очень рад, что Вас заинтересовал BASIC-256 настолько, что Вы написали для него такие занимательные программы! Однако, присоединяюсь к комментариям Володи Черного — стиль прежде всего! Поэтому предлагаю проанализировать тексты своих программ, чтобы сделать их структурированными. К тому же, по мне, это не менее занимательно, чем программировать что-либо с нуля 😉

Автор: Владимир Черный

Владимир Черный — Tue, 25 Jan 2011 08:57:50 +0000

Уважаемый vovavobov! Примеры визуально красивые и в этом их прелесть — прельщать учеников самим процессом 😉 Но, я категорически не советую учить по ним программированию! Даже сам автор говорит — используйте goto как можно меньше, а в ваших программах это везде, где надо и не надо!
Например zz.kbs
фрагмент:
6 f: 7 k=255-p 8 color k/2,k,k 9 circle 300,300,p 10 p=p-1 11 if k<255 then goto f
легко заменяется на:
7 for k=0 to 255 8 color k/2,k,k 9 circle 300,300,p 10 p=p-1 11 next k

Так что если хотите учить других — научитесь сначала правильному стилю программирования сами (прочтите, наконец, главу 7 !), а то я уже начинаю жалеть, что вытащил этот бейсик на всеобщее рассмотрение Надо попросить автора ликвидировать этот оператор goto!

Автор: vovavobov

vovavobov — Mon, 24 Jan 2011 08:37:55 +0000

В качестве учебных материалов по BASIC256 предлагаю простые
программы-картинки на основе математических формул, тетрис
на BASIC256, тренажер по умножению и др. Программы составлены мной, снабжены комментариями, позволяющими легче
понять алгоритм работы программы. Скачать можно с сайта
compicture.ucoz.ru -буду рад, если программы помогут кому-
нибудь в изучении языка.