Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Задача на QBasic https://www.cyberforum.ru/ qbasic/ thread991863.html
Помогите решить пример на QBasic. Буду очень благодарен за помощь!
Счёт Русских букв и слов в тексте из файла QBasic
Рябята программисты помогите! Сам сис админ В QBASIC ПЛОХО РАЗБИРАЮСЬ НУЖНА ПРОГА ЧТОБ ВЫТАСКИВАЛА ИЗ TXT ФАЙЛА ТЕКСТ СЧИТАЛА СКОЛЬКО В НЁМ РУССКИХ БУКВ И РУССКИХ СЛОВ. КАК ТО ТАК: НАПРИМЕР например.. вводим или из текста txt: я режу apple быстро пу мп н v flash pct n. из этого он должен нам выдать: 3 слова русских и 15 букв русских P.s На телефон денюжку кину :3 Очень нужно...
QBasic Найти числа кратные пяти в каждом столбце и заменить их минимальным числом из этого же столбца. Ситуация такая: дали решать задачу , но не объяснили как ее решить. Помогите, кто разбирается в этой теме. Задача: Дана матрица состоящая из елых числе Сij; i=1.6; j=1.6; Найти числа кратные пяти в каждом столбце и заменить их минимальным числом из этого же столбца. Вывести на печать все промежуточные и окончательные значения. Заранее благодарен. https://www.cyberforum.ru/ qbasic/ thread989962.html QBasic Вычисление степени https://www.cyberforum.ru/ qbasic/ thread985311.html
нужно не используя знак ^ написать программу для вычисления 3 степени. Для второй степени вроде все понятно, а вот с третье разобраться не могу, вроде и вижу ответ но смутно. Вот код для нахождения 2 степени для чисел от 1 до 22 for n=1 to 22 с=0 сс=1 for i=1 to n c=c+cc cc=cc+2
QBasic Найти соседние точки
Помогите пожалуйста решить. Нам дан четырехугольник, в котором сетка. Есть внутренние и внешние точки. Внутренние точки нарисованы зеленым. Как сделать так, чтобы программа определяла для каждой внутренней точки соседние точки(слева, справа, сверху и снизу)? Добавлено через 2 минуты
QBasic Вычислить корни уравнения Вычислить корни уравнения. 2*X-3*ln(X)-3=0 Помогите пожалуйста написать. Я написал программу , но она не выдаёт нужных значений: CLS y = 0 e = 1 * 10 ^ -3 FOR X = .5 TO .6 STEP e 1 : RANDOMIZE TIMER https://www.cyberforum.ru/ qbasic/ thread983796.html
QBasic Работа с текстовыми файлами https://www.cyberforum.ru/ qbasic/ thread982767.html
Всем привет! Я новичек в програмировании (примерно на уровне hello world и простых переменных), помогите мне. Нужно ввести число в переменную и записать ее в текстовый файл, а во второй программе прочитать эту переменную из файла и вывести на экран. Надеюсь вы мне поможете.
Организация программ с использованием процедур и функций QBasic
Помогите, пожалуйста, с решение задачи: Составить программу для решения задачи двумя способами: а) с использованием процедур б) с использованием функций Задача:Два треугольника заданы координатами своих вершин. Определить радиусы окружностей, описанных возле треугольников Добавлено через 1 минуту Есть основные формулы: a=abs(sqr((x1-x2)^2+(y1-y2)^2))
QBasic Простые задачи нескольких типов 1. Решить линейное уравнение A·x + B = 0, заданное своими коэффициентами A и B (коэффициент A не равен 0). Входные данные: ввести два любых числа A,B (-100<= A,B <=100). Выходные данные: вывести одно число – корень уравнения с точностью до 4 цифр в дробной части. 2. С начала суток прошло N секунд (N — целое). Найти количество секунд, прошедших с начала последнего часа. Входные данные:... https://www.cyberforum.ru/ qbasic/ thread982276.html QBasic Найти максимальный элемент в каждом столбце матрицы https://www.cyberforum.ru/ qbasic/ thread980373.html
Ребят есть проблема создал матрицу нашел количество положительных чисел в каждой строке а когда пытаюсь найти максимальное в каждом столбце из за первого задания не дает ничего сделать и получается или найти количество положительных и максимальное число в строках или такое же нов столбцах кто может дополните 2 часть моего кривого программирования. Это кривая запись просто уже не знаю что с ней...
Решение системы линейных уравнений методом Зейделя QBasic
написать программу для решения системы линейных уравнений методом Зейделя на QBasic 8x1+15x2-2x3+14x4=-15 -14x1-9x2-12x3+11x4=-16 1x1-19x2+4x3+17x4=16 -15x1-19x2-11x3-9x4=18
QBasic Даны 2 числа Помогите составить программку: Даны 2 числа. Вычислить третье, равное их сумме, если квадрат первого меньше своего основания, и разности в остальных случаях. https://www.cyberforum.ru/ qbasic/ thread978638.html
156 / 46 / 70
Регистрация: 01.07.2014
Сообщений: 185
06.07.2014, 18:18 0

Определить, имеются ли в фразе числа, стоящие из одной цифры? - QBasic - Ответ 6401712

06.07.2014, 18:18. Показов 1103. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Наталия_28 как решение

Решение


QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DEFSTR F-G, S
DEF fnf (g)
   fnf = "No"
   IF "0" <= g AND g <= "9" THEN fnf = "Yes"
END DEF
CLS
INPUT "FRAZA = "; f
f = " " + f + " "
 
FOR i% = 1 TO LEN(f)
   s1 = MID$(f, i%, 1)
   s2 = MID$(f, i% + 1, 1)
   s3 = MID$(f, i% + 2, 1)
   IF fnf(s1) = "No" AND fnf(s2) = "Yes" AND fnf(s3) = "No" THEN
      PRINT " Yes"
      GOTO 100
   END IF
NEXT i%
PRINT " No"
100
END


Вернуться к обсуждению:
Определить, имеются ли в фразе числа, стоящие из одной цифры? QBasic
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.07.2014, 18:18
Готовые ответы и решения:

Определить, имеются ли в строке числа, состоящие из одной цифры
Дана фраза, в которой числа разделены пробелами. Определить, имеются ли в ней числа , состоящие из...

Дана фраза. Определить имеются ли в ней числа, состоящие из одной цифры
Помогите пожалуйста Дана фраза. Определить имеются ли в ней числа, состоящие из одной цифры....

Дана фраза. Определить имеются ли в ней числа, состоящие из одной цифры.
Дана фраза. Определить имеются ли в ней числа, состоящие из одной цифры.

Определить, имеются ли в записи числа нечетные цифры
Дано целое число (N &gt; 0). С помощью операций деления нацело и взятия остатка от деления определить,...

1
06.07.2014, 18:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.07.2014, 18:18
Помогаю со студенческими работами здесь

Определить, имеются ли в записи числа N нечетные цифры
Помогите пожалуйста Дано натуральное число N. Используя операции деления нацело и взятия остатка...

Дана фраза, определить: имеются ли в ней числа, состоящие из 1 цифры
Дана фраза, в которой слова разделены одним пробелом, а сама фраза заканчивается точкой. Требуется:...

Определить, имеются ли в десятичной записи целого числа нечетные цифры
Определить, имеются ли в записи целого числа n нечетные цифры.

Определить, имеются ли в матрице числа, в которых первая и последняя цифры совпадают
Напишите код программы пожалуйста Нарушение п.5.18 Правил Запрещено размещать задания и решения в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru