powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Еще одна прога на QBasic!
5 сообщений из 5, страница 1 из 1
Еще одна прога на QBasic!
    #33727737
evgsaymon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не подумайте, что я решил спросить Вас решение всех задач по информатике ;) Эта задачка, надеюсь, последняя...

Необходимо написать программу, реализующую следующий рисунок:
...
Рейтинг: 0 / 0
Еще одна прога на QBasic!
    #33728671
evgsaymon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребят, ну помогите, плиз...

С уважением, Евгений
...
Рейтинг: 0 / 0
Еще одна прога на QBasic!
    #33729118
evgsaymon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот, написал я прогу:

CLS
SCREEN 7
COLOR 4
CIRCLE (90, 90), 20, 14, , , 2.3
PAINT (90, 90), 14
END


Помогите, плиз остальные эллипсы через цикл (или как-нить по-другому) вывести...

А то я сделал вот так:

CLS
SCREEN 7
COLOR 1
CIRCLE (90, 90), 22, 4, , , 2.3
CIRCLE (90, 90), 20, 14, , , 2.3
PAINT (90, 90), 14
CIRCLE (111, 90), 22, 4, , , 2.3
CIRCLE (111, 90), 20, 14, , , 2.3
PAINT (111, 90), 14
CIRCLE (131, 90), 22, 4, , , 2.3
CIRCLE (131, 90), 20, 14, , , 2.3
PAINT (131, 90), 14
CIRCLE (151, 90), 22, 4, , , 2.3
CIRCLE (151, 90), 20, 14, , , 2.3
PAINT (151, 90), 14
CIRCLE (171, 90), 22, 4, , , 2.3
CIRCLE (171, 90), 20, 14, , , 2.3
PAINT (171, 90), 14
CIRCLE (191, 90), 22, 4, , , 2.3
CIRCLE (191, 90), 20, 14, , , 2.3
PAINT (191, 90), 14
END


Но так мне не надо !
...
Рейтинг: 0 / 0
Еще одна прога на QBasic!
    #33730443
Flare
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как раз тот случай, когда нужно дословно написать как сделать простейший цикл FOR...NEXT:
"Read This Fucking Manual"
...
Рейтинг: 0 / 0
Еще одна прога на QBasic!
    #33730639
evgsaymon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
FlareКак раз тот случай, когда нужно дословно написать как сделать простейший цикл FOR...NEXT:
"Read This Fucking Manual"
Вот, сделал:
CLS
SCREEN 7
LINE (70, 30)-(210, 150), , B
FOR i = 90 TO 190 STEP 20
COLOR 1
CIRCLE (i, 90), 22, 4, , , 2.3
CIRCLE (i, 90), 20, 14, , , 2.3
PAINT (i, 90), 14
NEXT i
END

Можно сделать так, чтобы фон был белым, а стороны квадрата черными???
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Еще одна прога на QBasic!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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