На форуме бываю редко. vk.com/clausbratsk
экономистам в лицее был бейсик не нужен, потому put и get пришлось пройти в конторе ускоренным темпомСообщение от Claus
Прежде чем открыть рот, подумай!
ПОГАМЕЛ КРУТО БЫЛО ))Сообщение от Viking
«Любовь не выдохлась, не исчезла себя, необходимо вовремя расстаться и на всегда».
---=РоMaHTuk=---
Барсик, собственной персоной (;
Телевизор — это просто маленькое прозрачное окошко в трубе духовного мусоропровода. © В. Пелевин.
Товарищи памагите!!!
Решите 2 задачки....
создать массив D 9х9 и заполнить числами случайными от -50 до 50
распечатать
найти произведение элементов главной диагонали
найти минимальный элемент и положение
отсортировать элементы столбцов по возрастанию
№2
a=1:b=8:c=-13
найти Y
если <-5 y=ax^2+c
если =-5 y=b
если >-5 y=cx-b
значеник Х меняются от -6 до -4 с шагом 0.25
Используя цикл с предусловием
с постусловием
с перебором
We Have Lost The Gift Of Wonder
Dispelled All Magic By Selfish Reason
We Even Analyze Our Dreams
Because We Fear To Loose Our Common Sense
We Forgot How Simple Life's Been
Gazing At It With The Eyes Of A Child
How Wonderful The World Has Been
Discovering It With An Innocent Mind
'предусловие
a = 1
b = 8
c = -13
x = -6
DO WHILE x <= -4
IF x < -5 THEN y = a * x ^ 2 + c
IF x = -5 THEN y = b
IF x > -5 THEN y = c * x - b
PRINT "при х="; x; "y="; y
x = x + .25
LOOP
'постусловие
a = 1
b = 8
c = -13
x = -6
DO
IF x < -5 THEN y = a * x ^ 2 + c
IF x = -5 THEN y = b
IF x > -5 THEN y = c * x - b
PRINT "при х="; x; "y="; y
x = x + .25
LOOP WHILE x <= -4
'перебор
a = 1
b = 8
c = -13
x = -6
FOR x = -6 TO -4 STEP .25
IF x < -5 THEN y = a * x ^ 2 + c
IF x = -5 THEN y = b
IF x > -5 THEN y = c * x - b
PRINT "при х="; x; "y="; y
NEXT x
================================================== ==
DIM d(9, 9)
FOR i = 1 TO 9
FOR j = 1 TO 9
d(i, j) = INT(RND(1) * 101 - 50)
NEXT j
NEXT i
PRINT "Массив D заполненный случайными числами [-50,50]"
FOR i = 1 TO 9
FOR j = 1 TO 9
LOCATE , j * 4: PRINT d(i, j);
NEXT j
NEXT i
p = 1
FOR i = 1 TO 9
p = p * d(i, i)
NEXT i
PRINT "Произведение элементов главной диагонали равно"; p
min = d(1, 1): x = 1: y = 1
FOR i = 1 TO 9
FOR j = 1 TO 9
IF d(i, j) < min THEN min = d(i, j): x = i: y = j
NEXT j
NEXT i
PRINT "Минимальный элемент массива равен"; min; "он находится в"; x; "строке "; y; "столбце"
FOR k = 1 TO 9
FOR i = 2 TO 9
FOR j = 1 TO 9
IF d(i - 1, j) > d(i, j) THEN SWAP d(i - 1, j), d(i, j)
NEXT j
NEXT i
NEXT k
PRINT "Массив D элементы столбцов которого отсортированный по возрастанию "
FOR i = 1 TO 9
FOR j = 1 TO 9
LOCATE , j * 4: PRINT d(i, j);
NEXT j
NEXT i
........все нецензурные слова и словосочетания были заменены точками.....
Спасибо что помог!!!!!!!!
We Have Lost The Gift Of Wonder
Dispelled All Magic By Selfish Reason
We Even Analyze Our Dreams
Because We Fear To Loose Our Common Sense
We Forgot How Simple Life's Been
Gazing At It With The Eyes Of A Child
How Wonderful The World Has Been
Discovering It With An Innocent Mind
Оживлю тему.
у меня в рабочей программе обозначена тема предшественником (не могу сейчас выкинуть этот раздел) - подпрограммы, функции пользователя.
лекционный материал - очень скудный, но есть.
просьба - поделитесь, плз.
особенно приветствуется практическая часть данного вопроса.
/библиотека нашего заведения отродясь не слыхивала таких заумных речей в контексте Бэйсика/
дайте кто нить инфу (команды, обучалки) по Турбо Паскалю
Free spirit of death
тебе сюда....
На форуме бываю редко. vk.com/clausbratsk
Ап.
Организация анимации в Бэйсик. Перевернула инет - ничего путнего для лекции не нахожу. Делитесь, товарищи.
....примерно так...
Синоним слова анимация - мультипликация. Мультипликация в дословном переводе это "много"...много изображений. Мультфильмы именно так раньше и рисовались - покадрово. В детстве, наверно, многие увлекались рисованием самодельных мультфильмов исользуя школьные учебники. Поочерёдно на каждой страничке рисовалась птичка, угол наклона крыльев которой постепенно менялся. При быстром пролистывании рисунков птичка летела, махая крыльями. Так же и в qbasic, придётся отдельно создавать отдельно каждый кадр, а потом последовательно их показывать пользователю. Для рисования рисунка нам потребуются команды pset, circle, line, paint, color, cls. Для работы с графикой как с массивом данныйх пригодятся функции put и get. Здесь следует сделать одно замечание. Если мы пойдём следующим путём. Сначала нарисуем кадр анимации, затем очистим экран и потом нарисуем следующий кадр, то возникнет эффект мигания, что нежелательно. Поэтому лучьше использовать другие методы.
1. Использовать режимы экрана. Некоторые графические чжимы экрана имеют 2 страницы видеопамяти. Возможно назначить какая страница видеопамяти Видимая в данный момент, а какая Активная (они могут не совпадать). Содержимое видимой страницы в данный момент отображается на экране. В Активную страницу видеопамяти происходит вывод графики командами line, clrcle и т.д. Т.е. всё будет выглядить следующим образом. делаем видимой 1 страницу, а активной - 2. Рисуем кадр, меняем страницы местами (видимая 2, активная 1). Очищаем текущую страницу. Рисуем следующий кадр. меняем страницы местами. И так далее...Также можно нарисовать по отдельности все кадры анимации, занести их в массив с помощью команды get и затем последовательно выводить их на экран используя команду put.
2. Перемещение неизменного рисунка. Здесь рисунок заносится в массив командой get, а затем много раз выводится на экран, при этом меняется начальная точка вывода рисунка. Следует отметить, что если за перемещаемым таким способом рисунком находится фоновое изображение, то задача несколько усложняется...
qbhelp.zip
з.ы. поищи про спрайты, и технологию спрайтов....
SLEEP.rar
Последний раз редактировалось elk; 15.05.2007 в 23:42. Причина: добавил програмку ....
........все нецензурные слова и словосочетания были заменены точками.....
RUNA (15.05.2007)
Спс
Главы про анимацию и графику хватило с лихвой. Думаю, последняя лекция по КуВасику пройдет на УРА
Уважаемые умные люди помогите решить задачу....
буду очень признательна
Как заполнить двумерный массив по диагонали справа-налево заданным числом? через цикл.
Я ураган. Неважно, что в стакане.
Positiff (30.03.2008)
Вот скажите тут кому-нибудь пригодилось рисование в Qbasic ?!
Number one (:
Эту тему просматривают: 2 (пользователей: 0 , гостей: 2)