powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите решить простую задачку поQBasic
3 сообщений из 3, страница 1 из 1
Помогите решить простую задачку поQBasic
    #33462998
Тусик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Товарищи!!!
Скажите, пожалуйста, как проверяется деление на число в QBasice.
Например, числа, которые делятся на 2.
Заранее благодрана всем, кто отклинется.
...
Рейтинг: 0 / 0
Помогите решить простую задачку поQBasic
    #33463000
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
if (a mod 2) = 0 then
......
...
Рейтинг: 0 / 0
Помогите решить простую задачку поQBasic
    #33469144
Qurty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Осуществить вывод на экран средствами BIOS: вывести точки на экран цветом согласно варианту, попробовать вывести прямую или любую простую геометрическую фигуру.

.model small

.stack 100h

.code

.186

start:

push FAR_BSS

pop ds

xor ax,ax

int 1Ah



mov di,320*200+1

fill_buffer:

imul dx,4E35h

inc dx

mov ax,dx

shr ax,15

mov byte ptr [di],al
dec di

jnz fill_buffer

mov ax,0013h

int 10h

mov si,320*200+1

mov cx,319

mov dx,199

outdisplay:

mov al,byte ptr [si]

mov ah,0Ch
int 10h

dec si

dec cx

jns outdisplay

mov cx,319

dec dx
jns outdisplay
mov ah,08h
int 21h

mov ax,0003h
int 10h

mov ax,4C00h
int 21h

.fardata?
db 320*200+1 dup(?) end start
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите решить простую задачку поQBasic
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]