PascalABC.NET

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

Войти

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

Другие темы раздела
PascalABC.NET Вернуть строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз https://www.cyberforum.ru/ pascalabc-net/ thread1310881.html Разработать функцию MakeStr(ch1,ch2:char; N:integer):string, возвращающую строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз. Вводятся пары символов. Используя разработанную функцию, сгенерировать строки из повторений данных символов, причем первая пара должна повторяться 1 раз, вторая пара 2 раза, пара номер i должна повторяться i раз.	PascalABC.NET Найти строку, в которой каждый символ строки S удвоен Разработать функцию Double(const S:string):string, возвращающую строку, в которой каждый символ строки S удвоен. С помощью данной функции у каждой строки из введенного набора удвоить каждый символ.
PascalABC.NET Написать программу, в которой описывается массив записей, хранящий информацию: наименование товара, цена https://www.cyberforum.ru/ pascalabc-net/ thread1310875.html Написать программу, в которой описывается массив записей, хранящий следующую информацию:Наименование товара, цена.Программа должна выполнять следующие действия:ввод данных, удаление товара. Не использовать файлы.	PascalABC.NET Напечатать фамилии студентов и название предметов, по которым они получили неуды (с помощью record) https://www.cyberforum.ru/ pascalabc-net/ thread1310787.html написать с помощью record type date = record subject: array {1..5] of string ; mark: array {1..5] of integer; end; studrec = record name: string ; sub: date;
Вычислить значение PascalABC.NET Помогите пожалуйста буду очень благодарен \begin{cases} \frac{a^2}{bx}+\frac{sin(x)}{a} & \text{ , } b,x,a \neq 0 \\ lg^2x+ab & \text{ , } x \gt 0 \\ tg\frac{x^2}{4}+b & \text{ , } a = 0 \end{cases}	PascalABC.NET Изменить двумерный массив https://www.cyberforum.ru/ pascalabc-net/ thread1310747.html Дан двумерный массив. В каждой строке все его элементы, не равные нулю, переписать (сохраняя порядок) в начало строки,а нулевые элементы - в конец массива. Новый массив не заводить.
PascalABC.NET Программа для нахождение большего и наименьшего значения в массиве var a:array of integer; i:integer; max:integer; kmax:integer; begin randomize; for i:=1 to 100 do begin a:=random(2)+random(2)*(-1); write(a:5); https://www.cyberforum.ru/ pascalabc-net/ thread1310694.html	Программа для выдачи комбинаций сложения/вычитания с результатом = 100 PascalABC.NET Здравствуйте, помогите пожалуйста решить задачу: " Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания, получить в сумме 100" Использовать только целый тип без подпрограмм Пример выдачи: 123 + 4 - 5 + 67 - 89 = 100 9-8 + 76-5 + 4 + 21 + 3 = 100
PascalABC.NET Найти самую длинную последовательность чисел, упорядоченную по возрастанию ЗАДАНИЕ 1 Составить программу с использованием базовых алгоритмов для работы с одномерными массивами. ВАРИАНТЫ ЗАДАНИЯ сформулировать вещественный массив А1(45), элементами которого являются случайные числа. Найти самую длинную последовательность чисел, упорядоченную по возрастанию. Вывести на экран исходный массив и найденную последовательность. Для последовательностей одной длины вывести... https://www.cyberforum.ru/ pascalabc-net/ thread1310618.html	PascalABC.NET Вычислить и вывести на экран в виде таблицы значение функции, заданной графически https://www.cyberforum.ru/ pascalabc-net/ thread1310607.html вычислить и вывести на экран в виде таблицы значение функции, заданной графически, на интервале от Хнач до Хкон с шагом dx. Интервал и шаг вводить с клавиатуры. Таблицу снабдить заголовком и шапкой.
Составить программу, определяющую принадлежит ли точка с координатами (x;y) заштрихованной части плоскости PascalABC.NET Составить программу, определяющую принадлежит ли точка с координатами (x;y) заштрихованной части плоскости. КоОРДИНАТЫ ВВЕСТИ С КЛАВИАТУРЫ	PascalABC.NET Поиск номера телефона по фамилии, по имени и отчеству абонента Начал проходить новый тип данных record. Пытаюсь разобраться сам, но выходит с трудом. Дана задача: Создать программу "Телефонный справочник". Справочник содержит следующую информацию: Ф.И.О. абонента, домашний адрес, номер телефона. Программа осуществляет поиск номера телефона по фамилии, по имени и отчеству абонента. Сделал наброски программы var abon1,abon2,abon3:record name, //имя... https://www.cyberforum.ru/ pascalabc-net/ thread1310552.html

Joy

2385 / 1297 / 1492

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

Сообщений: 4,661

26.11.2014, 09:06

Найти строку, в которой удалены все символы, совпадающие с первым - PascalABC.NET - Ответ 6902288

26.11.2014, 09:06. Показов 1466. Ответов 1

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

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

Решение

Pascal

function DelFirst(const s:string):string;  
begin
  var s1:string:=s;
  while pos(s[1],s1)>0 do delete(s1,pos(s[1],s1),1);
  Result:=s1;
end;
begin
  var l:=new list<string>;
  writeln('Введите набор из 5 предложений:');
  for i:integer:=1 to 5 do l.Add(delfirst(readstring()));
  foreach s:string in l do writeln(s);
end.

Добавлено через 15 минут
функцию можно так:

Pascal

function DelFirst(const s:string):string;  
begin
  Result:='';
  foreach x:char in s do if x<>s[1] then Result:=Result+x;
end;

Вернуться к обсуждению:
Найти строку, в которой удалены все символы, совпадающие с первым PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

26.11.2014, 09:06

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

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

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

Программа должна удалять все символы строки, совпадающие с первым
Написал, но не работает... Программа должна удалять все символы совпадающие с первым. var ...

Составьте процедуру, с помощью которой из заданного текста будут удалены все английские символы
1. Составьте процедуру, с помощью которой из заданного текста будут удалены все английские символы.

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

26.11.2014, 09:06

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

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

Создать функцию, которая у каждой строки из введенного набора удаляет все символы, совпадающие с первым
Разработать функцию DelFirst(const S:string):string, возвращающую строку, в которой удалены все...

Функция,которая создаёт новую строку,в которой удалены все слова минимальной длины
Здравствуйте. Помогите пожалуйста. на C++ Написать функцию,которая создаёт новую строку,в которой...

Получить новую строку, в которой удалены все возможные повторные вхождения каждого слова
текст программы на языке Object Pascal в системе программирования Delph Задана строка символов,...

Наверх