Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal В прямоугольном массиве с помощью процедуры убрать все строки, у которых оба конца – с четными значениями https://www.cyberforum.ru/ pascal/ thread1698249.html
Программа В прямоугольном массиве с по-мощью процедуры убрать все строки, у которых оба конца – с четными значениями. Исходные данные из файла читать, начиная с 44 числа. Процедуры (Функции) 1)...
Pascal Вывести 3 случайных числа от 0 до 100 без повторений
Вывести 3 случайных числа от 0 до 100 без повторений.
Pascal Найти минимум функции одной переменной
Пожалуйста, помогите с заданием! Очень нужно! Найти минимум функции одной переменной двумя методами: одним из методов нулевого порядка и одним из методов первого или второго порядка, проверив...
Pascal Определить принадлежность точки области Помогите составить условие принадлежности точки области https://www.cyberforum.ru/ pascal/ thread1698055.html
Pascal Разработка алгоритмов поиска https://www.cyberforum.ru/ pascal/ thread1697678.html
программно реализовать линейный поиск. Ввод массива, вывод массива и поиск оформить в виде подпрограмм. Подсчитать количество сравнений и операций присваивания при выполнении поиска.
Создать программу используя модуль DOS Pascal
Создать программу на языке Pascal используя не менее 5 процедур и ф-ций модуля DOS.
Составить любую программу с использованием не менее 5 процедур и функций модуля DOS Pascal
Составить программу на языке Pascal с использованием не менее 5 процедур и функций модуля DOS
Pascal Выведите количество способов изменить ровно один коэффициент многочлена недавно закончился турнир на codeforces, там была следующая задачка: D. Медвежонок и многочлены ограничение по времени на тест2 секунды ограничение по памяти на тест256 мегабайт... https://www.cyberforum.ru/ pascal/ thread1697429.html
Pascal Почему Pascal ABC не читает файлы (программы паскаля ) IDE глючит? Есть альтернатива? https://www.cyberforum.ru/ pascal/ thread1697237.html
ну например: var f : text; s : string; begin assign(f, 'start'); reset(f); while eof(f) do begin readln(f, s);
Pascal Readkey клавиши "вправо" Что бы программа могла проверить что нажата клавиша "up" Для "вверх", "влево" и "вниз" - я нашёл знаки, а вот для "вправо"! вот если что: uses crt; var key : char; begin https://www.cyberforum.ru/ pascal/ thread1697041.html
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5663 / 3384 / 2423
Регистрация: 22.11.2013
Сообщений: 9,507
Записей в блоге: 1
31.03.2016, 21:11 0

Найти все такие слова, в которых все буквы различны

31.03.2016, 21:11. Просмотров 1315. Ответов 7
Метки (Все метки)

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

Решение

Перевод в нижний регистр можно существенно упростить:
Pascal
1
2
3
4
5
6
7
8
9
10
11
function LowerCase(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    case s[i] of
    'A'..'Z','А'..'П': Inc(s[i],32);
    'Р'..'Я': Inc(s[i],80);
    'Ё': Inc(s[i]);
    end;
  LowerCase := s;
end;
Добавлено через 6 минут
Проверку на уникальность тоже можно несколько сократить:
Pascal
1
2
3
4
5
6
7
function IsUniqWord(const s: String; const ar: TArray; const n: Integer): Boolean;
var i: Integer;
begin
  IsUniqWord:=False;
  for i:=0 to n-1 do if s=ar[i] then Exit;
  IsUniqWord:=True;
end;
Добавлено через 4 минуты
Вывод ответа через запятую, как в примере:
Pascal
1
2
3
4
  if n=0 then WriteLn('<искомых слов нет>')
  else begin
    Write(uniq[0]); for i:=1 to n-1 do Write(', ',uniq[i]); WriteLn;
  end;


Вернуться к обсуждению:
Найти все такие слова, в которых все буквы различны
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2016, 21:11
Готовые ответы и решения:

Найти из всех четырехзначных чисел, такие числа, в записи которых все цифры различны
Задание: Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать...

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

Вывести только те слова, все буквы которых различны
Помогите сделать надо чтобы вводились слова и выводились только те в которых все буквы разные

Найти слова четной длины, у которых все буквы из первой половины слова встречаются во второй половине слова
Пожалуйста, помогите написать программу. Вот условие: Дана последовательность символов,...

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