| Программирование на Qbasic |
| IwanS | Дата: 10:47 08.07.2008 | Сообщение # 1 |
Администратор
Сообщений: 1850
Статус: не в сети
| Всем привет! Продолжаем добрую традицию помогать всем посетителям в программировании на QBasic. Напоминаю, что у нас есть самоучитель по qbasic (1 часть и 2 часть). Ждем ваших задач и наших решений!
Для большей наглядности вы можете прикрепить картинку с формулой из задачи. Для этого напечатайте формулу в Microsoft Word и нажмите кнопку PrtScr SysRq. После этого запускаем mspaint и нажимаем Правка -> Вставить. Выделяем область с формулой и нажимаем Копировать в файл. Теперь нажимаем Файл -> Открыть и пересохраняем нашу картинку в формате JPEG. Разрешено прикреплять картинки только в форматах JPEG или GIF!
Техзадание - точное и четкое определение задачи, стоящей перед программистом. В техзадании должно содержаться достаточно сведений, чтобы человек мог написать адекватную запросу программу. При этом нужно уметь не просто перепечатать задание преподавателя, а понимать его смысл и быть готовым ответить на вопросы по заданию. Без нормального техзадания лично я помогать с программированием не буду! Строгому наказанию подлежит несоблюдение правил орфографии и пунктуации. Пишите грамотно, правильно расставляйте запятые. Иначе в коде мы тоже будем косячить так, что фиг разберешь, что там вообще написано!
Изменил IwanS - Четверг, 12.02.2009, 17:21
|
|
| |
| | |
| Lunatik | Дата: 16:42 26.06.2010 | Сообщение # 406 |
Новичок
Сообщений: 6
Статус: не в сети
| Спасибо Вам большое, очень помогли!
|
| |
| | |
| GreatEvilGod | Дата: 16:47 26.06.2010 | Сообщение # 407 |
Модератор
Сообщений: 238
Награды: 4
Статус: не в сети
| Quote (IIaHuKeP) заставьте облоко двигаться плииз)) впаво ===> Code SCREEN 9
x=145
1001
'PAINT(1,1),0
LINE(0,0)-(640,200),9,BF
CIRCLE(x,45),30,15
PAINT(x,45),15
CIRCLE(x+85,45),30,15
PAINT(x+85,45),15
CIRCLE(x+45,45),30,15
LINE(x,67)-(x+85,67),15
PAINT(x+45,50),15
PAINT(x+20,65),15
PAINT(x+64,65),15
sleep 1
If x < 500 Then
x=x+4
GoTo 1001
End If |
|
| |
| | |
| симка | Дата: 21:57 27.06.2010 | Сообщение # 408 |
|
Новичок
Сообщений: 3
Статус: не в сети
| срочно нужна помащ до 29.06.10 до 8час утра 
1.Записать арифметическое выражение на языке QBasic.Составить программу и протестировать ее: У=3sqr^3(M*l^2+n*l-m*n)
2.Циклические программы (GO TO… IF…THEN…ELSE).Встроенные функции. Оператор Data.
Имеется сто чисел А1,А2,…А100 подсчитать сумму перепада в ряду этих чисел. (Перепадом считается модуль разницы соседних чисел.)
3.Постройте график функции и поверхностей вращения оператор (DEF FN,LINE, PSET, GIRCLE). Написать программу, изображающею на экране поверхность, образования вращение вокруг оси ОХ графика функции y=(3x-5)/x-2 .Внузу в центре экрана должно быть название функции.
Изменил симка - Понедельник, 28.06.2010, 07:41
|
| |
| | |
| GreatEvilGod | Дата: 00:39 29.06.2010 | Сообщение # 409 |
|
Модератор
Сообщений: 238
Награды: 4
Статус: не в сети
| Quote (симка) Я немного дату перепутал теперь на завтра нужно 3 задача Я честно говоря слабо представлял себе какими штатными способами можно изобразить поверхность вращения, так что сделал я ее концентричискими окружностями, короче за что получилось строго не судите. Но получилось весело!!!  Code SCREEN 12 '640x480
'Центр экрана
X0 = 320
y0 = 240
For A = 0 to 360
CLS
ugol = 3.14*A/180
line (x0,20)-(x0,460), 4
line (x0-210*cos(ugol),y0)-(x0+210*cos(ugol),y0), 4
for i=-10 to 10
x=x0+(i*20)*cos(ugol)
y=y0+i*20
line (x,y0-2)-(x,y0+2), 4
line (x0-2,y)-(x0+2,y), 4
Next i
n=3
For mx=-200 to 200
n=n+1
x=mx/20
If (x <> 0) then
y=(3*x-5)/x-2
my=y*20
If (old_my<200) and (my>200) Then my=200
If (old_my<-200) and (my>-200) Then old_my=-200
If (ABS(old_my)<=200) and (ABS(my)<=200) Then
If (mx <> -200) and (mx <> 1) Then
line (x0+old_mx*cos(ugol),y0-old_my)-(x0+mx*cos(ugol),y0-my), 2
line (x0+old_mx*cos(ugol),y0+old_my)-(x0+mx*cos(ugol),y0+my), 2
End if
End if
End if
If (n = 4) or (my=200) or (old_my=-200) then
If (n = 4) Then n = 0
If (mx <> 0) then
Ugol1 = 0
Ugol2 = 6.28
If old_my<>-200 Then r = abs(my) Else r = abs(old_my)
If (r<=200) and (A<>0) and (A<>180) and (A<>360) then circle (x0+mx*cos(ugol),y0), r, 2, Ugol1, Ugol2, ABS(1/sin(ugol))
If (r<=200) and ((A=0) or (A=180) or (A=360)) then line (x0+mx*cos(ugol),y0-r)-(x0+mx*cos(ugol),y0+r), 2
End if
End if
old_mx=mx
old_my=my
Next mx
'Задержка в 0,1 секунды, итого угол обзора меняется на 10 градусов в секунду
'Такой принцип задержки сильно грузит CPU, но как иначе сделать задержку меньше 1 сек я так и не придумал.
timx=0
tim1= timer
tim2= timer - tim1
do while timx < 0.1
timx = timer - tim1 - tim2
loop
Next A
SLEEP   Да кстати, название графика забыл добавить, ну да неважно это мелочи!  P.S. Я не шучу правда весело!!!
|
|
| |
| | |
| IwanS | Дата: 08:00 02.08.2010 | Сообщение # 410 |
|
Администратор
Сообщений: 1850
Статус: не в сети
| Продолжение здесь: http://admyn.ru/forums.php?m=posts&q=4
|
|
| |
| |
|
