Форум программистов, компьютерный форум, киберфорум
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
Модератор
8325 / 4098 / 2846
Регистрация: 17.08.2012
Сообщений: 13,090
03.04.2016, 09:01 0

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

03.04.2016, 09:01. Просмотров 1315. Ответов 7
Метки (Все метки)

Ответ

Эта тема находится в общей ветке паскаля. Чтобы функция не зависела от кодировки, по-моему, проще всего её "в лоб" написать:
Pascal
1
2
3
4
5
6
7
8
9
10
function LowerCase(s: String): String;
const b = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
      m = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
var i: Integer;
begin
  for i := 1 to Length(s) do
    if Pos(s[i], b) > 0
      then s[i] := m[Pos(s[i], b)];
  LowerCase := s
end;


Вернуться к обсуждению:
Найти все такие слова, в которых все буквы различны
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2016, 09:01

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

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

Найти все четырехзначные числа, у которых все цифры различны
4)Найти все четырехзначные числа, у которых все цифры различны.

Найти все четырехзначные числа, у которых все цифры различны
Операторы цикла: найти все четырехзначные числа, у которых все цифры различны.

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

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