Определить, что в тексте нет равных символов - QBasic

  1. Текст записан в переменной S. И использовано его представление в виде множества. Конечно можно было просто в данном случае отсортировать текст. Но мне хотелось показать, что есть и такой вариант.


textual

Код к задаче: «Определить, что в тексте нет равных символов - QBasic»

a$ = "abcda"
FOR i = 1 TO LEN(a$)
n = n + INSTR(i + 1, a$, MID$(a$, i, 1))
NEXT
IF n > 0 THEN PRINT "YES" ELSE PRINT "NO"

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.083 из 5



Похожие ответы
  1. Помогите с задачкой: определите все ли буквы слова различны.

  1. Условие Даны две квадратные матрицы А() и В() размером 5×5 Он заполнены случайными числами Требуется произвести между матрицами обмен числами так, чтобы максимальное число первой матрицы не превышало минимального числа второй матрицы. Решение Вариант 1 Можно ввести еще один линейный массив и сбросить на него все элементы обоих матриц. Отсортировать этот массив и просто поделить его элементы между двумя матрицами. Примечание Не подходит из-за сортировки. Сортировки нет в условии. Вариант 2 Надо найти средний элемент. То есть такой, где число элементов больших данного было бы равно числу элементов меньших данного Вопрос. Но как найти такой элемент? Вариант 3 Тотальное сравнение элементов обоих матриц и обмен этими элементами Вопрос. Сколько должно быть сравнений? Где гарантия, что задача будет решена? Задача пока не решена. Ищется подходящий алгоритм Кто может что-нибудь подсказать?

  1. Составить программу для проверки утверждения: «Результатами вычислений по формуле x2 + x + 41 при 0 ≥ х ≥ 40 являются простые числа». Все результаты вывести на экран.

  1. Тема 5. Двумерные массивы Дана матрица N x M, состоящая из натуральных чисел. Расставить строки таким образом, чтобы элементы в первом столбце были упорядочены по убыванию. Вывести результат на экран.

  1. нужна помощь в решении ) Дано натуральное число,верно ли,что это число k-значное?

  1. Определить, есть ли в заданном четырехразрядном числе а цифры 5 или 8.

  1. Мне нужно понять как с помощью qbasic создать текстовый документ с записать в него что-либо.Помогите пожалуйста.Добавлено через 1 минуту Допустим , как написать в документе "Привет!"

  1. Четырехзначное число называют счастливым если сумма первых двух его цифр равна сумме двух последних ваша программа должна считать четырехзначное число и определять,счастливо ли оно. Язык програмирования(Basic)

  1. Составить программу в QBASIC Заменить буквы цифрами, чтобы выполнилось неравенство: x8zy=zyx*zy x8zy- как я понял,это четырёхзначное сило zyx-трехзначное zy- двузначноеДобавлено через 17 минут ошибка равенство*