Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Выполнить поиск элемента в списке https://www.cyberforum.ru/ pascalabc/ thread1761157.html
Разработать программу, выполняющую coздание односвязного списка, вывод его элементов на экран, а также указанные действия в соответствии с вариантом. Построить схемы действий со списком, отражающие связи между элементами списка, а также их изменение в случае добавления или удаления элементов из списка.Тип элементов списка – символы. Выполнить поиск элемента в списке. Помогите исправить...
Нужна блок-схема к программе Pascal ABC
Помогите пожалйста. uses crt; label nach; type knigi = record Autor : string; nazva : string; rik : integer; rozdil: string;
Pascal ABC Разработать модуль для работы с треугольниками,заданными координатами вершин Разработать модуль для работы с треугольниками,заданными координатами вершин (ввод,вывод,возможность построения по заданным точкам,периметр,площадь)Продемонстрировать работу всех подпрограмм, описанных в модуле, в основной программе необходимо с помощью меню unit treugolniki; interface type treugolnik=array of real; procedure input(var a,b:integer); procedure... https://www.cyberforum.ru/ pascalabc/ thread1760986.html Pascal ABC Создание массива Всем добрый день, два дня уже не могу разобрать как написать программу для создания и обработки сассива( Буду очень благодарен за любую помощ!! Дано массив А(4,5). Найти номер К строки с максимальной суммой элементов. Дальше сформировать массив В (4,5) каждый элемент которого был бы равен элементу соответственной строки массива А, розделённый на соответственный элемент К-той строки. Вот... https://www.cyberforum.ru/ pascalabc/ thread1760972.html
Pascal ABC Сделать из рисунка движущийся
program avto; uses graphABC; begin SetWindowSize (800,600); SetPenStyle (psClear); // верхняя часть автомобиля setBrushColor (ClLightGray); rectangle (250,250,550,351); setBrushColor (ClDarkGray); // окна
Pascal ABC Минимизировать функцию f(x,y)=ax+by+e методом градиентного спуска https://www.cyberforum.ru/ pascalabc/ thread1760947.html
2 вариант , спасибо тем кто поможет
Pascal ABC Вывести номера чисел, сумма которых дает наибольшее нечетное число https://www.cyberforum.ru/ pascalabc/ thread1760781.html
Добрый день, подскажите, что делаю не так. program z27(var6); const N=1000; var a:array of integer; i,min,k,x:integer; begin k:=0;
Графика: Как сделать так, чтобы персонаж не мог проходить, пересекать стены? Pascal ABC
Приветствую. Нарисовал лабиринт и персонажа (красный круг), который должен дойти до выхода от старта. Так вот, персонаж может проходить через стены лабиринта. Как сделать так, чтобы персонаж не мог проходить, пересекать стены? Пожалуйста, помогите с примером хотя бы для 1 стены, дальше я сам по аналогии сделаю. Код: Код весь, просто некоторые буквы сначала прозрачные. Не знаю почему...
Pascal ABC Очередь: Сформировать две новые очереди, записав в них соответственно первую и вторую части исходной очереди. https://www.cyberforum.ru/ pascalabc/ thread1760527.html
Помогите пожалуйста решить В составе целочисленной очереди имеется единственный нулевой элемент, разделяющий ее на две части. Сформировать две новые очереди, записав в них соответственно первую и вторую части исходной очереди.
Pascal ABC Массив: Создать очередь, содержащую данные числа, и вывести указатели на начало и конец очереди Помогите пожалуйста решить такую задачу... Нашёл решенную на TP, но хоть на TP, хоть на ABC у меня не работает( Дан набор из 10 чисел. Создать очередь, содержащую данные числа в указанном порядке (первое число будет размещаться в начале очереди, последнее — в конце), и вывести указатели Р1 и Р2 на начало и конец очереди. Заранее спасибо! https://www.cyberforum.ru/ pascalabc/ thread1760524.html
Pascal ABC Нарисовать ряды треугольников
Нужно с помощью процедуры, рисующей треугольник , изобразить M рядов по N треугольников. M и N вводятся с клавиатуры. Меня попросили помочь с программой, а я сама вообще не знаю, как написать такую программу. Пожалуйста, помогите, кто сможет! Заранее огромное спасибо!!!
Pascal ABC Напечатать все слова, содержащие хотя бы две цифры Помогите, пожалуйста, исправить программу! Задание: Напечатать все слова, содержащие хотя бы две цифры. Рядом со словом напечатать эти цифры. У меня есть примерная программа, но она не работает. Вот её текст: function numbers(S:string):integer; var i,k:integer; begin k:=0; for i:=1 to length(s) do if s in then inc(k); numbers:=k; end; https://www.cyberforum.ru/ pascalabc/ thread1760470.html
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.06.2016, 19:24 0

Удалить символы из заданной строки - Pascal ABC - Ответ 9281284

16.06.2016, 19:24. Показов 7892. Ответов 9
Метки (Все метки)

Ответ

А хрен его знает,ты тогда меня достал, ну напиши так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
i:integer;
s:string;
begin;
Writeln('Исходная строка');
Readln(s);
i:=1;
while i<length(s) do
if copy(s,i,3)='или' then delete(s,i-3,3)
else inc(i);
Writeln(s);
end.


Вернуться к обсуждению:
Удалить символы из заданной строки Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2016, 19:24
Готовые ответы и решения:

Строка: Удалить все символы «а» заданной строки...
Дана строка. Удалить все символы «а».

Удалить из заданной символьной строки подряд идущие одинаковые символы
Задание: Написать программу, которая удаляет из заданной символьной строки подряд идущие одинаковые...

Из заданной строки удалить все символы, входящие в другую заданную строку
Из заданной строки удалить все символы, входящие в другую заданную строку. (Процедура получает...

Если длина строки больше заданной, отбросить первые символы, иначе в её начало добавить символы "."
Дано целое число N (N&gt;0) и строка S.Преобразовать строку S в строку длины N следующим образом:если...

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

Удалить из строки ее часть с заданной позиции и заданной длины
Ввести с клавиатуры строку. Удалить из этой строки ее часть с заданной позиции и заданной длины....

Удалить часть строки заданной длины с заданной позиции
Ввести с клавиатуры строку. Удалить из этой строки ее часть с заданной позиции и заданной длины....

Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке.
составить программу для решения задач: 6. Даны две строки. Из множества символов первой строки...

Удалить символы строки от I до N
Удалить все символы от I до N Добавлено через 6 минут Памогите пажалуста

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