Написать программу "угадай число". программа загадывает рандомное число(от 0 до 100) а пользователь должен отгадать его. программа должна давать подсказки, больше или меньше загаданное число. на паскале
300
500
Ответы на вопрос:
Sub num1() s = 0 n = cint(inputbox("n =")) range(cells(1, 1), cells(2 * (n + 2), n + redim a(n - 1) redim b(n - 1) k = 1 cells(k, 1).value = "a" cells(k + 2, 1).value = "b" k = k + 1 m = -1 for i = lbound(a, 1) to ubound(a, 1) a(i) = round(rnd * 10) - 5 cells(k, 1 + i).value = a(i) if a(i) = 0 then m = m + 1 b(m) = i cells(k + 2, m + 1).value = b(m) end if next end sub sub num2() n = 16 redim a(n, n), c(n, n), e(n, n) range(cells(1, 1), cells(2 * (n + 2), n + k = 1 cells(k, 1).value = "init" k = k + 1 cells(k + n + 1, 1).value = "result" for i = 0 to n for j = 0 to n a(i, j) = round(rnd * 10) cells(k + i, j + 1).value = a(i, j) if i = j then e(i, j) = 1 else e(i, j) = 0 c(i, j) = 0 for r = 0 to n c(i, j) = c(i, j) + a(i, r) * a(r, j) next x = 6 * (c(i, j) + e(i, j)) cells(k + n + 2 + i, j + 1).value = x next next end sub
Популярно: Информатика
-
лисичка00920.09.2022 08:25
-
ТупенькийХлебушек106.06.2022 03:53
-
ШколоЛОх18.04.2021 21:05
-
yuliasitnikova25.09.2022 08:58
-
MrKoopo04.05.2020 13:23
-
Дарина1574630.10.2022 10:29
-
mia7330.08.2020 11:52
-
Davidavid09.01.2022 15:09
-
Kononovichlika05.02.2020 02:11
-
Mama228zx24.06.2023 10:50