Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Удалить цифры из предложения https://www.cyberforum.ru/ turbo-pascal/ thread1680739.html Тема Множества. Дано предложение. В нем ошибочно набраны лишние знаки (цифры), удалить их. Результат отобразить на экране.	Turbo Pascal Определить, принадлежит ли член последовательности к заданному интервалу Пусть x=a; x=q*x+b (k=1, 2, …,n). Даны натуральное n, действительные a, b, c, d, q (c<d). Принадлежит ли x интервалу (c, d)?
Turbo Pascal Заполнить матрицу по заданному образцу Cформировать квадратную матрицу порядка n по заданному образцу: Всем огромное спасибо заранее) \left https://www.cyberforum.ru/ turbo-pascal/ thread1680658.html	Turbo Pascal Нарисовать что-то интересное и не сложное, используя модуль Graph Нарисовать в Паскаль что либо, используя модуль Graph, что нибудь интересное и не очень сложное https://www.cyberforum.ru/ turbo-pascal/ thread1680524.html
Удалить из списка работы с оценками 4 и 5 Turbo Pascal Составить список лабораторных работ, включить следующие данные:номер работы, название, язык программирования, оценка. Удалить из списка работы с оценками 4 и 5. Или просто скажите как удалить работы? через условный оператор?	Turbo Pascal Найти сумму элементов в строках квадратной матрицы с отрицательным элементом на главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread1680415.html в матрице А(10,10) найти сумму элементов , расположенных в строках с отрицательным элементом на главной диагонали
Turbo Pascal Массив: Найти произведение элементов меньше 50 и сложить с произведением элементов больше 100 https://www.cyberforum.ru/ turbo-pascal/ thread1680401.html дан массив A(а1,a2,...a50) Найти произведение всех элементов, значения которых меньше 50, и сложить с произведением элементов больших 100.	Turbo Pascal Подпрограмма нахождения наименьшего общего кратного для трёх натуральных чисел -Нужно написать подпрограмму, реализующую решение задачи Составить программу для нахождения наименьшего общего кратного для трёх натуральных чисел Заранее огромное спасибо! Добавлено через 6 часов 6 минут var Ch1, Ch2, Ch3, temp, Res: Integer; procedure nok1(Num1, Num2: Integer; var Res: Integer); var
Turbo Pascal Правильно расставить арифметические знаки в выражении https://www.cyberforum.ru/ turbo-pascal/ thread1680001.html У меня не было ни одной мысли как свою задачу реализовать. И решил поискать в интернете примеры. Вот нашел пример, но не на языке программирования. Вроде бы прочитал, но до конца не втыкаю в задачу. Помогите реализовать. Дан автобусный билет с номером, состоящим из N цифр. Расставить между цифрами знаки арифметических операций '+', '-', '*', '/' (целочисленное деление) и скобки таким образом,...	Turbo Pascal Изменить порядок следования цифр трёхзначного числа на обратный https://www.cyberforum.ru/ turbo-pascal/ thread1679779.html Помогите пожалйста Вот пример N=432,то M=234
Turbo Pascal Вычислить значение суммы при заданном значении аргумента дан x, посчитать y y=\sum_{n=1}^{10}\left	Turbo Pascal Создать программу для обхода конем шахматной доски доски размерности 15х15 Создать программу для обхода конем шахматной доски доски размерности 15х15. https://www.cyberforum.ru/ turbo-pascal/ thread1679678.html

Cyborg Drone

Модератор

10065 / 5407 / 3353

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

Сообщений: 16,550

10.03.2016, 01:08

Построить множество символов, встречающихся в строке ровно 2 раза - Turbo Pascal - Ответ 8860185

10.03.2016, 01:08. Показов 1523. Ответов 6

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

Ответ

Pascal

var s, c: string;
    t: char;
    i: byte;
    m, n: set of char;
begin
  writeln('Enter string:');
  readln(s);
  m := [];
  n := [];
  for i := 1 to length(s) do
    if s[i] in n
      then exclude(m, s[i])
      else if s[i] in m
        then include(n, s[i])
        else include(m, s[i]);
  writeln('Set of the symbols which are found in string exactly on two times:');
  c := '';
  write('[');
  for i := 0 to 255 do
    begin
      t := char(i);
      if (t in m) and (t in n)
        then begin
          write(c);
          if length(c) = 0 then c := ', ';
          write(t)
        end
    end;
  write(']');
  readln
end.

Вернуться к обсуждению:
Построить множество символов, встречающихся в строке ровно 2 раза Turbo Pascal

Следующий ответ

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

10.03.2016, 01:08

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

Построить множество символов в строке, встречающихся в ней ровно 2 раза
вводится строка.пройдя по данной строке 1 раз(без вложенных циклов) построить множество...

Вставить в строке знак «!» после символов, принадлежащих множеству и встречающихся в строке 2 раза
3)Дана строка и множество символов. Вставить в строке знак «!» после символов, принадлежащих...

Построить множество из встречающихся в тексте символов от E до N
Дана непустая последовательность символов (в строке) Построить и написать множества, элементами...

Дана строка символов. Построить множество гласных символов, которые встречаются больше одного раза.
1. Дано строку символов. Построить множество гласных символов, которые встречаются больше одного...

	10.03.2016, 01:08

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

10.03.2016, 01:08

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

Программа, которая считает количество парных(встречающихся 2 раза) символов в строке
Напишите программу, которая считает количество парных символов в строке. Вот программа которая...

Удаление из массива всех элементов, встречающихся ровно два раза
Дан целочисленный массив размера N. Удалить из массива все эле-менты, встречающиеся ровно два раза,...

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

Найти максимальное из чисел, встречающихся в заданной матрице ровно два раза
Найти максимальное из чисел, встречающихся в заданной двумерной матрице матрице ровно два раза....

Подсчитать сумму элементов массива А(N), встречающихся в массиве B(N) ровно два раза
Составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в массиве...

Вычисление суммы элементов одномерного массива А, встречающихся в массиве B ровно два раза
Составьте программу вычисления суммы элементов одномерного массива А(N), встречающихся в массиве...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх