Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Матрицы. Определить, есть ли в данном массиве строка, в которой имеются одинаковые элементы Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве строка в которой имеются одинаковые элементы. Найти сумму его элементов, расположенных между максимальным и минимальным элементами (включая оба этих числа). помогите решить...срочно надо https://www.cyberforum.ru/ turbo-pascal/ thread584334.html	Turbo Pascal Построить график Построить график функции y=x2 на промежутке от -5 до 7
Turbo Pascal Поменять строки Нужно поменять местами в матрице 1ую и 2ую строки, код: begin for i:=1 to 3 do begin for j:=1 to 3 do begin k:=a; {почему пишется за место j - i ?} a:=a; a:=k; end; https://www.cyberforum.ru/ turbo-pascal/ thread584296.html	Turbo Pascal Дана вещественная матрица. Элементы главной диагонали записать в одномерный массив https://www.cyberforum.ru/ turbo-pascal/ thread584273.html Данна вещественная матрица A(5x5). Элименты главной диагонали записать в массив B.
Turbo Pascal Дан одномерный массив. Найти сумму максимума среди четных и минимума среди нечетных помогите плииз	Turbo Pascal Работа со списками https://www.cyberforum.ru/ turbo-pascal/ thread584243.html Помогите написать программу на Паскале . Заранее спасибо за проявленное внимание и помощь Примечание. При добавлении новых элементов в список необходимо их связать в упорядоченный список по указанному ключу-полю из записи, если не указано добавить "в конец" или "в начало". Многочлен Pn (x)=anxn+an-1xn-1+..+a1x1+a0x0 с целыми коэффициентами aiможно представить в виде списка с элементами...
Turbo Pascal Среднее арифметическое элементов матрицы https://www.cyberforum.ru/ turbo-pascal/ thread584221.html Создать паскаль-программу вычисляющую среднее арифметическое всех элементов матрицы.помогите пожалуйста.заранее спасибо	Turbo Pascal Файлы. Найти наименьший и наибольший общие делители, также определить все простые числа и их количество создать файл из натуральных чисел. в файле натуральных чисел найти наименьший и наибольший общие делители, также определить все простые числа и их количество. Все простые числа сохранить в другой файл. Предусмотреть возможность просмотра содержимого всех файлов.
Turbo Pascal Работа с файлами. Найти число, повторяющееся максимальное количество раз Создать файл из N целых чисел. Найти число, повторяющееся максимальное кол-во раз. Если таких чисел несколько, то все из них. Сохранить эти числа в другой файл и отсортировать. Все файлы до и после обработки вывести на печать. https://www.cyberforum.ru/ turbo-pascal/ thread584194.html	Turbo Pascal Массив. Найти максимальный элемент из элементов с нечетными номерами https://www.cyberforum.ru/ turbo-pascal/ thread584187.html Помогите пожалуйста с прогой)) Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A(1), A(3), A(5), ...
Turbo Pascal Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку №1распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку №2даны результаты переписи населения, которые хранятся в памяти ЭВМ напечатать фамилии, имена подсчитать общее число жителей, родившихся после 1990г.	Turbo Pascal Из диапазона целых чисел m,n выделить множество чисел, делящихся без остатка или на k 1.Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые входят в каждое нечётные слова и не входят хотя бы в одно чётное слово. 2.Из диапазона целых чисел m,n выделить множество чисел, делящихся без остатка или на k https://www.cyberforum.ru/ turbo-pascal/ thread583986.html

Zhexon

314 / 273 / 272

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

Сообщений: 477

20.01.2013, 17:24

Множество. Построить множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9 - Turbo Pascal - Ответ 4030126

20.01.2013, 17:24. Показов 1392. Ответов 2

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

Ответ

Pascal

const digits = ['0'..'9']; { множество цифр для сравнения}
var
  mn : set of char; { множество для результата}
  s: string; ch : char; i : byte;
begin
  writeln('Input string with numeric : '); readln(s); { подсказка и ввод последовательности символов }
  mn:=[]; { начальное }
  for i:=1 to length(s) do if s[i] in digits then mn:=mn+[s[i]]; { включаем в результат, только цифры}
  for ch:='0' to '9' do if ch in mn then write(ch:2); {если из цифр чтото есть в результате, то печатаем}
  readln;
end.

Вернуться к обсуждению:
Множество. Построить множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9 Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.01.2013, 17:24

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

Построить и напечатать множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9
Сформировать множество. Дана последовательность символов. Построить и напечатать множество,...

Построить множество, элементами которого являются встречающиеся в последовательности цифры от 1 до 3 и от 17 до 100
"Дана непустая последовательность символов. Требуется построить и напечатать множество, ...

Построить и напечатать множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9
1)Сформировать множество Дана последовательность символов. Построить и напечатать множество,...

Сформировать множество элементами которого являются встречающиеся в последовательности цифры от 0 до 9
Сформировать множество в паскале элементами которого являются встречающиеся в последовательности...

	20.01.2013, 17:24

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.01.2013, 17:24

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

Построить и напечатать множество, элементами которого являются встречающиеся в последовательности символы
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами...

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

Построить и напечатать множество, элементами которого является встречающиеся в последовательности цифры
плиииизззззз народ помогите решить задачу! очень надо! Дана непустая последовательность символов....

Напечатать множество, элементами которого являются встречающиеся в последовательности символы
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами...

Наверх