Как удалить символ из строки паскаль

как удалить символ со строки в программе паскаль? мне нужно из слова programm удалить символы чтобы получилось pramm

ДЕЛЕТЕ (ВАР С: СТРИНГ; ИНДЕХ, КАУНТ: ИНТЕДЖЕР)
процедура удаляет из строки-параметра С подстроку длиной КАУНТсимволов, начиная с символа под номером ИНДЕХ.
пример.

С: = ‘система турбо паскаль’;
ДЕЛЕТЕ (С, 8,6);

примеч. большие буквы в тексте нужно заменить на английские по транслитерации (почему то не позволяется вводить в ответ английские символы)

Ольга Каляева-Веселова

starget,s:string;
begin
starget:=’programm’;
s:=’rog’;
delete(starget,pos(s),length(s));
end;
удалит из строки starget строку s.

пожалуйста скажите как удалить символ с конца в паскале.

Если имеется в виду символ с конца строки, то просто скопируй ее всю в другую строку кроме последнего символа.

Delete(s,lentgth(s),1); как -то так)

где s- строка в которой удаляем, length(s)- последний символ, 1- кол-во символов которые удаляем.

примерно так выглядит в программе
var
s:string;
begin
readln(s);
delete(s,length(s),1);
write(s);
readln;
end.

Самый простой способ:
dec(s[0]);
Похожие вопросы
Ваш браузер устарел

Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.

Удаление одинаковых символов

Оставить в строке только один экземпляр каждого встречающегося символа.

s – исходная строка;
s_new – конечная строка;
c – переменная для очередного символа.

Алгоритм решения задачи:

Взять очередной символ из s .
Если он не содержится в s_new , присоединить его к этой строке.

var s, s_new: string; c: char; i: byte; begin readln(s); s_new := ''; for i:=1 to length(s) do begin c := s[i]; if pos(c, s_new) = 0 then s_new := s_new + c end; writeln(s_new); end.

hello world helo wrd

Как удалить введенную строку

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

30 ноя 2022 в 15:18

допустим: вводится s , вводится t , t должно удалить указанное слово , например: ввод: asd adsksdk asd вывод: adsksdk

30 ноя 2022 в 15:21
Все ещё непонятно. Приведите нормальный пример. Вводится две строки или что?
30 ноя 2022 в 15:24
ввод: весело-весело встретим новый год . вывод: — встретим новый год
30 ноя 2022 в 15:27
а и еще в этом примере t := весело
30 ноя 2022 в 15:32

1 ответ 1

Сортировка: Сброс на вариант по умолчанию

readln(s); readln(t); p := Pos(t, s); while p > 0 do begin Delete(s, p, Length(t)); p := Pos(t, s); end;

Отслеживать
ответ дан 30 ноя 2022 в 17:30
52.3k 3 3 золотых знака 19 19 серебряных знаков 43 43 бронзовых знака

pascal
pascalabc.net

Важное на Мете

Подписаться на ленту

Лента вопроса

Для подписки на ленту скопируйте и вставьте эту ссылку в вашу программу для чтения RSS.

lang-pascal

Нажимая «Принять все файлы cookie» вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.