Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 07.03.2017
Сообщений: 12

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

07.03.2017, 15:46. Показов 1307. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Множества в паскаль.
Даны три строки символов. Получить и распечатать множество из встречающихся только в одной строке цифр и знаков арифметических операций.
Помогите пожалуйста!!!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.03.2017, 15:46
Ответы с готовыми решениями:

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

Поиск букв, цифр и знаков арифметических операций в строке
Задание: Есть символьный массив(строка) из латинских букв, цифр и знаков арифметических операций. Разработать программу, которая выведет...

Запретить ввод в Edit символов, кроме цифр и знаков арифметических операций
в программировании чайник. Написал калькулятор столкнулся с такой проблемой.

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
07.03.2017, 16:03
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const ds=['0'..'9','+','-','*','/'];
var s1,s2,s3:string;
    m:set of char;
    c:char;
    i:integer;
begin
writeln('Введите 3 строки');
readln(s1,s2,s3);
m:=[];
for i:=1 to length(s1) do
if s1[i] in ds then m:=m+[s1[i]];
for i:=1 to length(s2) do
if s2[i] in ds then
if s2[i] in m then m:=m-[s2[i]] else m:=m+[s2[i]];
for i:=1 to length(s3) do
if s3[i] in ds then
if s3[i] in m then m:=m-[s3[i]] else m:=m+[s3[i]];
writeln('Множество цифр и знаков арифметических действий, встречающихся только в одной из строк');
if m=[] then write('Таких символов нет')
else for c:='*' to '9' do
if c in m then write(c:2);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.03.2017, 16:03
Помогаю со студенческими работами здесь

Дан текст. Удалить из текста все символы арифметических операций и найти количество цифр, встречающихся в нем.
помогите написать программу; Дан текст. Удалить из текста все символы арифметических операций и найти количество цифр, встречающихся в...

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

Получить множества цифр от 0 до 9 и знаков арифметических действий
Дана строка. 1)Получить множества цифр от 0 до 9 и знаков арифметических действий. 2) букв от x до z. 3)знаков препинания и букв от Е...

Найти все варианты размещения знаков арифметических операций на месте вопросительных знаков
Составить программу, которая нашла все варианты размещения знаков арифметических операций +, -, * на месте вопросительных знаков в...

Найти все варианты размещения знаков арифметических операций на месте вопросительных знаков в выражении
Составить программу, которая бы нашла все варианты размещения знаков арифметических операций +,-,* на месте вопросительных знаков в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru