Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Дана матрица MxM. Посчитать сумму отрицательных элементов, находящихся на диагоналях квадратной матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1119213.html Посчитать сумму отрицательных элементов, находящихся на диагоналях квадратной матрицы	Turbo Pascal Написать пропущенные команды Заполнить пропуски
Turbo Pascal Заменить первый отрицательный элемент на максимальное значение элемента массива A(N) Заменить первый отрицательный элемент на максимальное значение элемента массива A(N). З.Ы. зарание благодарю. https://www.cyberforum.ru/ turbo-pascal/ thread1119198.html	Turbo Pascal Определить два наибольших произведения https://www.cyberforum.ru/ turbo-pascal/ thread1119194.html
Найти численность самой большой семьи в квартирах 3-го и 4-го этажей Turbo Pascal Информация о количестве жильцов в каждой из четырех квартир каждого этажа 12-этажного дома хранится в двумерном массиве (в первой строке - информация о квартирах первого этажа, во второй - второго и т.д.). В каждой квартире проживает одна семья.Найти численность самой большой семьи в квартирах 3-го и 4-го этажей.	Turbo Pascal Напечатать в алфавитном порядке все глухие согласные, которые не входят ни в одно четное слово https://www.cyberforum.ru/ turbo-pascal/ thread1119187.html Помогите, пожалуйста, вот такую задачку в Паскале написать. Задача на множества. дана последовательность слов, между соседними словами запятая. за последним словом точка. Напечатать в алфавитном порядке все глухие согласные, которые не входят ни в одно четное слово.
Turbo Pascal Есть тип "имя". Есть тип "родство", в котором следующие значения сын, дочь, мама, папа, нет родства). Есть переменная a (array) размерностью [name.na Помогите, пожалуйста, решить такую задачку. Есть тип "имя". Есть тип "родство", в котором следующие значения сын, дочь, мама, папа, нет родства). Есть переменная a (array) размерностью of "родство". 1) Ввести эту матрицу 2)Ввести имя человека и распечатать имя одной из внучек этого человека, если они у него есть. https://www.cyberforum.ru/ turbo-pascal/ thread1119182.html	Turbo Pascal Задан массив А (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве определите количество элементов, которые меньше з Задан массив А (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве определите количество элементов, которые меньше заданного значения М. Прошу сделать. Туплю :(
Turbo Pascal Записать циклы для решения задач https://www.cyberforum.ru/ turbo-pascal/ thread1119175.html Нужна помощь, сам никак не могу сообразить	Turbo Pascal В массиве A(N) определите количество элементов, которые меньше заданного значения М В массиве A(N) определите количество элементов, которые меньше заданного значения М. Использовать бинарный поиск. Сделайте пожалуйста. У меня затуп :( https://www.cyberforum.ru/ turbo-pascal/ thread1119168.html
Не работает сортировка массива Turbo Pascal program pr2; uses crt; const m=500; type mas=array of integer; var a:mas; n,i,j,x,k:integer; procedure init (n:integer; var v:mas); var i:integer; begin randomize;	Turbo Pascal В массиве все элементы, кратные четырем, заменить на минимальный элемент строки, в которой он расположен Здравствуйте, помогите мне пожалуйста. В массиве все элементы, кратные четырем, заменить на минимальный элемент строки, в которой он расположен. https://www.cyberforum.ru/ turbo-pascal/ thread1119098.html

Cyborg Drone

Модератор

10064 / 5406 / 3353

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

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

14.03.2014, 19:38

Подсчет одинаковых символов в слове - Turbo Pascal - Ответ 5900165

14.03.2014, 19:38. Показов 2336. Ответов 4

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

Сообщение было отмечено Просто чел как решение

Решение

Pascal

var w: string;
    m: set of char;
    i: byte;
    f: boolean;
begin
  m := [];
  f := false;
  write('Enter word: ');
  readln(w);
  for i := 1 to length(w) do
    begin
      if w[i] in m
        then begin
          f := true;
          break
        end;
      m := m + [w[i]];
    end;
  writeln(f);
  readln
end.

Если writeln(f) по каким-либо причинам Вам не нравится, замените, к примеру, на

Pascal

1	if f then writeln('Yes') else writeln('No');

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

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

14.03.2014, 19:38

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

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

Составить множество символов,одинаковых в каждом слове заданного предложения
1.Составить множество символов,одинаковых в каждом слове заданного предложения.

Составить множество символов, одинаковых в каждом слове заданного предложения
Здравствуйте, помогите, пожалуйста, оформить программу через процедуры 1.Составить множество...

Ввести ряд символов (нахождение одинаковых символов в слове)
Привет , ребят. Задача: Ввеcти ряд символов, пусть то будет текст, функция gets(ch) Найти в...

	14.03.2014, 19:38

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

14.03.2014, 19:38

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

Замена одинаковых символов в слове
Ввести фразу. Все последовательности одинаковых символов заменить на выражения N(C). Где N –...

Подсчёт различных символов в слове
Здравствуйте,у меня у меня задача посчитать количество различных символов в слове. Я думал...

Подсчет одинаковых символов в строке
Подсчет одинаковых символов в строке

Подсчет одинаковых символов в arraylist
Здравствуйте. В задании нахожу какие символы сходят в заданный диапазон. Но надо еще найти...

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом зад Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

Наверх