Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Оч срочно надо лабу =( https://www.cyberforum.ru/ pascal/ thread324663.html Даны нат число n и символы S1,S2...Sn среди которых есть двоеточие, Получить и вывести на экран: а) Все символы расположенные до первого двоеточия б) Все символы после первого двоеточия в)Все символы между первым и вторым двоеточием. Если второго двоеточия нет, то получить все символы после ед. имеющий двоеточия. Решить 2 способами 1.Последовательность описана как символьный массив array of char...	Pascal Многомерный массив Дан массив из 0 и 1. Прямоугольниками назовем часть массива, заполненную 1. Известно, что прямоугольники не соприкасаются друг с другом. Определить количество прямоугольников.
Pascal Многоерный массив https://www.cyberforum.ru/ pascal/ thread324661.html Напишите программу плиззз. В массиве F(N;N) удалить N1 строку. Вывести новый и старый массив. Буду признательна)	Pascal Найти элементы, которые присутствуют в массиве А, но отсутствуют в массиве В Сломал всю голову, не могу придумать алгоритм. Есть два массива, которые вводятся с клавиатуры, нужно найти элементы, которые присутствуют в массиве А, но отсутствуют в массиве В. Подскажите, может есть у кого какие идеи? https://www.cyberforum.ru/ pascal/ thread324638.html
Сортировка массива Pascal напишите пожалуйста программу которая выполняла бы "Сортировку Шелла" и "Сортировку Выбором".Ну в общем это две разные программы	Pascal Одномерный массив https://www.cyberforum.ru/ pascal/ thread324611.html В заданном массиве определить количество членов, являющихся нечетными числами. Вывести на экран счетчик и заданный массив. Помогите пожалуйста)
Pascal Цикл For. Сумма чисел кратных 3. https://www.cyberforum.ru/ pascal/ thread324553.html Помогите решить задачу пожалуйста. Найти в диапазоне суммы и количества чисел кратных 3 (с остатком 0 ) Цикл For	Шифрование. Pascal Здравствуйте, написал программу шифрования текста, надо написать расшифровку текста к ней. Написал комменты к ней, надеюсь понятно и не криво) begin ALP:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; writeln('vvedite kluch'); readln(kl); l:=length(kl); {каждой букве присваиваем номер соответствующий алфавиту} for i:=1 to l do {делаем проверку столько сколько симв ключа} begin pos:=1;
Pascal Использование процедур и функций в Pascal Может кто чего знает по этим двум задачкам подскажите пожалуйста... 1)Ввести два числа. Определить в каком из них сумма цифр больше, используя функцию вычисления суммы цифр одного числа. 2)Ввести пять слов. В каждом слове заменить буквы А на О. Использовать процедуру замены в строке букв А на О. первую надо сделать именно через функцию, а вторую через процедуру... https://www.cyberforum.ru/ pascal/ thread324514.html	Pascal Определить какая сумма элементов больше, расположенная до максимального элемента или после. https://www.cyberforum.ru/ pascal/ thread324469.html Определить какая сумма элементов больше, расположенная до максимального элемента или после. var a:arrayof integer; i,f,n:integer; begin writeln('Введите кол-во элементов'); readln(n); for i:=1 to n do begin writeln('Введите элемент a');
Pascal Дана матрица в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов матрицы на ее наибольший по мод эл Дана матрица размерности m*n, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент. Выдать соответствующие комментарии.	Pascal Матрица, добавление строки/столбца Не могу найти программу на добавление строки/столбца. Либо решить задачу получить новую матрицу, где больше на один столбец. Элементы столбца первый отрицательный элемент строки. Пожалуйста помогите. завтра зачет( Добавлено через 1 час 7 минут есть похожая прога? https://www.cyberforum.ru/ pascal/ thread324440.html

Gxost

39 / 39 / 30

Регистрация: 07.12.2010

Сообщений: 114

23.06.2011, 03:32

Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы - Pascal - Ответ 1786806

23.06.2011, 03:32. Показов 2090. Ответов 1

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Pascal

var
a,i:integer;
s:string;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i,1);
for i:=1 to length(s) do
if (s[i] in ['.','!','?']) and (s[i+1]=' ') then s[i+2]:=upcase(s[i+2]);
s[1]:=upcase(s[1]);
writeln(s);
end.

Вернуться к обсуждению:
Превратить строку так, чтобы каждое предложение начиналось с заглавной буквы Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

23.06.2011, 03:32

Готовые ответы и решения:

Преобразовать каждое слово так, чтобы оно заканчивалось заглавной буквой
Дана строка слов, разделенных произвольным количеством пробелов, после последнего слова точка....

Преобразовать строку так, чтобы каждое слово было отражено зеркально
Дана строка, состоящая из слов. Преобразовать строку так, чтобы каждое слово было отражено...

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

Исправить строку так, чтобы каждое предложение начиналось с заглавной буквы
С клавиатуры вводится строка, состоящая из предложений на русском языке. Каждое предложение...

	23.06.2011, 03:32

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

23.06.2011, 03:32

Помогаю со студенческими работами здесь

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

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

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

Наверх