Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найдите и выведите все слова в тексте, содержащие хотя бы одну из букв множества https://www.cyberforum.ru/ pascalabc/ thread1021601.html
Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве . Найдите и выведите все слова в тексте, содержащие хотя бы одну...
Pascal ABC Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки за все время обучения
Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки за все время обучения.
Pascal ABC матрица 8на8 Найти количество элементов стоящих между максимальным и минимальным элементом матрицыB(8;8) https://www.cyberforum.ru/ pascalabc/ thread1021546.html Pascal ABC Эквивалентность Пусть имеется оператор присваивания X:=A or B and C, где переменные X, A, B, C имеют тип Boolean. Напишите условный оператор, который эквивалентен данному (например, оператору присваивания X:=not A... https://www.cyberforum.ru/ pascalabc/ thread1021534.html
Разработать алгоритм табулирования функции Pascal ABC
Здравствуйте! Помогите пожалуйста. Необходимо разработать алгоритм табулирования функции. Вычислить значение функции при изменении аргумента в указанном диапазоне и с заданным шагом(dx). Организовать...
Pascal ABC В последовательности ГНС (ДСЧ) из каждых 10 найти среднее арифметической ну более подробно: из последовательности псевдослучайных n чисел нужно сделать новую, путем вычисления среднего арифметического каждых 10 чисел. Т.е. из 100 должно получиться 10 :) https://www.cyberforum.ru/ pascalabc/ thread1021492.html
Pascal ABC Дано одномерных массива y(n) x(n). Найти максимальные элементы в них и переставить их между собой https://www.cyberforum.ru/ pascalabc/ thread1021457.html
Дано одномерных массива y(n) x(n). Найти максимальные элементы в них и переставить их между собой (то есть на место максимального из х(n) поставить максимальный из y(n) и наоборот.
Pascal ABC В массиве z(n) один нулевой элемент. Найти где он находится и вычислить произведение отрицательных элементов последующих за ним
В массиве z(n) один нулевой элемент. Найти где он находится и вычислить произведение отрицательных элементов последующих за ним.
Pascal ABC ПОМОГИТЕ НАЙТИ ОШИБКУ В заданном текстовом файле удалить кратчайшУЮ строку файла. НО МНЕ ВЫДАЕТ ОШИБКУ "*Внимание! После окончания работы программы не закрыто файлов: 1". ГДЕ Я ОШИБСЯ? ПОМОГИТЕ ИСПРАВИТЬ ПОЖАЛУЙСТА. ... https://www.cyberforum.ru/ pascalabc/ thread1021404.html Pascal ABC Односвязный список (новое) https://www.cyberforum.ru/ pascalabc/ thread1021397.html
Создать динамический односвязный список из случайных целых чисел в диапозоне от -100 до 100 (количество элементов списка вводится с клавиатуры). Написать процедуру вывода списка на экран. Вывести на...
Pascal ABC Заполнить двумерный массив 3 на 4 с клавиатуры
Заполнить двумерный массив 3 на 4 с клавиатуры. Вывести «ДА» , если значение первого столбца совпадают со значениями послед-него столбца. Var Y,I : Integer; Mas : Array of Integer; Begin For...
Pascal ABC В последовательности все неотрицательные члены, не принадлежащие отрезку [1,2] заменить на единицу даны натуральные число n, действительного числа а1...аn.В последовательности а1...аn все неотрицательные члены , не принадлежащие отрезку заменить на единицу. Кроме того получить число отрецательных... https://www.cyberforum.ru/ pascalabc/ thread1021362.html
138 / 82 / 23
Регистрация: 21.10.2009
Сообщений: 428
28.11.2013, 10:36 0

Построить и напечатать множество, элементами которого является встречающиеся в последовательности - Pascal ABC - Ответ 5402396

28.11.2013, 10:36. Показов 3074. Ответов 1
Метки (Все метки)

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

Решение

Ну примерно как-то так можно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program my1
var
   str1: String;
   str2: String;
   
   i: integer;
   mn: set of char;
begin
  mn := ['0','1','2','3','4','5','+','-','*','/'];
  str1 := '0kc9c2n9024n9c521n310cn-c14c14gh';
  str2 := '';
  for i := 1 to Length(str) do
    if str[i] in mn then
      str2 := str2 + str1[i];
  
  writeln('Результирующая строка: ' + str2);
end.
Добавлено через 5 минут
Единственное я опечатался str замени на str1 и все будет норм.

Вернуться к обсуждению:
Построить и напечатать множество, элементами которого является встречающиеся в последовательности Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2013, 10:36
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2013, 10:36
Помогаю со студенческими работами здесь

Требуется построить и напечатать множество, элементами которого являются встречающиеся в строке знаки препинания и цифры от ‘0’ до ‘6’
Дана непустая строка символов. Требуется построить и напечатать множество, элементами которого...

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

построить и напечатать множество, элементами которого являются встречающиеся в последовательности: цифры от '0' до '9'
Дана непустая последовательность символов. Требуется построить и напе- чатать множество, элементами...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru