Программы на QBasic

@веник · Регистрация: 15.12.2009

Студворк — интернет-сервис помощи студентам

Ребята, кто поможет решить три задачи за пару дней? Задачи пришлю в личном сообщении.

@BasicMan · 15.12.2009, 19:08

выкладывай на форум

@веник · 15.12.2009, 19:11 **[ТС]**

Вот задачки:
1) На листочке в клеточку нарисована окружность радиуса R клеток с центром на пересечении двух линий. Необходимо найти количество клеток, по которым проходит окружность (если окружность только касается границы клетки, клетку считать не надо).
Формат входных данных:
Введите число R (R <= 30000).
Формат выходных данных:
Выведите число – искомое количество клеток.
2) Требуется заполнить N (1≤N≤60000) элементов массива, пронумерованных числами от 1 до N (A[1]…A[N]), натуральными числами от 2 до N+1, использовав каждое число ровно один раз, так, чтобы значение каждого элемента массива делилось бы нацело на его номер (т.е. для каждого i A[i] делилось бы на i).
Напишите программу, которая для заданного N вычислит количество способов такого заполнения массива.
3) Из прямоугольника размером M на N, клетки которого раскрашены в черный и белый цвет, требуется вырезать квадрат размера K на K, раскрашенный в шахматном порядке (то есть любые две соседние клетки раскрашены в разные цвета).
Формат входных данных:
Введите числа M, N, K (1<=K<=M, N<=900). Далее в M строках введите N чисел 0 или 1, задающие цвета клеток прямоугольника.
Формат выходных данных:
Программа должна выводить номера строки и столбца клетки – левого верхнего угла вырезаемой доски. Если требуемый квадрат вырезать невозможно, программа должна выводить одно число 0.

@Toxa33rus · 15.12.2009, 19:55

1)
пишу на VB, переделать будет легко (а может и вообще не надо ничего переделывать)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
n = 8
R = n ^ 2
otvet = 0
 
currY = 0
For i = n - 1 To 0 Step -1 'по всем иксам от края к центру
  Do While currY ^ 2 + i ^ 2 < R 'поднимаемся вверх пока не выйдем за окружность
    otvet = otvet + 1
    currY = currY + 1
  Loop
  currY = currY - 1
Next i
MsgBox otvet * 4

Добавлено через 10 минут
2) или чего-то не понял или начало вот:

Visual Basic
1
2
3
4
For i=2 to N
  A(i) = i
Next i
A(1) = i+1

@веник · 15.12.2009, 20:04 **[ТС]**

Спасибо, очень надеюсь на вас.

@Toxa33rus · 15.12.2009, 22:21

3) не проверял. Скорее всего не работает

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For cM = 1 To M - K
For cN = 1 To N - K
  startColor = A(cM, cN) 'цвет первой клетки
  For i = 1 To K
  For j = 1 To K
    trueColor = Abs((i + j) Mod 2 - startColor) 'требуемый цвет
    If A(cM + i - 1, cN + j - 1) <> trueColor Then 'не совпал
      GoTo colorError 'двигаемся дальше
    End If
  Next j
  Next i
  Print cM; cN
  GoTo gameOver 'нашли ответ
: colorError
Next cN
Next cM
ptint 0
: gameOver

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@веник 0 / 0 / 0 Регистрация: 15.12.2009 Сообщений: 6

	Программы на QBasic 15.12.2009, 19:08. Показов 3767. Ответов 5 Метки нет (Все метки) Ребята, кто поможет решить три задачи за пару дней? Задачи пришлю в личном сообщении. 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	15.12.2009, 19:08
	выкладывай на форум 1

@веник 0 / 0 / 0 Регистрация: 15.12.2009 Сообщений: 6
	15.12.2009, 19:11 [ТС]
	Вот задачки: 1) На листочке в клеточку нарисована окружность радиуса R клеток с центром на пересечении двух линий. Необходимо найти количество клеток, по которым проходит окружность (если окружность только касается границы клетки, клетку считать не надо). Формат входных данных: Введите число R (R <= 30000). Формат выходных данных: Выведите число – искомое количество клеток. 2) Требуется заполнить N (1≤N≤60000) элементов массива, пронумерованных числами от 1 до N (A[1]…A[N]), натуральными числами от 2 до N+1, использовав каждое число ровно один раз, так, чтобы значение каждого элемента массива делилось бы нацело на его номер (т.е. для каждого i A[i] делилось бы на i). Напишите программу, которая для заданного N вычислит количество способов такого заполнения массива. 3) Из прямоугольника размером M на N, клетки которого раскрашены в черный и белый цвет, требуется вырезать квадрат размера K на K, раскрашенный в шахматном порядке (то есть любые две соседние клетки раскрашены в разные цвета). Формат входных данных: Введите числа M, N, K (1<=K<=M, N<=900). Далее в M строках введите N чисел 0 или 1, задающие цвета клеток прямоугольника. Формат выходных данных: Программа должна выводить номера строки и столбца клетки – левого верхнего угла вырезаемой доски. Если требуемый квадрат вырезать невозможно, программа должна выводить одно число 0. 0

@веник 0 / 0 / 0 Регистрация: 15.12.2009 Сообщений: 6
	15.12.2009, 20:04 [ТС]
	Спасибо, очень надеюсь на вас. 0

Опции темы