Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Определите процедуру, позволяющую распознавать степени заданного числа n. https://www.cyberforum.ru/ free-pascal/ thread710815.html
Определите процедуру, позволяющую распознавать степени заданного числа n.
Free Pascal Вычислить сумму пяти двоичных чисел. Используйте процедуру сложения
Напишите программу, которая вычисляет сумму пяти двоичных чисел. Используйте процедуру сложения
Free Pascal Процедура выполнения арифметических операций над двумя двоичными числами. https://www.cyberforum.ru/ free-pascal/ thread710805.html
Определите процедуру выполнения арифметических операций над двумя двоичными числами. Задача подпрограму
Free Pascal Не понимаю, почему на Free Pascal не происходит вывода данных Задание: описать процедуру sdv(s,k), которая преобразует шкалу s, циклически сдвигая ее элементы на k позиций влево, где k - параметр типа sdvig program P11_29g(input,output); const n=20; type sdvig=1..n-1; shkala=packed array of boolean; truefalse=0..1; https://www.cyberforum.ru/ free-pascal/ thread710392.html
Free Pascal Наибольший элемент среди стоящих на главной и побочной диагоналях поменять местами с элементом, стоящим на пересечении этих диагоналей
В квадратном массиве из n строк, где n - нечетное число, все элементы различны. Наибольший элемент среди стоящих на главной и побочной диагоналях поменять местами с элементом, стоящим на пересечении этих диагоналей.
Free Pascal Дана действительная матрица размером MxN. Упорядочить (переставить) строки матрицы по возрастанию значений первых элементов строк. Дана действительная матрица размером MxN. Упорядочить (переставить) строки матрицы по возрастанию значений первых элементов строк. Используйте алгоритм простого выбора. Пожалуйста помогите решить. Буду очень рад любому ответу. https://www.cyberforum.ru/ free-pascal/ thread709860.html
Free Pascal Массивы. Найдите элементы целочисленного массива, кратные а и некратный b. Заданы два простых числа a и b. Найдите элементы целочисленного массива, кратные а и некратный b. Размерность массива 100. Заполнение массива осуществить случайными числами от 1 до 30. Добавлено через 4 часа 19 минут Поправьте что не так? Она работает правильно, вот оформление мне что-то не нравится :) program Massiv; uses crt; var m:array of integer; i,a,b:integer; begin clrscr; https://www.cyberforum.ru/ free-pascal/ thread709794.html Структурированные типы данных. Множества. Записи Free Pascal
Помогите сделать плиз!!! Задание 1 (записи). Врач использует списки пациентов, состоящих из фамилии, возраста, заболевания и даты последнего посещения. Определить: сколько пациентов с одинаковым заболеванием, средний возраст пациента по каждому заболеванию и пациента давно не обращавшегося к врачу. Задание 2 (множества). Дана непустая последовательность слов из строчных ...
Free Pascal Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой An+1 = An+2 Вычислить k первых членов арифметической прогрессии, заданных рекуррентной формулой ,A = A+2 где A - n-й член арифметической прогрессии. Добавлено через 11 минут Помогите пожалуйста, я только начинаю. Как я понял суть задачи пользователь должен ввести первый член прогрессии и общее их количество. а программа вывести такое сообщение: (например первый член равен 5, общее количество членов... https://www.cyberforum.ru/ free-pascal/ thread709560.html Free Pascal В динамической памяти создать двусвязный список из простых чисел заданных на отрезке [1,n]. https://www.cyberforum.ru/ free-pascal/ thread709525.html
В динамической памяти создать двусвязный список из простых чисел заданных на отрезке . Предусмотреть вывод всех данных, заменить значения заданного элемента на максимальный элемент в списке. Предусмотреть вывод всех данных, вставку элемента после элементом с заданным номером. Перед завершением программы очистить динамическую память.
Free Pascal Создать в динамической памяти односвязный список типа «стек» из случайных целых чисел [-4000, 2000]. Переписать его в «очередь».
Создать в динамической памяти односвязный список типа «стек» из случайных целых чисел . Переписать его в «очередь». Найти в списке максимальный элемент, и вставить после него новый введенный с клавиатуры. Перед завершением программы очистить динамическую память.
Free Pascal Процедура / функция, которая заполняет три вектора разной длины https://www.cyberforum.ru/ free-pascal/ thread709331.html
Здравствуйте! Нужно написать процедуру / функцию, которая заполняет три вектора разной длины. До сегодня такого еще не делал, и не могу нагуглить ничего внятного по заполнению нескольких массивов одной и той же процедурой / функцией. То, что смог придумать: program lab_4; uses crt; type arr = array of integer; const n = 11; m = 10; k = 14; var a:array of arr;
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.11.2012, 18:13 0

Строки: Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение - Free Pascal - Ответ 3763620

27.11.2012, 18:13. Показов 1933. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var s:string;
    i,j:integer;
begin
clrscr;
writeln('Введите строку');
readln(s);
i:=1;
while i<length(s) do
 begin
  for j:=length(s) downto i+1 do
  if s[j]=s[i] then delete(s,j,1);
  i:=i+1;
 end;
write(s);
readln
end.


Вернуться к обсуждению:
Строки: Дана последовательность символов(строка). Если какой-то элемент встречается в ней более одного раза, оставить только первое вхождение Free Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2012, 18:13
Готовые ответы и решения:

Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение
Народ.помогите решить задачку Дана символьная строка. Если какой-то символ в ней встречается более...

Если какой-то символ встречается в ней более одного раза, первое вхождение этого символа оставить без изменений, второе и последующее удалить
Вот что из себя представляет задание: Дана символьная строка.Если какой-то символ встречается в...

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

Дана строка символов до точки. Оставить в ней только слова, начинающиеся на буквы «A», «D»
#include &lt;stdlib.h&gt; #include &lt;time.h&gt; #include &lt;stdio.h&gt; #include &lt;conio.h&gt; #include...

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

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

Операции со строками. Если символ встречается более одного раза, второе вхождение– заменить на "2", третье - на "3"
Дана символьная строка. Если какой-то символ встречается в ней более одного раза, первое вхождение...

Строка: Если длина строки больше 10, то оставить только первые 6 символов...
Дана строка.Если ее длина больше 10,то оставить в строке только первые 6 символов,иначе дополнить...

Оставить в строке только первое вхождение каждого символа. Взаимный порядок оставленных символов сохранить
Решил данную задачу так: //Оставить в строке только первое вхождение каждого символа. Взаимный...

Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова
Дана строка, состоящая из слов оставить только последнее вхождение каждого слова

Только одна цифра в числе встречается ровно два раза, остальные - не более одного раза,вывести сумму этих цифр
]Только одна цифра в числе встречается ровно два раза, остальные - не более одного раза,вывести...

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