Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Определить длину введенной строки https://www.cyberforum.ru/ turbo-pascal/ thread126069.html
1) Ввести с клавиатуры строку символов. Признак окончания ввода строки - нажатие клавиши "Ввод". Программа должна определить длину введенной строки L и, если длина L>5, то выделяется подстрока до первого пробела. 2) Дана строка символов. Удалить из нее все слова, начинающиеся с заданной буквы.
Turbo Pascal написать программу которая вычисляет сумму и произведение N чисел
1) написать программу которая вычисляет сумму и произведение N чисел (N ввести с клавиатуры) кратных 3 из всех вводимых.
Turbo Pascal Большая просьба решить по теории вероятности. Очень благодарен. 1. Монету бросают 3 раза. Составить закон распределения числа выпадения "решки" 2. В партии из 10 деталей 1 нестандартных. Наудачу отобрано 2 детали. Составить закон распределения числа нестандартных деталей среди отобранных. https://www.cyberforum.ru/ turbo-pascal/ thread126026.html Turbo Pascal В матрице А размером n*n... https://www.cyberforum.ru/ turbo-pascal/ thread126023.html
В матрице А размером n*n определить номер столбца, сумма элементов которого максимальна. Если этот номер больше трёх, то поменять местами элементы главной и побочной диагонали матрицы.
Turbo Pascal Файлы, процедуры
1.Даны действительные числа a, h, натуральное число n. Вычислить f(a) + 2f(a + h) + … + 2f(a + (n-1)h) + f(a + nh), где f(x) = (x^2 +1) cos^2 x. 2.. Дан файл f, компоненты которого являются действительными числами. Найти: сумму компонент файла f.
Turbo Pascal Проверить, образует ли данный набор возрастающую последовательность https://www.cyberforum.ru/ turbo-pascal/ thread126021.html
Помогите пож-та с заданием последовательности Series. Дано целое число N(>0) и набор целых вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет- False.
Turbo Pascal Элемент https://www.cyberforum.ru/ turbo-pascal/ thread126019.html
Ребята решите плз. Составить программу и блок схему указывающую сколько раз в последовательности встречается каждый элемент.
множества Turbo Pascal
Введите символьное множество. Разбейте его на три множества буквы,цифры и специальные символы. А как задать множество специальных символов?
Turbo Pascal двумерные массивы. https://www.cyberforum.ru/ turbo-pascal/ thread125991.html
Помогите написать 2 программы: Ввести двумерный массив N M A × , вывести его. Найти максимальный по значению элемент массива и увеличить его в два раза. Все остальные элементы массива уменьшить на значение минимума последней строки массива. двумерный массив N M A × , вывести его. Поменять местами строку, содержащую максимальный элемент со строкой, содержащий минимальный элемент....
Turbo Pascal Помогите сделать блок-схему Помогите сделать блок-схему!!!! Зарание благодарю) uses crt; const max=100; var a:array of integer; n,i,k:byte; begin clrscr; repeat write('Размер массива n='); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread125976.html
сделайте программу Turbo Pascal
Для каждого из массивов: C={C}, i=1..N, j=1..k=1; D={D}, i=1..N, j=1..k=2; Z={Z}, i=1..N, j=1..k=3 вычислить сумму и количество отрицательных элементов , стоящих на чётных местах во 2-ом столбце. N1, K1, N2, K2, N3, K3 - целые, не больше 10, 15, 20, 9, 16 и 20 соответственно. Результаты получить отдельно для каждого массива. Использовать PROCEDURE.
Turbo Pascal Дан двумерный массив. Вставьте второй столбец перед всеми столбцами, в которых нет отрицательных элементов. Дан двумерный массив. Вставьте второй столбец перед всеми столбцами, в которых нет отрицательных элементов. С подпрограммами Пожалуйста !!! и если не сложно комментарии к строкам !!! https://www.cyberforum.ru/ turbo-pascal/ thread125970.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
06.05.2010, 13:57 0

Заменить в заданном тексте буквосочетание «abc» на «klmn» - Turbo Pascal - Ответ 708765

06.05.2010, 13:57. Показов 1359. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
while pos('abc',s)>0 do
 begin
  delete(s,i,3);
  insert('klmn',s,i);
 end;


Вернуться к обсуждению:
Заменить в заданном тексте буквосочетание «abc» на «klmn» Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2010, 13:57
Готовые ответы и решения:

Заменить в заданном тексте буквосочетание «abc» на «klmn»
Составить программу в паскале , которая заменяет в заданном тексте буквосочетание «abc» на «klmn». ...

Заменить в заданном тексте буквосочетание «abc» на «klmn» и удалить лишние пробелы
Составить программу, которая заменяет в заданном тексте буквосочетание «abc» на «klmn». заранее...

Заменить в заданном тексте буквосочетание "min" на "max".
Замените в заданном тексте буквосочетание "min" на "max".

В заданном тексте везде заменить слово А1 на А2
в заданном тексте везде заменить слово А1 на А2. длины слов не совпадают

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

В заданном тексте заменить все (а) на букву (о)
1) подставить количество элементов одномерного массива для каторых выполняется неравенство іумножен...

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

В заданном тексте заменить все знаки препинания на *
В заданном тексте заменить все знаки препинания на *

В заданном тексте заменить последовательность символов x(i) на a(i) и подсчитать число произведенных замен.
Прошу помочь в Лабе. завтра сдавать... боюсь погареть!* искал в нете пободного нигде не нашел......

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