Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Распределить сумму денежных выплат по временной нетрудоспособности по формуле https://www.cyberforum.ru/ turbo-pascal/ thread525597.html
Распределить сумму денежных выплат по временной нетрудоспособности по формуле x=(открывается фигурная скобка, далее 3 уравнения) zb/2k,c<3; 3zb/5k, 3=<c=<5, 4zb/5k, c=>5;, где z - середний заработок (грн.), k - количество отработанных дней, b - период нетрудоспособности (дней), c - непрерывный стаж работы (лет). Розрахувати суму грошових виплат по тимчасовій непрацездатності за формулою...
Turbo Pascal Процедуры. Исключить из двумерного массива столбец с наибольшей суммой элементов
Задан двумерный числовой массив. Исключить из массива столбец с наибольшей суммой элементов. Исключение столбца осуществляется путем сдвига столбцов массива влево, начиная с нужного столбца.
Turbo Pascal Создать функцию, которая подсчитывает количество гласных букв русского алфавита до первого пробела https://www.cyberforum.ru/ turbo-pascal/ thread525583.html
Создать функцию программиста, которая в любой строке подсчитывает количество гласных букв русского алфавита до первого пробела. Составить программу, в которой подсчитывается количество слогов (то есть гласных) в каждом слове, вводимым пользователем с клавиатуры. Окончание работы – ввод пустой строки. ..с комментами пожайлуста сделайте!
Turbo Pascal Описать функцию RingS(R1, R2) вещественного типа, находящую площадь кольца https://www.cyberforum.ru/ turbo-pascal/ thread525569.html
Описать функцию RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусоми R1 и R2 (R1 u R2 - вещественые, R1 > R2). С её помощью найти площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S=pi*R*R.
Создать базу данных «Управляющая компания». Написать процедуру Turbo Pascal
Ребят помогите пожалуйста Создать базу данных «Управляющая компания». Написать процедуру, отправляющую сообщение об оплате тем жильцам, которые задолжали за квартиру за полгода или чей долг превышает 30 тыс.рублей.
Turbo Pascal Найти элемент массива, по модулю ближайший к заданному значению Помогите пожалуйста составить программу Напишите программу ввода числа А , параметра N и массива из N чисел (до 10-ти), найти элемент массива, по модулю блтжайший к значению А, среднее арифметическое элементов массива со значением, ближайшим к среднему https://www.cyberforum.ru/ turbo-pascal/ thread525562.html
Turbo Pascal Массив. Найти произведение отрицательных, сумму положительных https://www.cyberforum.ru/ turbo-pascal/ thread525553.html
Yi=Sin(2*i) + Cos(i) iε В одномерном массиве,состоящем из n вещественных элементов. 1) Произведение отрицательных элементов массива. 2)Сумму положительных элементов массива, расположенных до максимального элемента. 3)Изменить порядок следования элементов в массиве на обратный.
Посчитать функцию Turbo Pascal
Составить программу вычисления функций: 1) y = sin2x, если x>2 и 2) y = 2x2 - 3x -12, если x<=2
Turbo Pascal Перевести выражения на язык Паскаль https://www.cyberforum.ru/ turbo-pascal/ thread525545.html
Помогите, пожалуйста перевести выражения на язык Паскаль: 1)y=x^2; x<0 x(в корне); x>0 2) Z=2x^3-7x^2+14x-11 Заранее спасибо)
Turbo Pascal Вывести на экран индексы тех элементов одномерного массива, которые являются простыми числами https://www.cyberforum.ru/ turbo-pascal/ thread525531.html
Составьте программу вывода на экран индексов элементов одномерного массива b(n) значение которых суть простые числа. С помощью процедуры.
Turbo Pascal операции
вот например дано программа uses crt; var i,j,r,s:integer; begin i:=1; j:=2;s:=3; if (i>j) and (j>i) or (s>i) then writeln('clovo'); ; как выполняется данная программа ,т .е как выполняется условие около and , or,какое условие проверяется первым?
Turbo Pascal Вывести элементы массива, являющиеся простыми числами https://www.cyberforum.ru/ turbo-pascal/ thread525483.html
Составьте программу вывода на экран индексов элементов одномерного массива b(n) значение которых суть простые числа. С помощью процедуры.
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
29.03.2012, 09:38 0

В заданной строке удвоить символ после первого пробела и удалить символ после последнего пробела. - Turbo Pascal - Ответ 2848596

29.03.2012, 09:38. Показов 2213. Ответов 8
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var s: string;
    i: byte;
begin
write('s='); readln(s);
i:=1;
while s[i]<>' ' do inc(i);
insert(s[i+1],s,i+1);
i:=length(s);
while s[i]<>' ' do dec(i);
delete(s,i+1,1);
write('s=',s);
readln;
end.


Вернуться к обсуждению:
В заданной строке удвоить символ после первого пробела и удалить символ после последнего пробела. Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2012, 09:38
Готовые ответы и решения:

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

Вставить после каждого пробела в строке заданный символ
ввести строку и один символ. вставить после каждого пробела в строке этот символ

Строка: Вставить после каждого символа точки (.) один символ пробела ("_"), если после точки нет пробела.
Вставить после каждого символа точки (.) один символ пробела (&quot;_&quot;), если после точки нет пробела.

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

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

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

Вставить после каждого символа «.» один символ « » (пробел), если после точки нет пробела.
Вставить после каждого символа «.» один символ « » (пробел), если после точки нет пробела. Как...

Как в каждую строку(130 000 строк) txt-файла добавить символ табуляции (TAB) после первого значимого пробела (SPACE)?
Как в каждую строку большого(130 000 строк) txt-файла добавить символ табуляции (TAB) после первого...

В заданной строке добавить в конец строки символ пробела
1.В заданной строке добавить в конец строки символ &quot; &quot;.

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