PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Написать программу с текстовым файлом Дано целое число N и текстовый файл. Создать строковый файл, содержащий все слова длины N из исходного файла (знаки препинания, пробел в начале и в конце слов, не учитывать). Если исходный файл не содержит слов длины N, оставить результирующий файл пустым.* :-\| https://www.cyberforum.ru/ pascalabc-net/ thread2363370.html	Найти количество строк матрицы, похожих на первую строку PascalABC.NET Дана целочисленная матрица размера M x N. Различные строки (столбцы) матрицы назовем похожими, если совпадают множества чисел, встречающихся в этих строках (столбцах). Найти количество строк, похожих на первую строку. Все строки и столбцы нужно вводить вручную. Очень срочно нужно %-)
PascalABC.NET Написать подпрограмму, которая ищет в пятизначном числе минимальную цифру https://www.cyberforum.ru/ pascalabc-net/ thread2363269.html Написать подпрограмму, которая ищет а пятизначном числе минимальную цифру, не меньшую четырёх. Если таких цифр нет, то вернуть 10 Требования к подпрограмме: Процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. Второй - результат работы подпрограммы.	PascalABC.NET Написать подпрограмму в паскале https://www.cyberforum.ru/ pascalabc-net/ thread2363251.html Написать подпрограмму, которая ищет а пятизначном числе минимальную цифру, не меньшую четырёх. Если таких цифр нет, то вернуть 10
PascalABC.NET Составить программу для вычисления элементов матрицы Y Составить программу для вычисления элементов матрицы Y по известным элементам вектора X. {y}_{ij}=ln\left\|{x}_{i}*{x}_{j} \right\| i,j=1,2...10. Заранее спасибо. :)	PascalABC.NET Получить таблицу значений функции y и найти у максимальное https://www.cyberforum.ru/ pascalabc-net/ thread2363125.html Получить таблицу значений функции y и найти уmax , если “х” изменяется от -1 до 1 с шагом 0,4; а “z” изменяется от 0 до p/12 с шагом p/12. y= (Фигурная скобка) x^3+sin(z) , если xz >=0 (ln\|x\|)/sqrt(z+1), если xz<=0 (и это все в системе)
PascalABC.NET Сформировать массив из 15 целых чисел из [-28;25] https://www.cyberforum.ru/ pascalabc-net/ thread2363065.html Помогите , пожалуйста !) Написать и выполнить программу: сформировать массив из 15 целых чисел из , вывести исходный массив в строку; найти произведение всех элементов; найти количество положительных элементов; найти минимальный элемент и его индекс	PascalABC.NET Работа с текстовыми файлами Помогите решить задачу на PascalABC.NET Text9. Дан текстовый файл NameT и файл целых чисел NameN. Добавить в начало1\|конец2 каждой строки файла NameT изображение соответствующего числа из файла NameN. Если файл NameN короче файла NameT, то оставшиеся строки файла NameT не изменять.
PascalABC.NET Таймер https://www.cyberforum.ru/ pascalabc-net/ thread2363005.html Всем здравия. Пытаюсь реализовать отображение времени в заголовке окна через Таймер. uses System,System.Timers, CRT; var dt:DateTime; dt1:timer; procedure ShowDate; begin CRT.SetWindowTitle(dt.Hour+':'+dt.Minute+':'+dt.Second); end; begin	PascalABC.NET Числа из строк файла https://www.cyberforum.ru/ pascalabc-net/ thread2362937.html Доброго вечера. Есть некоторый файл f с 141 строкой состоящей из цифр без пробелов (в 1 строке 24 цифры). Из него надо сформировать двухмерный массив по 12 чисел каждую ячейку которого 2хзначных чисел.
PascalABC.NET Реализовать с применением двоичных деревьев и рекурсии Во входном файле задана корректная инфиксная форма арифметического выражения , содержащая односимвольные операнды в виде десятичных цифр , символы операций +,-,*,/ и круглые скобки. Унарные операции допускаются. Разработать процедуры: 1.P1-преобразования инфиксной формы в постфиксную, используя деревья. 2.P2- вычисления корректной инфиксной формы арифметического выражения, используя рекурсию;...	PascalABC.NET В зависимости от введенного номера n (1<=n<=10) вывести букву латинского алфавита, соответствующего этому номеру https://www.cyberforum.ru/ pascalabc-net/ thread2362773.html В зависимости от введенного номера n (1<=n<=10) вывести букву латинского алфавита, соответствующего этому номеру

ZX Spectrum-128

6810 / 4567 / 4819

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

Сообщений: 22,438

03.12.2018, 13:27

Постройте множество из знаков, которые не были использованы в тексте - PascalABC.NET - Ответ 13119621

03.12.2018, 13:27. Показов 813. Ответов 1

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

Ответ

Pascal

type
  SetOfChar = set of char;
 
const
  AllChars: set of char = [#0..#255];
 
var
  q: setofchar;
 
procedure InputSet(var x: SetOfChar);
var
  s: string;
  i: integer;
begin
  readln(s);
  for i := 1 to length(s) do
    include(x, s[i]);
  x := AllChars - x;
end;
 
procedure PrintSet(x: SetOfChar);
begin
  writeln(x);
end;
 
begin
  InputSet(q);
  PrintSet(q);
end.

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

03.12.2018, 13:27

Готовые ответы и решения:

Постройте множество из знаков, которые были использованы в тексте всего лишь по по одному разу
Пусть дана строка произвольного текста. Постройте множество из знаков, которые были использованы в...

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

Постройте множество точек, которые удовлетворяют условию
|z-2z|<4

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

	03.12.2018, 13:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.12.2018, 13:27

Помогаю со студенческими работами здесь

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

Как заставить программу не считать значения, если они уже были использованы?
Всем привет! Только начинаю изучение С. Стоит такая задача: Через стандартный поток ввода...

Найдите множество Парето для задачи двумя методами. Постройте множество достижимости.
Швейная фабрика производит мужские сорочки и женские блузки для магазина. Этот магазин согласен...

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

Наверх