Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Задача про Кузнечика https://www.cyberforum.ru/ pascalabc/ thread700619.html
Здравствуйте! Помогите пожалуйста решить задачку: У одного из преподавателей параллели С в комнате живёт кузнечик, который очень любит прыгать по клетчатой одномерной доске. Длина доски — N клеток. К его сожалению он умеет прыгать только на 1, 2, . . . , k клеток вперёд. Однажды преподавателям стало интересно, сколькими способами кузнечик может допрыгать из первой клетки до последней. Помогите... 		Найти число m – среднее арифметическое всех элементов массива Pascal ABC
2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m. Добавлено через 10 минут помогите пожалуйста
Pascal ABC Дан массив из К элементов. Вывести на экран все четные элементы массива в порядке убывания. https://www.cyberforum.ru/ pascalabc/ thread700541.html
1. Дан массив из К целых чисел. Написать программу, подсчитывающую количество пар одинаковых элементов, стоящих рядом. 2. Дан массив из К элементов. Вывести на экран все четные элементы массива в порядке убывания. 3. Написать программу для вывода на экран всех маленьких русских букв. спасибо. 		Pascal ABC Goto(x,y) ;+graphABC неверно работает Помогите решить, неверно выводит: uses GraphABC,crt; //var begin TextColor(0); HideCursor; LowVideo; https://www.cyberforum.ru/ pascalabc/ thread700536.html
Pascal ABC Заполнить массив из 10 элементов случайными числами и отсортировать первую половину по возрастанию, а вторую – по убыванию
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать первую половину по возрастанию, а вторую – по убыванию. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 13 14 25 30 76 97 58 41 32 11 		Pascal ABC Заполнить массив из 10 элементов случайными числами и отсортировать его по последней цифре https://www.cyberforum.ru/ pascalabc/ thread700491.html
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 30 11 41 32 13 14 25 76 97 58
Pascal ABC Заполнить массив случайными числами и отсортировать его по убыванию Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по убыванию. Пример: Исходный массив: 4 5 -8 3 -7 -5 3 1 0 9 Результат: 9 5 4 3 3 1 0 -5 -7 -8 https://www.cyberforum.ru/ pascalabc/ thread700490.html Pascal ABC Одномерные массивы. Найдите сумму, разность, произведение массивов, и произведение второго массива на максимальный элемент первого массива.
Создайте с помощью генератора случайных чисел два массива целых чисел в диапазоне (0 .. 30) одинаковой длины. Найдите сумму, разность, произведение этих массивов, и произведение второго массива на максимальный элемент первого массива.
Pascal ABC Массивы дробей https://www.cyberforum.ru/ pascalabc/ thread700475.html
Создать с помощью генератора случайных чисел массив из дробей в диапазоне (-6 .. 6). Ввести с клавиатуры целое число S. Создать новый массив, образованный из первого массива без элемента с номером S. Вывести на экран оба массива и элемент с номером S. Удалить из первого массива элемент с номером S и вывести измененный массив на экран. Все числа выводить до второй цифры после запятой. 		Pascal ABC Найти наибольшее количество нулей в массиве, которые встречаются подряд. https://www.cyberforum.ru/ pascalabc/ thread700471.html
В массиве, который состоит из нулей и единиц, найти наибольшее количество нулей, которые встречаются подряд. Массив вводить с помощью генератора случайных чисел и вывести на экран.
Заполнение массива по правилу Pascal ABC
составьте программу заполнения массива a числами 1, 6, 3, 12, 5, 18, 7, 24, 9, 30 закономерность: значения элементов с нечетными индексами равны индексу элемента ,а значения элементов с четными индексами - утроенному индексу элемента 		Pascal ABC Найти в массиве целых чисел максимальный и минимальный элементы, посчитать, сколько раз они встречаются и на каких позициях. 1. Найти в массиве целых чисел максимальный и минимальный элементы, посчитать, сколько раз они встречаются и на каких позициях. Массив вводится с клавиатуры. Кроме искомых величин, вывести на экран массив, отделяя элементы массива пробелом. https://www.cyberforum.ru/ pascalabc/ thread700454.html
45 / 45 / 44
Регистрация: 10.05.2012
Сообщений: 76
0

Замена одного символа на три - Pascal ABC - Ответ 3714287

17.11.2012, 22:40. Показов 1075. Ответов 2
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте. Есть задача: "Даны две строки. Заменить на символы *** символы из 1-ой строки, которые встречаются во второй строке. Исходные строки вводит пользователь."
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

var
   str1, str2: string;
   i,j: integer;
   
begin
     write('Введите первую стоку: ');
     readln(str1);
     write('Введите вторую строку: ');
     readln(str2);
     for i:=1 to length(str1) do
         for j:=1 to length(str2) do
             if (str1[i] = str2[j]) then begin
                delete(str1, i, 1);
                insert('***', str1, i);
                i:=i+3;
                j:=0;
                end;
     writeln('----------------------');
     writeln(str1);
     readln;
end.
Проблема в том, что код заменяет не все символы, хотя если скопировать цикл (строки 11-18) еще раз - все прекрасно работает А хотелось бы избежать дублирования кода. Как это сделать?

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

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

Даны три символа. Верно ли, что код ни одного символа не является большой русской буквой
даны три символа. верно ли, что код ни одного символа не является большой русской буквой

Замена одного символа
Доброго времени суток! Необходимо из значения убрать все нули и произвести замену на / Пример:...

Замена одного символа в String
Можно ли в C# воздействовать на отдельные символы строки (string). На следующий код компилятор...

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

Замена одного символа другим
Допустим есть у меня текст "12345#6" Нужно заменить # на нужный мне символ как такое сделать? ...

Замена одного символа на другой
Продолжаю познания работы с текстовыми файлами. Пытаюсь заменить один символ на другой и вывести...

Замена одного символа на два
Нужно заменить в строке все символы # на &&. Нужно применять цепочечные команды. После первой...

Замена одного символа на другой
Всем привет! Имеется таблица, нужно в последнем (6м) столбце проверять, если стоит символ ".," то...

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