Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Разработка программы блочной структуры. Процедуры и функции с параметрами. Разработать процедуры:  Ввода размерности массива,  Ввода элементов массива,  Вывода элементов массива. В соответствии с индивидуальным заданием разработать подпрограмму(ы).Тип подпрограммы определить по условию индивидуального задания. В процедуре ввода размерности массива выводить сообщение “ Ввод размерности массива < имя массива > “ https://www.cyberforum.ru/ turbo-pascal/ thread552684.html Матрица. Найти сумму всех элементов, расположенных на главной диагонали и выше ее Turbo Pascal
Найти сумму всех элементов , расположенных на главной диагонали и выше ее матрицы размером 6*6, состоящей из элементов целого типа. Основные ф-ии программы оформить в виде процедур и функций.
Turbo Pascal Определить, верно ли, что при делении неотрицательного числа А на положительное целое число В получается остаток равный одному из двух заднных чисел https://www.cyberforum.ru/ turbo-pascal/ thread552671.html
Определить, верно ли, что при делении неотрицательного числа А на положительное целое число В получается остаток равный одному из двух заднных чисел r или s Заранее блогадарю Добавлено через 10 минут ну кто нить очень нужна помощь!!!
Turbo Pascal Описать функцию Power4 Описать функцию Power4(x,a,ξ) вещественного типа (параметры х, а, ξ - вещественные, |х|>1; a,ξ > 0), находящую приближенное значение функции (1+x)^a: (1+x)^a = 1+a*x+a*(a-1)*x^2/(2!)+...+(a-n+1)*x^n/n!+... В сумме учитыать все слагаемые, модуль которых больше ξ. С помощью Power4 найти приближенное значение (1+х)^a для данных х и а при шести данных ξ. https://www.cyberforum.ru/ turbo-pascal/ thread552668.html
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр Turbo Pascal
Помогите решить задачу на Паскале. СРОЧНО!!!! Найти все четырехзначные числа,у которых сумма крайних цифр равна сумме средних цифр,а само число делится на 6 и 27.Найти все натуральные числа из промежутка от 1 до 200, у которых сумма делителей равна S(S вводить с клавиатуры).
Turbo Pascal Строка: Найти слово(слова),содержащее наибольшее количество заглавных латинских букв R,S,T,X,Y,Z. Помогите решить задачу на Паскале. СРОЧНО!!!! Дан текст.Группы символов,разделенные пробелами(одним или несколькими)и не содержащие пробелов внутри себя,будем называть словами.Найти слово(слова),содержащее наибольшее количество заглавных латинских букв R,S,T,X,Y,Z. ЗАРАНЕЕ ВСЕМ СПАСИБО. https://www.cyberforum.ru/ turbo-pascal/ thread552660.html
Turbo Pascal Массив: Определить количество инверсии в заданной последовательности Помогите решить задачу на Паскале. СРОЧНО!!!! Дана последовательность из 20 целых чисел.Определить количество инверсии в этой последовательности(т.е. таких пар элементов,в которых большее число находится слева от меньшего:X>X при I<J). https://www.cyberforum.ru/ turbo-pascal/ thread552658.html Turbo Pascal Дан массив целых чисел.заменить рядом стоящие элементы друг на друга.
Помогите пожалуйста решить задачку!
Turbo Pascal Дано натуральное число. Найти количество четных цифр числа https://www.cyberforum.ru/ turbo-pascal/ thread552639.html
Я решила задачу но не до конца помогите пожалуйста. Дано натуральное число:Найти количество четных цифр числа; верно ли,что данная цифра А встречается в числе более двух раз(А вводится с клавиатуры). Найти количество различных цифр данного натурального числа. Program pr1; Uses crt; Var a,k:integer; Begin clrscr; readln(a);
Turbo Pascal Дана последовательность из 20 целых чисел. https://www.cyberforum.ru/ turbo-pascal/ thread552635.html
Помогите решить задачи на Паскале. СРОЧНО!!!! 1)Дана последовательность из 20 целых чисел.Определить количество инверсии в этой последовательности(т.е. таких пар элементов,в которых большее число находится слева от меньшего:X>X при I<J). 2)Дан текст.Группы символов,разделенные пробелами(одним или несколькими)и не содержащие пробелов внутри себя,будем называть словами.Найти...
Определить попадает ли заданная точка в заштрихованную область Turbo Pascal Turbo Pascal
Здравствуйте прошу помощи знающих как решить эту задачку Определить попадает ли заданная точка с координатами x,y заштрихованная область. Вычислить значения переменной Z о соотвествующим выражении в зависимости от того пападет ли точка в заштрихованную область. Вот картинка задачи Заранее блогадарю
Turbo Pascal Графика. Нарисовать "Резиновый прямоугольник" - помогите доделать Ребятки, помогите пожайлуста:"Резиновый прямоугольник". Изменение размера прямоугольника при фиксированной координате верхнего левого угла (растягивание или сжатие за правую боковую или нижнюю стороны). Вращение прямоугольника за его произвольную вершину при фиксированной координате центра прямоугольника. Выбор точки(стороны,вершины) осуществляется графическим курсором и нажатием клавиши "Enter".... https://www.cyberforum.ru/ turbo-pa
1296 / 469 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
19.04.2012, 16:58 0

