Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
10005000
1

Проверить является ли число перевертышем

19.05.2011, 17:43. Просмотров 891. Ответов 3
Метки нет (Все метки)


Нужно решить задачи в QBASIC

1. Дано четырехзначное число. Проверить является ли данное число перевертышем( например, 1221, 2222). Тут надо использовать оператор FOR (это не обязательно, если можно решить по другому)

2. Написать программу нахождения первой цифры числа. Поменять местами первую и последнюю цифры. Тут надо использовать оператор WHILE (это не обязательно, если можно решить по другому)

3. Даны натуральные числа m и n. Найти такие натуральные числа p и q, чтобы p/q = m/n. Тут сказали надо оператор LOOP использовать (это не обязательно, если можно решить по другому)

Помогите решить хоть что-то. Заранее благодарен.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2011, 17:43
Ответы с готовыми решениями:

Дано число Х. Проверить является ли Х квадратом четного числа
P.S. (Было бы любезен, если сможете сделать и прикрепить скриншот результата работы)

Проверить, является ли данное число палиндромом(перевертышем)
Задача 5/7: Дано целое четырехзначное число. Проверить, является ли данное число...

Даны два натуральных числа. Проверить, является ли второе число перевертышем первого.
Даны два натуральных числа. Проверить, является ли второе число перевертышем первого.

Проверить, является ли 6-значное число "перевертышем"
Задано шестизначное натуральное число N. Проверить, является ли данное число "перевертышем", т.е....

3
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28022 / 15749 / 972
Регистрация: 15.09.2009
Сообщений: 67,776
Записей в блоге: 78
19.05.2011, 17:48 2
Цитата Сообщение от 10005000 Посмотреть сообщение
Помогите решить
подразумевает что у вас что то не получается.
что именно?

Добавлено через 59 секунд
и какую из двух тем оставить эту или во фрилансе?
(создание дублей запрещено правилами форума, которые Вы конечно же читали.)
1
10005000
19.05.2011, 17:55 3
Цитата Сообщение от magirus Посмотреть сообщение
подразумевает что у вас что то не получается.
что именно?
В программировании почти не разбираюсь. Самое трудное для меня, это начать решение (условие сам могу написать). Задачи для школы нужны.
Цитата Сообщение от magirus Посмотреть сообщение
и какую из двух тем оставить эту или во фрилансе?
(создание дублей запрещено правилами форума, которые Вы конечно же читали.)
Эту, ту случайно создал, не успел разобраться в форуме)
А вы хороший модератор))

Добавлено через 5 минут
Так поможите? Мне хотя бы начало решения, дальше сам догадаюсь.
1252 / 702 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
19.05.2011, 18:22 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
INPUT "vvedite chislo"; a
b = a
DO
    b = b \ 10
    k = k + 1
LOOP UNTIL b = 0
q = k \ 2
w = k - q * 2
FOR i = 1 TO q
    c1 = c1 + (a MOD 10) * 10 ^ (q - i)
    c2 = c2 + ((a \ (10 ^ (q + w))) MOD 10) * 10 ^ (i - 1)
    a = a \ 10
NEXT
IF c1 = c2 THEN PRINT "da" ELSE PRINT "net"
или через строки
PureBasic
1
2
3
4
5
6
7
INPUT "vvedite chislo"; a$
q = LEN(a$) \ 2
FOR i = 1 TO q
    c1$ = c1$ + MID$(a$, i, 1)
    c2$ = c2$ + MID$(a$, LEN(a$) - i + 1, 1)
NEXT
IF c1$ = c2$ THEN PRINT "da" ELSE PRINT "net"
Добавлено через 8 минут
2)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
INPUT "vvedite chislo"; a
b = a
DO
    b = b \ 10
    k = k + 1
LOOP UNTIL b = 0
c1 = a \ (10 ^ (k - 1))
c2 = a MOD 10
PRINT "1:"; c1
FOR i = 1 TO k
    q = a MOD 10
    a = a \ 10
    SELECT CASE i
        CASE IS = 1
            c = c + c1 * 10 ^ (i - 1)
        CASE IS = k
            c = c + c2 * 10 ^ (i - 1)
        CASE ELSE
            c = c + q * 10 ^ (i - 1)
    END SELECT
NEXT
PRINT c
Добавлено через 8 минут
3)
Даны натуральные числа N и M. Найти такие натуральные числа P и Q, что P/Q = M/N.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2011, 18:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Проверить, является ли слово перевертышем
дано слово. проверить, является ли оно перевертышем(перевертышем называется слово, читаемое...

Проверить, является ли текст перевертышем
Здравствуйте, помогите сделать 2 задания. №1 Дана матрица целых чисел А, состоящая из М строк и N...

Проверить, является ли слово перевертышем
Дано слово. Проверить, является ли оно перевертышем (перевертышем називается слово, читаемое...

Проверить, является ли слово перевертышем
Всем добрый вечеер! Кто чем может, пожалуйста, помогите 1. Дано слово. Получить его часть,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.