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

bormant

Модератор

5663 / 3384 / 2423

Регистрация: 22.11.2013

Сообщений: 9,507

Записей в блоге: 1

03.04.2016, 09:44

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

03.04.2016, 09:44. Просмотров 1315. Ответов 7

Метки (Все метки)

Ответ

Для однобайтовых вариантов выбор-то обычно не особо и велик:

Pascal

function LowerCase(s: String): String;
var i: Integer;
begin
  for i := 1 to Length(s) do
    {$IFDEF ANSI} {cp1251}
    case s[i] of
    'A'..'Z',#$C0..#$DF: Inc(s[i],32);
    #$A8: Inc(s[i],16);
    end;
    {$ELSE} {cp866}
    case s[i] of
    'A'..'Z',#$80..#$8F: Inc(s[i],32);
    #$90..#$9F: Inc(s[i],80);
    #$F0: Inc(s[i]);
    end;
    {$ENDIF}
  LowerCase := s;
end;

Добавлено через 55 секунд
А пример с неправильной кодировкой исходника -- он прямо в этой теме под #5.

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

03.04.2016, 09:44

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

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

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

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

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

Наверх