Вывести на экран символы, входящие в текст не менее двух раз - Turbo Pascal - Ответ 2930423

19.04.2012, 16:58. Показов 636. Ответов 4
Метки (Все метки)

Ответ

№1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
 
var a: array [char] of integer;
    ch: char;
    i: integer;
 
begin clrscr;
for i:=0 to 255 do a[chr(i)]:=0;
 
while not eoln do
 begin
 read(ch);
 inc(a[ch]);
 end;
 
for i:=0 to 255 do
 if a[chr(i)] >= 2 then write(chr(i),', ');
readkey; end.
Добавлено через 8 минут
Второе меня тоже очень смутило, т.к. я знаю как поменять местами две переменные, например, целочисленного типа, но в двух множествах могут быть общие элементы, и это проблема. Я вообще не думаю, что со множествами это возможно, именно из-за общих элементов. Могу написать программу, которая будет это делать при условии, что элементы абсолютно разные.

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

Добавлено через 7 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
 
var a,b: set of 0..20;
 
begin
a:=[0,1,2,3];
b:=[3,4,5];
a:=a + b - a*b;
b:=(a-b) + (b-a);
a:=(a-b) + (b-a);
end.
Обратите внимание, 3 - общий элемент. Сначала мы записываем в А все, кроме общих. Потом вычисляем В по логике - если этот элемент есть в В, но нет в А, значит он был общим. Мы вычитаем В из А, т.е. А-В, и добавляем общий элемент, т.е. В-А. Теперь во множестве В у нас первоначальное множество А. Точно так же мы вычисляем А.

Вернуться к обсуждению:
Вывести на экран символы, входящие в текст не менее двух раз Turbo Pascal
2
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.04.2012, 16:58
Готовые ответы и решения:

Множества. Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз
Дан текст. Вывести в алфавитном порядке все буквы текста, входящие в него не менее двух раз. Текст...

Напечатать все буквы, входящие в текст не менее двух раз
дана символьная строка напечатать все буквы входящие в текст не менее двух раз . помогите...

Напечатать все буквы, входящие в текст не менее двух раз
Дан текст из строчных латинских букв за которым следует точка. Напечатать все буквы входящие в текс...

Напечатать все буквы, входящие в текст не менее двух раз
Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в...

4
19.04.2012, 16:58
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.04.2012, 16:58
Помогаю со студенческими работами здесь

Напечатать все буквы, входящие в текст не менее двух раз.
Добрый день форумчане!!! Можете помочь с задачкой?! Дан текст из строчных латинских букв, за...

Множества. Напечатать все буквы, входящие в текст не менее двух раз
множества. Дан текст из строчных латинских букв ,за которыми следует точка . Напечатать все...

Множества. Напечатать все буквы, входящие в текст не менее двух раз.
Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в...

Вывести все буквы, входящие в текст не менее двух раз
Дан текст, заканчивающийся точкой. Вывести все буквы, входящие в текст не менее двух раз. Просьба...

0
Новые блоги и статьи
Из чего и как собрать свой домашний кинотеатр
bt_guru 21.01.2025
Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .
Ошибки стиральных машин
bt_guru 21.01.2025
Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .
Копирование (маппинг) объектов в JavaScript
bytestream 21.01.2025
В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .
Как работать с Apache Kafka в C# .NET
bytestream 21.01.2025
Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .
Как использовать RabbitMQ в C# .NET
bytestream 21.01.2025
RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .
Как объединить последние коммиты в Git
bytestream 21.01.2025
В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .
Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её
bytestream 21.01.2025
В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .
Как создать директорию и все родительские директории, указанные в пути, с помощью Python
bytestream 21.01.2025
Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .
Как работать с массивами в JavaScript
bytestream 21.01.2025
Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .
Какая максимальная длина адреса (URL) в различных браузерах и стандартах
bytestream 21.01.2025
В современном мире интернет-технологий URL-адреса (Uniform Resource Locator) играют фундаментальную роль в функционировании веб-пространства. Эти уникальные идентификаторы ресурсов стали неотъемлемой. . .
Как сбросить локальный репозиторий до состояния удалённого репозитория Git
bytestream 21.01.2025
При разработке программного обеспечения с использованием системы контроля версий Git разработчики часто сталкиваются с необходимостью синхронизации локального и удаленного репозиториев. Данная задача. . .
Как запретить подсветку выделенного текста с помощью CSS
bytestream 20.01.2025
Подсветка текста при выделении является стандартным поведением браузера, которое не всегда соответствует дизайнерским решениям или функциональным требованиям веб-приложения. Выделение текста может. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru